OLE и Interbase - прочесть и записать

Автор: Rob Minte

procedure TForm1.ReadOLE;

var

 BS: TBlobStream;

begin

 BS := TBlobStream.Create(Table1BLOBFIELD_BLOB, bmRead);

 OLEContainer1.LoadFromStream(BS);

 BS.Free;

end;

procedure TForm1.WriteOLE;

var

 BS: TBlobStream;

begin

 BS := TBlobStream.Create(Table1BLOBFIELD_BLOB, bmWrite);

 OLEContainer1.SaveToStream(BS);

 BS.Free;

end;


Взято с http://delphiworld.narod.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...