Wie nutze ich den TResourceStream richtig?

[Harry Stahl]

Habe gerade ein Problem: Im folgenden Beispiel funktioniert die erste Variante, die zweite aber nicht. Warum?

Delphi-Quellcode:

procedure TForm28.FormCreate(Sender: TObject);
var
  ms : TResourceStream;
begin
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'Bitmap_1');  // Variante 1 funktioniert

  if FindResource (HInstance, 'Bitmap_1', 'BITMAP') <> 0 then begin // Variante 2 funktioniert nicht !!
    ms := TResourceStream.create (hInstance, 'Bitmap_1', 'BITMAP'); // (auch mit RT_BITMAP als Type-Qualifizierer nicht)
    Image1.Picture.Bitmap.LoadFromStream (ms);
    ms.Free;
  end;
end;

Es handelt sich um eine VCL-32-Bit Anwendung unter XE5, Windows 7, 64 Bit. Ich habe zuvor unter Menü Projekt, Resourcen und Bilder eine Bitmap-Datei hinzugefügt, als Typ wird im Resourcen-Dialog auch "BITMAP" aufgeführt und als Bezeichner "Bitmap_1".

Die Resource wird auch in die Exe gelinkt, habe ich mit einem Resource-Viewer kontrolliert, klappt schließlich ja auch in der ersten Variante.

[Uwe Raabe]

Das Format einer Bitmap als Resource entspricht nicht dem, was LoadFromStream erwartet. Dazu müsste noch eine TBitmapFileHeader vor der Resource stehen. Du kannst das gut sehen, wenn du dir die Implementation von LoadFromResourceName und LoadFromStream ansiehst.

[Harry Stahl]

Danke erst mal für die Antwort.

Bis zu "Bitmap.loadfromstream" kommt das Programm erst gar nicht.

Schon

Code:

if FindResource (HInstance, 'Bitmap_1', 'BITMAP') <> 0 then begin

wirft als Ergebnis 0 aus, d.h. die Resource wird erst gar nicht gefunden. Hat das auch seine Richtigkeit?

[Zacherl]

Nein :P Du solltest auf jeden Fall RT_BITMAP verwenden.

[Harry Stahl]

Das hatte ich ja auch schon probiert (oben im Source-Code vermerk). Auch wenn ich RT_BITMAP verwende, funktioniert es nicht.

Also sowohl FindResource nicht, als auch TResourceStream.create nicht.

In der VCL-Graphics it LoadFromResourceName wie folgt implementiert:

Code:

procedure TBitmap.LoadFromResourceName(Instance: THandle; const ResName: string);
var
  Stream: TCustomMemoryStream;
begin
  FreeContext;
  Stream := TResourceStream.Create(Instance, ResName, RT_BITMAP);
  try
    ReadDIB(Stream, Stream.Size);
  finally
    Stream.Free;
  end;
end;

"Stream := TResourceStream.Create(Instance, ResName, RT_BITMAP);"

entspricht ja meinem Ansatz (interessanterweise ist RT_Bitmap eine Stringvariable und enthält beim Aufruf nur einen leeren String)

[Zacherl]

RT_BITMAP ist eine PChar Konstante, also ein Pointer auf ein Zeichen. Der Zeiger kann also entweder auf eine valide (String) Adresse zeigen, oder aber einen Ordinalwert enthalten. Letzteres ist bei RT_BITMAP der Fall. Hier wird nur der reine Zahlenwert des Pointers interpretiert. Deshalb wird dir an dieser Stelle nur ein leerer String angezeigt, weil die Adresse natürlich ungültig ist.

[Harry Stahl]

Was echt seltsam ist:

Wenn ich

Code:

procedure TForm28.FormCreate(Sender: TObject);
begin
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'Bitmap_1');  // Variante 1 funktioniert
end;

mit dem Debugger verfolge, komme ich auf

Code:

TResourceStream.Create
TResourceStream.Initialize

und in letzterer procedure wird auch

Code:

FindResource(Instance, Name, ResType);

aufgerufen.

Dort wird die Resource gefunden!!
Warum nicht, wenn ich "FindResource" im Create-Ereignis der Hauptform aufrufe?

[Zacherl]

Machst du es denn jetzt mit RT_BITMAP oder mit 'BITMAP'? Bzw. was wird als ResType übergeben, wenn du die entsprechende Methode von TBitmap aufrufst? Auch RT_BITMAP nehme ich an oder?

[Harry Stahl]

OH, nun hab ich es!!

RT_BITMAP ist eine Delphi-Konstante, die in Winapi.windows so definiert ist:

Code:

{$EXTERNALSYM RT_BITMAP}
  RT_BITMAP = MakeIntResource(2);

Ich habe mich von der Beschreibung des Parameters ("Restype: PChar") in "TResourceStream.create" und diversen im Internet falsch kursierenden Beispielen irritieren lassen und ging davon aus, dass hier ein String erwartet wird.

Wenn man es also so schreibt:

Delphi-Quellcode:

ms := TResourceStream.Create(HInstance, 'Bitmap_1', RT_Bitmap);

dann funktioniert es wie gewünscht (also nicht 'RT_BITMAP' sondern einfach nur RT_Bitmap).

Und ja: Uwe hat natürlich auch recht, in der Resource ist ein Bitmap-FileStream, den man nicht direkt als Bitmap-Stream laden kann, muss man erst konvertieren (dafür kann man die procedure "TBitmapResource.SaveToStream(Stream: TStream);" aus dem mit Delphi mitgelieferten Demo "ResXplor" etwas abgewandelt verwenden).

Vielen Dank für die hilfreichen Hinweise!:thumb:

[Zacherl]

Immer gerne.

PChar bei Verwendung der Windows API kann öfters mal etwas irreführend sein, wenn man fest davon ausgeht, dass ein PChar wirklich ein String ist (was uns die Delphi Compiler Magic ja in den meisten Fällen glauben lässt). Über diesen Fallstrick bin ich damals, auch gestolpert, als ich mich erstmals ausführlich mit Resourcen beschäftigt habe.

Bei API Imports (GetProcAddress) beispielsweise ist es ebenfalls so, dass der "Name" der Funktion als PAnsiChar übergeben wird. Trotzdem akzeptiert die Funktion auch Ordinalwerte.

[Sir Rufo]

@Harry

Bei mir stelle ich in der IDE die Farbe für Strings auf rot ein.

Damit hätte dir eigentlich sofort bei

Delphi-Quellcode:

TBitmap.LoadFromResource

auffallen müssen, dass es dort eben kein string ist, sondern eine Konstante ;)

[himitsu]

Das hilft nicht viel.

Ich wusste vor Jahren wie es geht und hatte auch im Netz nach Lösungen gesucht, aber ich hatte dennoch auch erst wieder den String gesetzt.
(wunderschön, wieviele fehlerhafte Tutorials es gibt, welche ich auch fast alle durchging, als ich die Sprache des Manifest-Creator auf ResourceStream umstellte)
Und wenn du einfach nicht "weißt", daß dort kein String hingehört, dann wirst du es auch nicht bemerken, egal wie bunt das Ding ist ... das hätte da auch rosa blinken können.

Nja, bei mir war es dann auch noch, daß ich die Resource falsche erstellt hab und es selbst, als ich es beim Rumprobieren, zwischendurch richtig hatte, es dennoch nicht ging.
'ne Stunde später fand ich dann aber selber doch noch die Lösungen .... nicht daß noch jemand mitbekommt, wie doof ich mich da angestellt hatte. :angel: