Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.01 c
1-95902
stany
2002-08-17 19:23
2002.08.29
Помогите,плиз... мучаюсь с ListView


3-95718
ZDN
2002-08-09 12:48
2002.08.29
Перевод БД из под Progress на Interbase


1-95812
lipskiy
2002-08-15 01:46
2002.08.29
Можно ли получить имя процедуры/функции в строковую переменную?


1-95735
Kif
2002-08-16 20:09
2002.08.29
Есть вопрос...


1-95798
Aszbed
2002-08-19 14:47
2002.08.29
Все равно не понял :о)