ich möchte ein jpg-bild, das in einer sql-server2000-datenbank gespeichert(datentyp image) ist über ADO auslesen und weiterverarbeiten (speichern, anzeigen etc...)
dazu habe ich folgenden code geschrieben, der aber nicht funktioniert...WARUM ????
ich bekomme immer nur eine 1MB-Datei, die aber kein JPG-File darstellt.
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
| procedure TForm1.Button1Click(Sender: TObject); var jpegimage :TJPEGImage; stream : TMemoryStream; begin try jpegimage := TJPEGImage.Create; stream := TMemoryStream.Create; TBlobField(ADODataSet1.FieldByName('Bild')).SaveToStream(stream); jpegimage.LoadFromStream(stream); jpegimage.SaveToFile('E:\Test.jpg'); except on e:exception do begin ShowMessage(e.Message); end; end; end; |
gruß
Fred