Milyen függvények vannak egy DLL-ben?

A mellékelt példaprogram megnyitása előtt az ExportList.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.

A komponens használatához annak DllFileName nevű property-jében kell megadni a DLL állomány nevét, elérési útvonallal. Ezt követően a DLL-ben lévő függvények máris kiolvashatók a Functions nevű TStringList típusú property-ből.

Nézzük a megvalósítást: ha a megadott állomány létezik, akkor állunk neki csak a függvény nevek kiolvasásához.

  if FDllFileName<>'' then begin
    if FileExists(FDllFileName) then begin

A MapAndLoad függvénnyel fogjuk megnyitni és betölteni az adott DLL-t, a megnyitást csak olvashatóként tesszük meg. Eredményül egy LoadedImage típusú struktúra kerül feltöltésre, mely a további munkánkhoz lesz szükséges.

      if MapAndLoad(PChar(FDllFileName), nil, @li, true, true) then begin
        try

A következő lépésben az ImageDirectoryEntryToData függvényt hívjuk meg, hogy lekérdezhessük a DLL-ben lévő exportált függvények leírását adó adatterületet. Ehhez első paraméterként az adatok bázis címét kell megadni, mely az előbbi függvényhívásunk LoadImage struktúrájában adott a MappedAddress mezőben.

A függvény harmadik paramétere a lekérdezendő adatot adja meg, mivel minket most az exportált függvény lista érdekel, így az IMAGE_DIRECTORY_ENTRY_EXPORT konstanst használjuk, de ha arra lennénk kíváncsiak, hogy a DLL milyen más DLL által szolgáltatott függvényeket használ, akkor az IMAGE_DIRECTORY_ENTRY_IMPORT konstanst kellene használnunk. További lehetőségeket az alábbi táblázat foglalja össze:

A függvény sikeres futása esetén egy ImageExportDirectory struktúrára mutató pointert ad vissza.

          ied:=ImageDirectoryEntryToData(li.MappedAddress, false, IMAGE_DIRECTORY_ENTRY_EXPORT, a);
          if ied<>nil then begin

Felhasználva a kapott adatot, most már elérhetjük az exportált függvények neveit. Ehhez az ImageRvaToVa függvényt használjuk.

            wa:=ImageRvaToVa(li.FileHeader, li.MappedAddress, DWORD(ied^.AddressOfNames), ish);

Most már közvetlenül tudjuk olvasni a neveket, melyhez egy ciklust használunk, hogy az összes függvény nevet kiolvashassuk. A ciklusmagban az egyes nevek lekérdezéséhez ismét az ImageRvaToVa függvény ad segítséget ehhez.

            for i := 0 to ied^.NumberOfNames-1 do begin
              FFunctions.Add(PChar(ImageRvaToVa(li.FileHeader, li.MappedAddress, wa^[i], ish)));
            end;
          end;
        finally
          UnMapAndLoad(@li);
        end;
      end;
    end;
  end;