Einzelnen Beitrag anzeigen

Luki206
(Gast)

n/a Beiträge
 
#6

AW: PNG aus Stream in TImage einfügen

  Alt 25. Feb 2014, 20:05
Ja hat es, denke ich mal. Wenn nicht gerade bescheid sagen und ich mache einen neuen Thread auf
Folgendes: Ich habe jetzt geschafft eine *.png File aus der .dll zu laden nur ist das die Falsche und im Moment sind auch nur zwei Grafiken dort hinterlegt. Wenn ich also mein Programm starte wird das falsche Bild angezeigt. Ich weiß nicht wie ich's erklären soll deshalb jetzt hier mein Code um die Datei zu laden:
Delphi-Quellcode:
procedure TFrmHaupt.LoadPict(ort: Integer);
var
myStream: TResourceStream;
h: Cardinal;
LGraphic: TGraphic;
begin
 h:= LoadLibrary('LW_MP_166.dll');
 mystream := TResourceStream.CreateFromID(h, ort, RT_RCDATA);
 LGraphic := TPngImage.Create;
 try
 LGraphic.LoadFromStream(mystream);
 ImgPlayPau.Picture.Assign(LGraphic);
 finally
   mystream.Free;
   LGraphic.Free;
 end;
end;
Also die Variable ort ruft ja die Datei auf bzw. da wo sie gespeichert ist. Wenn ich da eine 1 drinnen habe kommt die falsche Grafik. Mit anderen Zahlen kommt Ressource nicht gefunden nur weiß ich nicht woran das liegt und ich habe auch schon meine Ressourcen-Namen in der DLL in 1 und 2 geändert und trotzdem geht es nicht. Ich denke aber mal ich machen einen tierisch-großen Fehler oder?
  Mit Zitat antworten Zitat