Ü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 ?

[DeddyH]

Sind das auch beides wirklich Bitmaps? Aus der Hilfe zu TPicture.Bitmap:

Zitat:

Bitmap referenziert das Grafikobjekt, sofern es ein Bitmap enthält. Wenn Sie mit Bitmap auf ein TPicture-Objekt verweisen, das eine Metadatei oder ein Symbol enthält, wird keine Grafikkonvertierung durchgeführt sondern der Inhalt des Objekts verworfen und ein neues, leeres Bitmap zurückgegeben.

[bernhard_LA]

Ok, ich male des fragliche Bild mit canvas.male_etwas.... selbst, habe damit nicht automatische eine BMP ?

[DeddyH]

Auf den Canvas des TImage? IIRC ist das dann tatsächlich eine Bitmap.

[bernhard_LA]

in besagtes Image2 kopieren das Ergebnis unserer malaktion mit folgender Codezeile :

Delphi-Quellcode:

 
                Image2.Picture.BitMap.Assign(MyClass.MyImage);

MyClass.MyImage ist vom Datentyp TBitmap. Das Bild wird richtig angezeigt.

[DeddyH]

Du hast also eine Klasse, die eine Bitmap enthält, malst auf dieser herum, kopierst sie anschließend in das TImage und willst dann dessen Bitmap in der DB ablegen, richtig? Eigentlich müsste das funktionieren.

[bernhard_LA]

Danke, dein Statement ist komplett richtig, nur will sich der Fehler leider nicht zeigen

[DeddyH]

Hast Du Dir einmal die Größe der Streams ausgeben lassen? Wenn der zweite tatsächlich leer ist, muss Stream.Size ja 0 sein.

[bernhard_LA]

Analysergebnis:

stream.size ist definitiv ungleich NULL, kann es sein irgendwo wird mein Stream nicht als BItmap interpretiert ?

[DeddyH]

Aber wo sollte das interpretiert werden? TMemoryStream und TBLOBField hantieren ja IIRC mit Rohdaten.