Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: Wie nutze ich den TResourceStream richtig?

   
    by Harry Stahl, 16. Dez 2013
  OH, nun hab ich es!!
  
  RT_BITMAP ist eine Delphi-Konstante, die in Winapi.windows so definiert ist:
  
  {$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.
  ...
• Forum: Sonstige Fragen zu Delphi

  AW: Wie nutze ich den TResourceStream richtig?

   
    by Harry Stahl, 15. Dez 2013
  Was echt seltsam ist:
  
  Wenn ich
  
  
  procedure TForm28.FormCreate(Sender: TObject);
  begin
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'Bitmap_1'); // Variante 1 funktioniert
  end;
• Forum: Sonstige Fragen zu Delphi

  AW: Wie nutze ich den TResourceStream richtig?

   
    by Harry Stahl, 15. Dez 2013
  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:
  
  
  procedure TBitmap.LoadFromResourceName(Instance: THandle; const ResName: string);
  var
  Stream: TCustomMemoryStream;
• Forum: Sonstige Fragen zu Delphi

  AW: Wie nutze ich den TResourceStream richtig?

   
    by Harry Stahl, 15. Dez 2013
  Danke erst mal für die Antwort.
  
  Bis zu "Bitmap.loadfromstream" kommt das Programm erst gar nicht.
  
  Schon
  
  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?
• Forum: Sonstige Fragen zu Delphi

  Wie nutze ich den TResourceStream richtig?

   
    by Harry Stahl, 15. Dez 2013
  Habe gerade ein Problem: Im folgenden Beispiel funktioniert die erste Variante, die zweite aber nicht. Warum?
  
  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...