Передача данных по сети на MAC-уровне

[ДралсяСошибками]

min@y™, добрался до Вашего архивчега и сразу озадачила функция PacketGetAdapterNames

FDLL_LAST_RESULT_DW:= PacketGetAdapterNames(Names, @Size); // возвращает 0

[min@y™]

добрался до Вашего архивчега и сразу озадачила функция PacketGetAdapterNames

И чего теперь?

[min@y™]

Это просто код возврата.

  // Класс-список адаптеров
  TAdapterList = class(TObjectList)
  private
    // Поля
    FDLL_LAST_RESULT_DW: DWORD; // для отладки (последний код возврата DLL-функции) <------------- !!!!!!!!!!!!!!

    // Поля событий
    FOnLogMessage: TAdapterListDebugEvent;
    FOnAdapterLogMessage: TAdapterDebugEvent;
    FOnAdapterMessageReceive: TAdapterPacketReceiveEvent;
    FOnAdapterError: TAdapterErrorEvent;

    // Функции доступа к полям/свойствам
    function GetAdapter(const Index: Integer): TAdapterItem; // доступ по индексу к физ. адаптерам

    // Технологические функции
    // procedure UpdateAdapters; // составление списка доступных сетевых адаптеров
  protected
    procedure DoLogMessage(const Message: string);
  public
    // Конструктор и деструктор
    constructor Create; reintroduce;
    destructor Destroy; override;

    // Методы
    function UpdateAdapters: Integer; // составление списка доступных сетевых адаптеров
    procedure AssignAdaptersToStrings(ALines: TStrings); // составление списка строк с привязкой к объектам адаптеров

    procedure CloseAllAdapters(); // закрытие открытых адаптеров

    // Свойства
    property DLL_LAST_RESULT_DW: DWORD read FDLL_LAST_RESULT_DW;
    property Items[const Index: Integer]: TAdapterItem read GetAdapter; default;

    // События
    property OnLogMessage: TAdapterListDebugEvent read FOnLogMessage write FOnLogMessage;
    property OnAdapterLogMessage: TAdapterDebugEvent read FOnAdapterLogMessage write FOnAdapterLogMessage;
    property OnAdapterMessageReceive: TAdapterPacketReceiveEvent read FOnAdapterMessageReceive write FOnAdapterMessageReceive;
    property OnAdapterError: TAdapterErrorEvent read FOnAdapterError write FOnAdapterError;
  end;

[ДралсяСошибками]

Не хочет почему-то эта функа работать у меня на компе, не возвращает список адаптеров((( Погуглил, вроде есть такая беда у кого-то, пока хз, с чем это связано((

[min@y™]

попробуй запускать с правами админа для начала.

[min@y™]

Не хочет почему-то эта функа работать у меня на компе

покажи кусочек кода, штоль...

[ДралсяСошибками]

Модуль uAdapters.pas

function TAdapterList.UpdateAdapters: Integer;
var
  Names: array[0..ADAPTERS_BUFFER_SIZE - 1] of Char; // буфер под строку из DLL
  Size: DWORD;
  Index: Integer;
  Temp: string;
  NewAdapter: TAdapterItem;
begin
  FillChar(Names, SizeOf(Names), #00);
  //pNames:= @Names;
  Size:= SizeOf(Names);
  FDLL_LAST_RESULT_DW:= PacketGetAdapterNames(Names, @Size); // Тут долго стоит, видимо из-за WaitObjectSingle....
// а потом Size = 0, а в Names нули(( #0
  //DoLogMessage(Format('DLL_LAST: 0x%.8X, Size: %d.', [FDLL_LAST_RESULT_DW, Size]));

  // составление списка
  Index:= 0;
  while (Index < ADAPTERS_BUFFER_SIZE - 1) and (Names[Index] <> #0) do

Права админа не причём, я под админом))

[min@y™]

ну и чем я могу помочь?
тестировал на win7x32 и win8x64. нигде такая шляпа не вылезала.
на других компах пробовал?
winpcap корректно установлен? другие программы, юзающие winpcap, работают?

[ДралсяСошибками]

Насчёт корректности установки не уверен, возможно версии dl не сходятся, сейчас по сравниваю)))

Заработало, мои dll в винде оказались младше Ваших из архива((

[min@y™]

вот тебе хэши для сравнения.