Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с буфером обмена

leonidus © (2006-12-08 13:24:00)
Суть такая, я перехватываю факт изменения содержимого буфера обмена и сохраняю буфер на диск в файл, а потом в нужный момент читаю из файла и загружаю в буфер, вот этой функцией:

procedure TForm1.ClipbrdLoadFromFile(FileClipbrdNum:integer);
var
h: THandle;
p: Pointer;
CBF: Cardinal;
CBBlockLength: Cardinal;
i, CBCount: Integer;
FileStream: TFileStream;
begin
if OpenClipBoard(0) then
begin
FileStream := TFileStream.Create(copy(application.ExeName,1,lastdelimiter('\',application.ExeN ame)-1)+
DirTmpPrefix+FileClipbrdName+inttostr(FileClipbrdNum)+'.'+FileClipbrdExt, fmOpenRead);
if FileStream.Size = 0 then Exit;

FileStream.Read(CBCount, sizeOf(Integer));
if CBCount = 0 then Exit;

for i := 1 to CBCount do
begin
FileStream.Read(CBF, SizeOf(Cardinal));
FileStream.Read(CBBlockLength, SizeOf(Cardinal));
h := GlobalAlloc(GMEM_MOVEABLE or GMEM_SHARE or GMEM_ZEROINIT,CBBlockLength);
if h > 0 then
begin
p := GlobalLock(h);
if p = nil then GlobalFree(h)
else
begin
FileStream.Read(p^, CBBlockLength);
GlobalUnlock(h);
SetClipboardData(CBF, h);
end;
end;
end;

FileStream.Free;
CloseClipBoard;
end;
end;

так вот вопрос, как мне сделать так что-бы я мог в буфер добавить сразу несолько элементов, т.е. считал один файл, добавил его в буфер, считал второй, тоже добавил в буфер в добавок к первому, а не поверх?

leonidus (2006-12-08 15:01:00) [1]
Не совсем понял, можно примерчик?

Rouse_ (2006-12-08 14:35:00) [2]
GlobalAlloc в начале, GlobalReAlloc при считывании файла, ну и про позицию не забывать. SetClipboardData после успешного считывания всего

leonidus (2006-12-08 14:30:00) [3]
Ну вот про чтение в байтовый массив я и думал, а как это реализовать подкорректировав данную процедуру?

Rouse_ (2006-12-08 13:58:00) [4]
Никак, буффер знает только то, что в него поместили. Это не жесткий диск, это место где временно храниться некая информация. Либо читай все файлы в байтовый массив а потом этот массив разом помещай, либо читай то что уже есть в буффере, добавляй к нему новую информацию и помещай обратно...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »