Показать сообщение отдельно
  #5  
Старый 04.10.2006, 14:40
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Прежде чем вызывать GetProcAddress, нужно загрузить библиотеку LoadLibrary('имя.dll'), а в GetProcAddress передавать hendle, полученный от LoadLibrary. Примерно так:
Код:
 
type
  TFuncPar = function (S: PChar): integer; stdcall;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ip: PChar;
  hLib:THandle;
  status: integer;
begin
   hLib := LoadLibrary( 'имя.dll' );
   Func := GetProcAddress( hLib, 'cas_Func' );
   if @Func <> nil then
   begin
      ip := '192.168.0.101';
      status := Func( ip );
      ShowMessage( IntToStr( status ) );
   end;
   FreeLibrary( hLib );
end;
Посмотри пример от Aristarh Dark, там все это показао.
Ответить с цитированием