DBImage - Bitmap ist ungültig

[uwe12]

Krieg das irgendwie nich hin.
Hab jetz folgendes da stehn, aber wenn ich die Datei mit nem Hex-Editor öffne, is der header noch vorhanden. Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MemoryStream, DestStream: TMemoryStream;
 Bitmap: TBitmap;
begin
with AdoDataset1 do
begin
  Bitmap:= TBitmap.Create;
  MemoryStream := TMemoryStream.Create;
  Deststream := TMemoryStream.Create;

    MemoryStream.LoadFromStream(CreateBlobstream(FieldByName('Bild'),bmRead));
    MemoryStream.Position := 78;
    MemoryStream.SaveToStream(DestStream);
    MemoryStream.SaveToFile('temp.bmp');
//    Bitmap.LoadFromStream(DestStream);
//    Image1.Picture.Bitmap := Bitmap;
end;
end;

[maron]

Hmm...das ist merkwürdig. Müsste eigtl. funktionieren...
Probier mal nochn bisschen rum...

[joachimd]

müsste auch ohne Zwischenspeichern gehen. Folgendes funzt, wenn das Bitmap direkt drinsteht (also ohne OLE Header):

Delphi-Quellcode:

procedure TMainForm.LoadBMP;
var
  bmp:TBitmap;
  ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    TBlobField(tbBilder.FieldByName('Bild')).SaveToStream(ms);
    ms.Position:=0;
    bmp:=TBitmap.Create;
    try
      bmp.LoadFromStream(ms);
      Image1.Picture.Assign(bmp);
    finally
      FreeAndNil(bmp);
    end;
  finally
    FreeAndNil(ms);
  end;
end;

Du müsstest eigentlich nur noch die richtige Position rausfinden und den Stream sauber positionieren.

[uwe12]

wie meinst du, wenn das Bitmap direkt drin steht? Wie funktioniert das (ohne Header)?

[joachimd]

Zitat:

Zitat von uwe12

wie meinst du, wenn das Bitmap direkt drin steht? Wie funktioniert das (ohne Header)?

Delphi-Quellcode:

TBlobField(tbBilder.FieldByName('Bild')).LoadFromFile('test.bmp');

Der Datei-Header steht da schon drin, nur nicht das, was Krüppel-ACCESS drumrum baut.

[uwe12]

Ob ich bei Position 78 oder 200 eintrage, ist egal. Denn irgendwie schneidet der nichts davon weg. Ich komme irgendwie nicht damit zurecht. Es kommt immer die Fehlermeldung ,,Bitmap ist ungültig".

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:TBitmap;
  ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    TBlobField(AdoDataset1.FieldByName('Bild')).SaveToStream(ms);
    ms.Position:=0;
    bmp:=TBitmap.Create;
    ms.SaveToFile('temp.bmp');
    try
      bmp.LoadFromStream(ms);
      Image1.Picture.Assign(bmp);
       finally
   FreeAndNil(bmp);

    end;
  finally
    FreeAndNil(ms);
  end;

     TBlobField(AdoDataset1.FieldByName('Bild')).LoadFromFile('temp.bmp');
  end;

[joachimd]

Zitat:

Zitat von uwe12

Ob ich bei Position 78 oder 200 eintrage, ist egal. Denn irgendwie schneidet der nichts davon weg. Ich komme irgendwie nicht damit zurecht. Es kommt immer die Fehlermeldung ,,Bitmap ist ungültig".

Es ist immer eins mehr oder weniger als man denkt [tm]!
Nimm Access, speicher darin ein Bild aus einer Datei. Dann speicher es über TBlobField(...).SaveToFile ab und vergleiche mit einem Hex-Editor, wo denn das durch Access verwurstelte Bild mit der gleichen Signatur anfängt wie das Original (42 4D ...) und schwupps, solltest Du die OLE-Header-Länge haben.
Frage: ist es eigentlich ein Bitmap oder zufällig ein JPEG - oder sogar noch was anderes?

[uwe12]

ne, das ist schon ein Bitmap.

[uwe12]

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

[maron]

Das ist aber komisch o.O
Mich tät aber auch mal interessieren, wie das funktioniert.