DBImage - Bitmap ist ungültig

[uwe12]

Warum kommt immer der Fehler ,,Bitmap ist ungültig"?
Ich habe eine datenbank, wo bitmap dateien gespeichert sind. Auf die Datenbank greif ich über ein AdoTable zu. Nun möchte ich mit ein DBImage die Bitmap Datei aus der Datenbank anzeigen lassen. Aber es kommt immer die Fehlermeldung ,,Bitmap ist ungültig".

[Bernhard Geyer]

Wie wurden die Bitmaps in der DB gespeichert? Mit Access-Mitteln?

[uwe12]

ich habe eine spalte mit ole-object in access angelegt und lade das Bitmap über Access in die Datenbank

[Bernhard Geyer]

Zitat:

Zitat von uwe12

ich habe eine spalte mit ole-object in access angelegt und lade das Bitmap über Access in die Datenbank

Und da ergänzt Access noch ein paar Bytes "OLE-Header" so das nur noch Access damit was anfangen kann.
Du mußt vor dem Anzeigen diese Bytes wegschneiden. Hier im Forum müssten auch schon fast fertige Lösungen vorhanden sein welche auf TImage statt TDBImage basieren.

[uwe12]

also müsste ich statt eines DBImages ein Image nehmen?

[Bernhard Geyer]

Zitat:

Zitat von uwe12

also müsste ich statt eines DBImages ein Image nehmen?

Ja. Und den Header selbst wegschneiden.

[uwe12]

wie soll das funnktionieren mit dem abschneiden von dem header?

[uwe12]

Ich komme einfach nicht weiter. Habe keine Ahnung wie das funktionieren soll.

[uwe12]

Könntet ihr mir mal bitte weiterhelfen? Da ich absolut nicht weiterkomme mit dem Image.

[Bernhard Geyer]

1, Lade das Image aus der DB in einen TMemory/TFileStream
2, Schreibe ab dem 79 Byte die Daten in einen weiteren Stream

Delphi-Quellcode:

OrgStream.Position := 78
OrgStream.SaveToStream(DestStream)

3, Speichere diesen 2ten Stream als Temporäre Datei
4, Lade diese temporäre Datei in einer TImage-Komponente
5, Lösche die temporäre Datei

Wenn du diesen Weg erstmal hast kannst du probieren diesen zu optimieren (Keine zwischenspeicherung auf Festplatte, ...)