function SaveBlobField(Field: TField; const FileName: String): Boolean;
function LoadBlobField(Field: TField): String;
implementation
function SaveBlobField(Field: TField; const FileName: String): Boolean;
begin
Result := True;
try
TBlobField(Field).LoadFromFile(FileName);
except
Result := False;
end;
end;
function LoadBlobField(Field: TField): String;
var
BS: TADOBlobStream;
begin
BS := TADOBlobStream.Create(TBlobField(Field), bmRead);
try
Result := ExtractFilePath(Application.ExeName) + 'tmpBlob';
BS.SaveToFile(Result);
finally
BS.Free;
end
end;