Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

ошибка при определении MAC-адреса   Найти похожие ветки 

← →
idef   (2002-06-19 16:10) [0]

Скачал я исходники MiTeC System Information Component
Выковырял оттуда определение MAC-адреса, поцепил на форму поля.
Все работает.
Потом перенес все в свой проект, а там не работает.
Функция NbLanaEnum возвращает код ошибки $07 illegal buffer address.
Что можно сделать?
Код функции:
function NbLanaEnum: TLana_Enum;
var
NCB: TNCB;
L_Enum: TLana_Enum;
RetCode: Word;
begin
{$IFDEF WIN32}
FillChar(NCB, SizeOf(NCB),0);
FillChar(L_Enum, SizeOf(TLana_Enum),0);
NCB.Command:=NCB_ENUM;
NCB.Buf:=@L_Enum;
NCB.Length:=Sizeof(L_Enum);
RetCode:=NetBiosCmd(NCB);
if RetCode<>NRC_GOODRET then begin
L_Enum.Length:=0;
L_Enum.Lana[0]:=Byte(RetCode);
end;
{$ELSE}
L_Enum.Length:=1;
L_Enum.Lana[0]:=0;
{$ENDIF}
Result:=L_Enum;
end;

---

← →
idef   (2002-06-19 16:45) [1]

Все оказалось очень просто.
Надо было включить Optimization в опциях компилятора.
Всем спасибо.

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.009 c