Var Res : TResourceStream;
ReklameID : LongWord; // or THandle
ReklameNu : Integer;
...
ReklameID := LoadLibrary('.\Reklame'); // load resource-dll
ReklameNu := 100; // or 101, determined by .rc file
...
If ReklameID <> 0 then
Begin
Res := TResourceStream.CreateFromID(ReklameID,
ReklameNu,RT_RCDATA); // picture
Try
Picture.Graphic := JPeg.TJPegImage.Create;
Picture.Graphic.LoadFromStream(Res);
Finally
Res.Free;
End;
End;Batchfile: reklame.bat
<----include after this line---->
@Echo off
Echo Compile reklame-resource and DLL
brcc32 Reklame.rc
if errorlevel 1 goto Error
dcc32 -m Reklame.dpr
If errorlevel 1 goto Error
Echo Done.
Goto Einde
:Error
Echo ERROR!!!
:Einde
<----do not include this line---->
brcc32-file: Reklame.rc
<----include after this line---->
100 RCDATA "Logo.jpg"
101 RCDATA "Company.jpg"
<----do not include this line---->
You can add more files with unique ID's if you like
Delphi-reklame-project: Reklame.dpr
<----include after this line---->
Library Reklame;
{$R *.RES}
{$R Reklame.res}
Begin
End.
<----do not include this line---->
[code]
That should give you an idea to get things started.
My original source was more complex as I also get size and filetype parameters from the DLL, which are stored inside a stringtable. s-)
HTH
TonHu
