VPF::GetProcAddress(hWship6Dll, 'getnameinfo') дает nil - Форум программистов

malor

Дата 21.10.2012, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 632
Регистрация: 17.11.2006

Репутация: нет
Всего: нет

Что-то функция несимпортировалась...

Код

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

...
type

  {$EXTERNALSYM LPFN_GETNAMEINFO}
  LPFN_GETNAMEINFO = function(sa: psockaddr; salen: u_int; host: PChar; hostlen: u_int; serv: PChar; servlen: u_int; flags: Integer): Integer; stdcall;
...

var
  hWship6Dll : THandle = 0; // Wship6.dll handle
  getnameinfo: LPFN_GETNAMEINFO = nil;
...
procedure InitLibrary;
var
  er : Integer;
begin
  hWship6Dll := LoadLibrary( Wship6_dll );
  if hWship6Dll <> 0 then
  begin
    getnameinfo := GetProcAddress(hWship6Dll, 'getnameinfo');  {do not localize}
    if Assigned(getnameinfo) then begin
        Exit;
    end;
    er := GetLastError();     // 127  ERROR_PROC_NOT_FOUND   Не найдена указанная процедура
    CloseLibrary;
  end;
end;

...
initialization
  InitLibrary;
finalization
  CloseLibrary;

Код взят отсюда или отсюда.

Delphi XE

Присоединённый файл ( Кол-во скачиваний: 1 )

LoadLibraryWship6.zip 85,04 Kb

bems

Дата 21.10.2012, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(http://msdn.microsoft.com/en-us/library/windows/desktop/ms738532%28v=vs.85%29.aspx)

The getnameinfo function was added to the Ws2_32.dll on Windows XP and later. If you want to execute an application using this function on earlier versions of Windows (Windows 2000, Windows NT, and Windows Me/98/95), then you need to include the Ws2tcpip.h file and also include the Wspiapi.h file. When the Wspiapi.h include file is added, the getnameinfo function is defined to the WspiapiGetNameInfo inline function in the Wspiapi.h file. At runtime, the WspiapiGetNameInfo function is implemented in such a way that if the Ws2_32.dll or the Wship6.dll (the file containing getnameinfo in the IPv6 Technology Preview for Windows 2000) does not include getnameinfo, then a version of getnameinfo is implemented inline based on code in the Wspiapi.h header file. This inline code will be used on older Windows platforms that do not natively support the getnameinfo function.

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »