Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#10

Re: 3 Fragen zu DLLs als Resource Datei für Text und Bilder

  Alt 23. Nov 2003, 05:54
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.
  Mit Zitat antworten Zitat