DBImage - Bitmap ist ungültig

[joachimd]

Zitat von uwe12:

Ich habe jetzt die Position gefunden, aber irgendwie wird der bereich nicht weggeschnitten. Es bleibt die Datei unverändert.

Du hast oben mal sowas geposted:

Delphi-Quellcode:

    ms.Position:=0;
    bmp:=TBitmap.Create;
    ms.SaveToFile('temp.bmp');
    try
      bmp.LoadFromStream(ms);

ist es richtig, dass Du jetzt ms.Position auf 78 o.ä. gesetzt hast? Wenn Du danach vom Stream speicherst, musst Du den Stream wieder "zurückspulen" (ms.Position:=78, bevor Du das LoadFromStream machen kannst. Ein Stream ist ein Bandlaufwerk...Wie bei den guten alten VHS-Kassetten kannst Du nur einmal anschauen, dann musst Du spulen Wenn Du also zwei Aktionen machst, setzt dein LoadFromStream am Ende auf...und nicht an Position 78.

[maron]

Ja, damit hast du recht. Aber selbst die Datei(temp.bmp), die aus dem Stream gespeichert wird enthält ja noch diese 78 Bits, die er nicht will und ist damit nicht zu öffnen. Es wird also ab Position 0 gespeichert und nicht ab position 78...

[uwe12]

maron hat Recht. Der Stream wird nicht ab Position 78 gespeichert, sondern der komplette Stream wird gespeichert mit dem falschen header.

[maron]

ich kriegs net hin

[hoika]

Hallo,

Das Problem ist aber bekannt.

Nehme ich mal Google mit delphi access bitmap blob

bekomme ich folgende Seite.

Bitmaps in Access

Da kann man sich das schön erklären lassen
und die Lösung wäre dann ab Seite 4.


Heiko

[uwe12]

ich habe mir jetzt mal das Beispielprogramm heruntergeladen, aber jetzt kommt immer folgende Meldung:
[Pascal Fataler Fehler] E2202 Package 'VCL50' wird benötigt, konnte aber nicht gefunden werden.

[hoika]

Hallo,

kompilier mal ohne Packages.

Entscheidend ist doch aber der Code auf der Seite.


Heiko

[uwe12]

Ich habe jetzt die Packages entfernt, aber jetzt kommt folgende Fehlermeldung: [Pascal Fehler] Unit1.pas(68): E2010 Inkompatible Typen: 'TBlobField' und 'TADOTable'.
bS := TADOBlobStream.Create(AdoTable1, bmRead);

[hoika]

Hallo,

da steht aber

bS := TADOBlobStream.Create(AdoTable1Picture, bmRead);

und nicht

bS := TADOBlobStream.Create(AdoTable1, bmRead);


Edit: Hm, er findet die MDB nicht ...


Heiko

[uwe12]

ich habe aber doch das AdoTable in AdoTable1 umbenannt. Das heißt jetzt nicht mehr AdoTable1Picture sondern AdoTable1.