var fs:TFileStream; begin try Fs:=TFileStream.Create(prjpath+Filenames+'.apt',fmopenread); with table do begin Fs.Position:=0; TBlobField(Fieldbyname('Content')).LoadFromStream(Fs); Post; ApplyUpdates(0); end; Finally Fs.Free; end; end;
----------------------------------------------
-