Ressource nicht gefunden => aber da

[Johannes013]

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 :

Code:

JPEG('Titel','JPEG');

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

[jaenicke]

Also ein Fehler ist schon einmal, dass du relative Pfadangaben (bzw. gar keine) benutzt. Das ist wie russisches Roulette spielen...

Das hat allerdings nichts mit dem Fehler zu tun, den du geschrieben hast. Ich probiere es kurz aus.

[Johannes013]

ja, hat sich schon erledigt: hab' als ResType 'JPEG' statt 'JPG' genommen........