Delphi DLL ből JPEG betöltés

Delphi DLL ből JPEG betöltés
2007-07-26T20:24:19+02:00
2007-07-26T20:32:16+02:00
2022-11-05T08:40:36+01:00
L0@D3R
Hello.
Tud valaki segíteni abban, hogy hogyan kell DLL ből JPEG filet betölteni egy Image komponensre?


RES ből betudom tölteni (elvileg) csak nem akarom hogy az EXE nagy legyen, ezért DLL ben tárolom a dolgokat.

Valószínűleg az a baj, hogy a JPEG betöltő függvény RES ből akarná az adatot, közben pedig DLL ben van.

A meglévő kód:
function GetResourceAsJpeg(const resname: string): TJPEGImage; var Stream: TResourceStream; begin Stream := TResourceStream.Create(hInstance, ResName, JPEG'); try Result := TJPEGImage.Create; Result.LoadFromStream(Stream); finally Stream.Free; end; end; procedure TFrmSplash.FormCreate(Sender: TObject); var h: THandle; Jpg: TJPEGImage; begin h := LoadLibrary('ClientResources.DLL'); try if h <> 0 then Begin Jpg := GetResourceAsJpeg('Splash'); Image1.Picture.Bitmap.Assign(Jpg); Jpg.Free; End ELSE Begin ShowMessage('Ellenőrizd a ''ClientResources.dll'' fájlt!'); End; finally FreeLibrary(h); end; End;


Köszönöm szépen aki tud segíteni. (50 csokitallér a fizetség)

u.i.: A DLL rendesen meg van csinálva; hibátlan!
Mutasd a teljes hozzászólást!
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd