логике ошибки фигачу, не пойму....
var
ifTable : PMIB_IFTABLE;
size, corSize: DWORD;
Buffer : ^Byte;
...
// Первым вызовом определяем размер буфера для данных
case GetIfTable(ifTable, size, true) of
ERROR_INSUFFICIENT_BUFFER:
begin
ShowMessage('ERROR_INSUFFICIENT_BUFFER. Buffer size: ' + IntToStr(size));
GetMem(Buffer, size);
ifTable := PMIB_IFTABLE(Buffer);
end;
end;
//Вторым вызовом получаем непосредственно данные
case GetIfTable(ifTable, size, true) of
NO_ERROR:
begin
ShowMessage('No error');
for var i := 0 to ifTable.dwNumEntries - 1 do
begin
ListBox1.Items.Add(ifTable.table[i].wszName);
end;
end;
ERROR_INSUFFICIENT_BUFFER:
begin
ShowMessage('ERROR_INSUFFICIENT_BUFFER. Buffer size: ' + IntToStr(size));
end;
end;
Выводит корректно, но в поле ifTable.dwNumEntries у меня почему-то содержится число 34, хотя должно содержаться число строк в таблице, как я понял. Если использовать Length всё работает корректно, выводит одну запись, но насколько корректны эти данные я хз
Вопрос исчерпан, пришлось вручную "топать" по памяти и собирать таблицу for var i := 0 to ifTable^.dwNumEntries - 1 do begin ifRow := PMIB_IFROW(ptSeek); try ListBox1.Items.Add(TEncoding.UTF8.GetString(ifRow.bDescr)); Except on Exception do ListBox1.Items.Add('?????') end; ptSeek := ptSeek + SizeOf(_MIB_IFROW); end;
По коду не понятно правильно ли инициализированы переменные для GetIfTable
Это буквально весь код. А инициализированы они в GetMem
там size должен быть выставлен, ибо по нему принимается решение что тебе именно возвращать
Обсуждают сегодня