Hallo,
abgesehen von der wahrscheinliche ungültigen und unsinnigen Variable 'Bitmap' ist TStream eine abstrakte Klasse und besitzt keine Methode 'LoadFromFile'.
Delphi-Quellcode:
procedure LoadPDF;
var lBlobField : TBlobField;
lBlob : TBlobStream;
lFileStream : TFileStream:
begin
lBlobField := TBlobField(DataSet.FieldByName('BLOB_X'));
lBlob := Dataset.CreateBlobStream(lBlobField, bmWrite);
Dataset.Insert;
try
lBlob.Seek(0, soFromBeginning);
lFileStream := TFileStream.Create('your.pdf', fmOpenRead or fmShareDenyWrite);
try
lBlob.CopyFrom(lFileStream , lFileStream .Size);
Dataset.Post;
finally
lFileStream.Free
end;
finally
lFileStream.Free
end;
end;
Ist nur schnell runter geschrieben, da gerade kein Delphi zur Hand und ohne zu Testen. Ging nur um die Veranschaulichung des Vorgehens.
In einer normalen, ausgetesteten Methode würde ich noch das Dataset.Post per try ... except ... end absichern.