Как записать содержимое BLOB поля в Буфер (Clipboard) [D6]
Меджид © (2005-02-07 11:49:00)
Привет Мастерам! Помогите кто знает как правельно записать в
Буфер (ClipBord) из BLOB поля. В этом поле "куски" из Документа
Word2000 (т.е. не целый файл,если это имеет значение). Нашол такой
код, но я ничего не мыслю в потоках, а может и в Дельфи вообщем
тоже:)
procedure TForm1.Button3Click(Sender: TObject);
var
hbuf: THandle;
bufptr: Pointer;
mstream: TMemoryStream;
b: TBlobStream;
wtmp: Word;
begin
mstream := TMemoryStream.Create;
Table1.Open;
Table1.RecNo:= 2;
try
{-- Записываем данные в mstream. --}
mstream.LoadFromStream(TBlobStream.Create((Table1.FieldByName('Qwes'))as
TBlobField, bmRead));
hbuf := GlobalAlloc(GMEM_MOVEABLE,
mstream.size);
try
bufptr := GlobalLock(hbuf);
try
Move(mstream.Memory^, bufptr^,
mstream.Size);
Clipboard.SetAsHandle(49163,
hbuf);
finally
GlobalUnlock(hbuf);
end;
except
GlobalFree(hbuf);
raise;
end;
finally
mstream.Free;
b.Free
end;
end;
Меджид (2005-02-07 12:16:00) [1]
Строку
mstream.LoadFromStream(TBlobStream.Create((Table1.FieldByName('Qwes'))as
TBlobField, bmRead)); добавил я сам, его не было в первоначальном
коде.
Наверх 
ЧАТ |
Орешник |
|
