Ich speichere mit folgender Codesequenz Bilder aus einem TImage in BLOP Felder einer
MSSQL Datenbank
Delphi-Quellcode:
// save the Image data to the Blob Field
BLobField1 := ADOTable.FieldByName('Image1') as TBlobField;
BLobField2 := ADOTable.FieldByName('IMage2') as TBlobField;
//
Img1_stream := TMemoryStream.Create;
img2_stream := TMemoryStream.Create;
aImage.Picture.Bitmap.SaveToStream(Img1_stream);
bImage.Picture.Bitmap.SaveToStream(Img2_stream);
SaveBMPToTable(ADOTable, BLobField2, Img2_stream );
SaveBMPToTable(ADOTable, BLobField1, Img1_stream );
In beiden TImage Komponenten ist ein Bild auf meinem Formular sichtbar.
Leider kann ich nur das eine Bild speichern , der Stream im zweiten Bild scheint leer zu sein.
Da ich den ersten Stream in beide Blop Felder meiner
DB schreiben kann schließe ich einen Fehler in der Funktion SaveBMPToTable aus.
Irgendeine Idee für diesen Fehler ?