hi,
ich habe gerade mir Bibliotheken angefangen.
mit dieser prozedur rufe ich JPEG-Bilder auf:
Delphi-Quellcode:
procedure TPMain.JPEG(ResName: String; ResType: PChar);
var
h :HINST;
r :TResourceStream;
j :TJPEGImage;
begin
h := LoadLibrary('Pegasus.dll');
if h <> 0 then
begin
r := TResourceStream.Create(h,ResName,ResType);
j := TJPEGImage.Create;
try
j.LoadFromStream(r);
PBack.Picture.Assign(j);
finally
j.Free;
r.Free;
end;
end;
FreeLibrary(h);
end;
Wenn ich nun schreibe :
kommt: EResNotFound: Titel wurde nicht gefunden
Aber warum??? Die Prozedur ist auch deklriert und mit Gif-Bildern funktioniert das.
.res und .rc sind im anhang