Überprüfen ob Stream aus BMP leer ist

[bernhard_LA]

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 ?