AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Resourcen einbinden

Ein Thema von Willie1 · begonnen am 15. Jul 2017 · letzter Beitrag vom 18. Jul 2017
Antwort Antwort
Seite 4 von 4   « Erste     234
Willie1

Registriert seit: 28. Mai 2008
232 Beiträge
 
Delphi 10.1 Berlin Starter
 
#31

AW: Resourcen einbinden

  Alt 18. Jul 2017, 11:10
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.
  Mit Zitat antworten Zitat
Glados
Online

Registriert seit: 10. Jul 2017
375 Beiträge
 
#32

AW: Resourcen einbinden

  Alt 18. Jul 2017, 11:29
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();

Geändert von Glados (18. Jul 2017 um 11:31 Uhr)
  Mit Zitat antworten Zitat
Willie1

Registriert seit: 28. Mai 2008
232 Beiträge
 
Delphi 10.1 Berlin Starter
 
#33

AW: Resourcen einbinden

  Alt 18. Jul 2017, 15:14
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.

Geändert von Willie1 (18. Jul 2017 um 16:25 Uhr) Grund: Nachtrag
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2017 by Daniel R. Wolf