Resourcen einbinden

[Willie1]

Hallo, auf die Gefahr hin, dass ich nerve: aber es geht nicht!!!

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  ResStr: TResourceStream;
begin
  ResStr:=TResourceStream.Create(HInstance,'JpgImage_1',PWideChar('RT_RCDATA'));
  Image1.Picture.Graphic:=TJpegImage.Create;
  Image1.Picture.Graphic.LoadFromStream(ResStr);
  ResStr.Free;
//  Image1.Picture.Graphic.Free;
end;

bei Zeile 5 klemmt es:
wieder Resource ... nicht gefunden.
Die Resource JpgImage_1 ist ein gebunden.

bei Delphi 2005/6 hat es geklappt natürlich ohne PWideChar.

Willie.

N.T. kann das Projekt als Zip hochladen, wenn gewünscht.

[Glados]

Du schreibst TResourceStream.Create(HInstance,'JpgImage_1',PWideChar('RT_RCDATA'));
Aber es muss heißen TResourceStream.Create(HInstance, 'JpgImage_1', RT_RCDATA);

Und  Image1.Picture.Graphic:=TJpegImage.Create; ganz weg.

Und Image1.Picture.LoadFromStream(); . Nicht Image1.Picture.Graphic.LoadFromStream();

[Willie1]

Glados, ist klar RT_RCDATA ist eine Konstante vom Typ PWideChar. Jetzt klappt es. Endlich!

Image1.Picture.LoadfromStream() geht nicht.

[dcc32 Fehler] ResTester_h.pas(44): E2362 Auf protected-Symbol TPicture.LoadFromStream kann nicht zugegriffen werden

Meine Lösung über TJepImage funktioniert.

Noch eine Ergänzung: es fällt mir auf, wenn ich eine Ikone einbinde, wird im Windows-Explorer nicht mehr die Default-Ikone RX, sondern die eingebundene Ikone angezeigt. Ich weiß nicht, ob das im Sinne des Delphi-Erfinders ist.


MfG Willie.