Wieso willst du die Ladefunktion in der
DLL einbauen?
Machs doch so z.B.
Delphi-Quellcode:
...
var
GetHighIndex : function : Integer; stdcall;
...
Lib := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'MyDll.dll'));
@GetHighIndex := nil;
if (Lib <> 0) then
begin
GetHighIndex := GetProcAddress(Lib, 'GetHighIndex');
If Assigned(GetHighIndex) then
HighIndex := GetHighIndex;
end;
if (Lib <> 0) then
for Index := 1 to HighIndex do
begin
LoadPic := 'Bild' + IntToStr(Index);
ResStream := TResourceStream.Create(Lib, LoadPic, 'JPEG');
TempJpeg := TJpegImage.Create;
TempJpeg.LoadFromStream(ResStream);
Result.Picture.Bitmap.Assign(TempJpeg);
...
Die einzige Funktion, die in der
DLL sein muss ist die GetHighIndex, wie sie oben schon erklärt wurde.