Objekte einer TObjectList direkt aus dem Speicher lesen / in ihn schreiben

[Benmik]

So, und für Folgendes bitte ich um eine Erklärung.
Ich lade ein Bitmap aus einer Datei, zeichne sie auf die Form, speichere sie per Stream in einer Datei, lese sie wieder aus und zeichne sie erneut. Ergebnis: Beide Bilder werden richtig angezeigt.
Danach lade ich ein JPG aus einer Datei, extrahiere eine Bitmap und zeige sie an. Ergebnis: Sie wird richtig angezeigt.
Danach speichere sie per Stream in einer Datei, lese sie wieder aus und zeichne sie erneut. Ergebnis: Das Bild wird auf dem Kopf stehend angezeigt.
In allen 4 Fällen ist im InfoHeader der Wert von biHeight positiv.

Delphi-Quellcode:

procedure TForm1.ZeigeBitmap;
var Bmp:TBitmap; Stream : TMemoryStream; FStream:TFileStream; BildAnz:integer;
const Verz = 'C:\Temp\'; JPGDatei = 'Test.JPG'; BMPDatei = 'Test.bmp'; DBDatei = 'Test.db';
begin
  // Bitmap laden
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile(Verz + BMPDatei);
  // Auf Form zeichnen
  Self.Canvas.Draw(10,10,Bmp);
  // In DB speichern
  FStream := TFileStream.Create(Verz  + DBDatei,fmCreate);
  BildAnz := 1;
  FStream.WriteData(BildAnz);
  Bmp.SaveToStream(FStream);
  FStream.Free;
  Bmp.Free;
  // Wieder laden und anzeigen
  Bmp := TBitmap.Create;
  Stream := TMemoryStream.Create;
  Stream.LoadFromFile(Verz + DBDatei);
  Stream.ReadData(BildAnz);
  Bmp.LoadFromStream(Stream);
  Self.Canvas.Draw(10,250,Bmp);
  Bmp.Free;
  // Thumbnail aus JPG-Datei
  Bmp := TBitmap.Create;
  ExtractThumbnail(Bmp,Verz + JPGDatei,400,0);
  // Auf Form zeichnen
  Self.Canvas.Draw(450,10,Bmp);
  // In DB speichern
  FStream := TFileStream.Create(Verz  + DBDatei,fmCreate);
  BildAnz := 1;
  FStream.WriteData(BildAnz);
  Bmp.SaveToStream(FStream);
  FStream.Free;
  Bmp.Free;
  // Wieder laden und anzeigen
  Bmp := TBitmap.Create;
  Stream := TMemoryStream.Create;
  Stream.LoadFromFile(Verz + DBDatei);
  Stream.ReadData(BildAnz);
  Bmp.LoadFromStream(Stream);
  Self.Canvas.Draw(450,250,Bmp);
  Bmp.Free;
  Stream.Free;
end;

procedure ExtractThumbnail(Bitmap:TBitmap; FileName:string; DesiredWidth:integer; DesiredHeight:integer);
var
  Malloc:IMalloc;
  DesktopFolder,SourceFolder:IShellFolder;
  eaten,flags,prio:cardinal;
  id:PItemIDList;
  ex:IExtractImage;
  s:TSize;
  h:HBITMAP;
  w:WideString;
begin
  try
    OleCheck(SHGetMalloc(Malloc));
    OleCheck(SHGetDesktopFolder(DesktopFolder));
    flags:=0;
    w:=ExtractFilePath(FileName);
    OleCheck(DesktopFolder.ParseDisplayName(0,nil,PWideChar(w),eaten,id,flags));
    try
      OleCheck(DesktopFolder.BindToObject(id,nil,IShellFolder,SourceFolder));
    finally
      Malloc.Free(id);
    end;
    w:=ExtractFileName(FileName);
    OleCheck(SourceFolder.ParseDisplayName(0,nil,PWideChar(w),eaten,id,flags));
    If SourceFolder.GetUIObjectOf(0,1,id,IExtractImage,nil,ex) <> S_OK
      then exit;
    s.cx:=DesiredWidth;
    s.cy:=DesiredHeight;
    If (s.cx > 160) or (s.cy > 90)
      then flags:=IEIFLAG_SCREEN or IEIFLAG_OFFLINE or IEIFLAG_QUALITY or IEIFLAG_ORIGSIZE
      else flags:=IEIFLAG_SCREEN or IEIFLAG_OFFLINE or IEIFLAG_QUALITY;
    prio:=0;
    SetLength(w,MAX_PATH);
    OleCheck(ex.GetLocation(PWideChar(w),Length(w)*2,prio,s,32,flags));
    OleCheck(ex.Extract(h));
    Bitmap.Handle:=h;
  finally
    Malloc.Free(id);
    DesktopFolder:=nil;
    SourceFolder:=nil;
    Malloc:=nil;
  end;
end;

[Uwe Raabe]

Hört sich irgendwie nach diesem Fehler an: GetObject() Always Returns Positive Height For DIB Sections

[Uwe Raabe]

Du kannst übrigens den upside-down Effekt auch schon beim ersten Zeichnen hervorrufen:

Delphi-Quellcode:

    ExtractThumbnail(Bmp, Verz + JPGDatei, 400, 0);
    Bmp.Dormant;

Damit ist eigentlich schon sehr wahrscheinlich, daß Windows offenbar das biHeight im InfoHeader falsch angibt.

Es hat somit nicht mit dem Speichern und Laden zu tun.

[himitsu]

Nein, das Bild hat natürlich immer eine positive Höhe,
aber wie intern die Daten im RAM liegen, das hat damit absolut nichts zu tun, sondern das hängt vom Datenformat ab.

Beispiel: BigEndian und LittleEndian

[Uwe Raabe]

Zitat von himitsu:

Nein, das Bild hat natürlich immer eine positive Höhe,

Sicher, aber der Parameter biHeight im InfoHeader gibt über sein Vorzeichen die Orientierung an - normalerweise.

Zitat:

For uncompressed RGB bitmaps, if biHeight is positive, the bitmap is a bottom-up DIB with the origin at the lower left corner. If biHeight is negative, the bitmap is a top-down DIB with the origin at the upper left corner.

[himitsu]

Na dann.

Aber wer glaubt schon einer Dokumentation?
Wenn ich das täte, dann wäre in Delphi Vieles nicht "vorhanden", weil die OH immer behauptet "hier steht nix".