Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Не могу запустить WinPcap

Автор: Assd 18.8.2008, 12:18

Пишу на Delphi. Не могу запустить процедуру PacketGetAdapterNames. вот код:

Код


unit WinPcap;

interface
Uses Packet32;

function GetAdapters : hResult;

implementation
function GetAdapters : hResult;
const
 maxbuf = 1024*4;
 
var
 buf : array [0 .. maxbuf * 2 - 1] of char;
 buflen : longword;

begin
 result := 0;
 buflen := maxbuf;
 fillchar(buf, SizeOf(buf), 0);

 if not PacketGetAdapterNames(buf, @buflen) then
 begin
  exit;
 end;

end;

initialization
 Packet32.LoadPacketDll;
 GetAdapters;

Почему то возрвращает false, буффер пустой, размер равен 0. Пробовал через Pcap_GetAdapternames и GetAdapternamesEx тоже не работает.

В примере magmonsock все работает, и имена адаптеров получаються, а в моей программе нет. Ничего не пойму. Помогите понять.