Как добавлять файлы в поля типа TBlobField

[Douglas]

Есть таблица, сделанная в Database Desktop. Есть программка в Delphi для работы с этой БД. В БД есть 2 поля ParadoxOLE. Подскажите, пожалуйста, как добавлять туда файлы (*.jpg, *.doc), чтобы они отображались в таблице?

[denisbrain]

попробуй так

uses jpeg
- -- - - - 
function LoadPole(name:string):boolean;
var steam:TMemorystream;

JpegIm: TJpegImage;
      bdc,adc:HDC;
bm, am: TBitMap;

begin
result:=false;
try
  steam:=TMemorystream.Create;
  TBlobField(form1.ADOTable1.FieldByName('polename')).SaveToStream(steam);
  form1.Image1.Picture.Bitmap.LoadFromStream(steam);
  bm := TBitMap.Create;
  JpegIm := TJpegImage.Create;
  JpegIm.LoadFromStream(steam);
  bm.Assign(JpegIm);
  am:=TBitmap.Create;
  adc:=bm.Canvas.Handle;
  bdc:=Form1.Canvas.Handle;  //getdc(bm.Handle);
  if BitBlt(bdc,10,10,400,400,adc,400,400,SRCCOPY) then
   else RaiseLastWin32Error;
  steam.free;
  result:=true;
except
result:=false;
end;
end;
а Word в RTF. или как то через OLE