Получение данных из сторонней dll

[Memfis1992]

как сделать так чтобы в memo например,можно было загрузить все имена процедур и функций ,которые есть в dll?То есть вот как всё должно быть...
на форме есть компонент опендиалог,кнопка и мемо,когда жмёте на кнопку вылетает окошко опендиалога ,там выбираешь dll файл и всё вышеописанное переходит в мемо!Такое можно сделать на дельфи?Заранее спасибо..просто очень интересно

[p51x]

Сделать можно. Как? Начните с изучения форматов длл и типов функций в ней.

[Memfis1992]

Сообщение от p51x

Сделать можно. Как? Начните с изучения форматов длл и типов функций в ней.

спасибо.за совет..теперь буду знать куда копать хоть=ъ

[Sparkman]

Сообщение от Memfis1992

как сделать так чтобы в memo например,можно было загрузить все имена процедур и функций ,которые есть в dll?То есть вот как всё должно быть...
на форме есть компонент опендиалог,кнопка и мемо,когда жмёте на кнопку вылетает окошко опендиалога ,там выбираешь dll файл и всё вышеописанное переходит в мемо!Такое можно сделать на дельфи?Заранее спасибо..просто очень интересно

Автор этой статьи все что вам нужно подробно описал

Копипастю нужный вам кусочек

Просмотр функций определенной DLL

Теперь посмотрим, как можно извлечь все имена функций из файлов PE формата, к которым и относится DLL. Структуру PE формата мы тут рассматривать не будем, следовательно, и исходник будет без пояснений.

Итак, создайте новый проект, бросьте на форму ListBox, в нём мы будем показывать имена функций.

Вот весь проект:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, 
Controls,
Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lb: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    cmdline   : String;
    ImageBase : DWord;
    DosHeader : PImageDosHeader;
    PeHeader  : PImageNtHeaders;
    PExport   : PImageExportDirectory;
    pname     : PDWord;
    name      : PChar;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

  procedure FatalOsError;
  begin
    ShowMessage(SysErrorMessage(GetLastError( )));
    Abort;
  end;

Var i: Integer;
begin
  try
    if (ParamCount( ) < 1) then
      Abort
    else
      cmdline := ParamStr(1);

    ImageBase := LoadLibrary(PChar(cmdline));
    if (ImageBase = 0) then  FatalOsError;

    try
      DosHeader := PImageDosHeader(ImageBase);
      if (DosHeader^.e_magic <> IMAGE_DOS_SIGNATURE) then  
FatalOsError;

      PEHeader := PImageNtHeaders(DWord(ImageBase) +
DWord(DosHeader^._lfanew));
      if (PEHeader^.Signature <> IMAGE_NT_SIGNATURE) then  
FatalOsError;

      PExport := PImageExportDirectory(ImageBase +
DWord(PEHeader^.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY
_EXPORT].VirtualAddress));
      pname   := PDWord(ImageBase + 
DWord(PExport^.AddressOfNames));

      For i := 0 to PExport^.NumberOfNames - 1 do begin
        name := PChar(PDWord(DWord(ImageBase)  + PDword(pname)^));
        lb.Items.Add(name);
        inc(pname);
      end;
    finally
      FreeLibrary(ImageBase);
    end;

  except
    Application.ShowMainForm := False;
    Application.Terminate;
  end;
end;

end.

[Memfis1992]

наконец -то отличный ответ..лучше и быть не может!!Большое спасибо Sparkman!!!!