169 похожих чатов

Товарищи, кто работа с iphelper? Или может я в самой

логике ошибки фигачу, не пойму....
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 всё работает корректно, выводит одну запись, но насколько корректны эти данные я хз

4 ответов

9 просмотров
Warfarellen- Автор вопроса

Вопрос исчерпан, пришлось вручную "топать" по памяти и собирать таблицу 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

Warfarellen- Автор вопроса
Александр (Rouse_) Багель
По коду не понятно правильно ли инициализированы п...

Это буквально весь код. А инициализированы они в GetMem

Warfarellen
Это буквально весь код. А инициализированы они в G...

там size должен быть выставлен, ибо по нему принимается решение что тебе именно возвращать

Похожие вопросы

Обсуждают сегодня

Добрый вечер. Есть вопрос, а может и предложение. Был у меня диалог в другой группе о делфи и я задался вопросом: "А нельзя ли в делфи цвет //коментария и {комментария} сде...
Kraszx
24
Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...
Александр (Rouse_) Багель
38
Всем привет! Подскажи, пожалуйста, как передать в TComboBox сразу значение и id записи. На Delphi я делал так: ComboBox1.Items.AddObject('Какое-то значение', Pointer(id запис...
Евгений
9
я так понимаю, я так подозреваю, что создание такого плагина для человека, кто умеет писать плагины для делфи потребует минут 5-10 времени. но это мое подозрение. хотелось бы ...
Kraszx
7
Коллеги, добрый вечер. Создаю коллекцию от TFPGMap, ключ - перечисление, значение - целое. Нужно отсортировать коллекцию по значению. Как это можно сделать?
Kirill Filippenok
11
Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
50
Привет, такой вопросик появился кажется ли вам что Rust слишком сложный/строгий для высокоуровневого программирования и слишком "безопасный"/строгий для низкоуровневого?
Крокант
10
Скажи а ты когда этот канал создавал ты уже дельфи не любил, или это со временем пришло?
Роман Лях (rgreat)
18
Всем привет! Использую кастомное модальное диалоговое окошко, все по классике - mrOK, mrCancel как ModalResult. Однако есть нюанс - в главной форме есть универсальный обработч...
Олег Гранишевский
20
This is a big issue. Just by being a citizen of a country, you are denied to contribute to Open Source software: https://youtu.be/L5Ec5jrpLVk?si=1iIuHnMPbCB4anV-
Sharuzzaman Ahmat Raslan
72
Карта сайта