Текущий архив: 2003.08.28;
Скачать: CL | DM;
Вниз
Net Bios Найти похожие ветки
← →
Chlavik © (2003-06-19 17:31) [0]Почему следуюющая функция не находит у меня сетевого адаптера??? У меня WinXp... впроде всё сделано правильно!
function GetLana: Boolean;
var
NCB: TNCB;
LanaEnum: TLanaEnum;
begin
FillChar(NCB, SizeOf(NCB), 0);
with NCB do
begin
ncb_command := Char(NCBENUM);
ncb_buffer := PChar(@LanaEnum);
ncb_length := SizeOf(TLanaEnum);
NetBios(@NCB);
( ncb_retcode = Char(NRC_GOODRET) Почему следуюющая функция не находит у меня сетевого адаптера??? У меня WinXp... впроде всё сделано правильно!
function GetLana: Boolean;
var
NCB: TNCB;
LanaEnum: TLanaEnum;
begin
FillChar(NCB, SizeOf(NCB), 0);
with NCB do
begin
ncb_command := Char(NCBENUM);
ncb_buffer := PChar(@LanaEnum);
ncb_length := SizeOf(TLanaEnum);
NetBios(@NCB);
Result := (ncb_retcode = Char(NRC_GOODRET)) and (Byte(LanaEnum.length) > 0);
end;
end;
← →
MikeP © (2003-06-20 14:31) [1]выделяй память под NCB через GetMem
NetBios() хочет чтобы структура начиналась с адреса памяти, кратного sizeof(DWORD)
Страницы: 1 вся ветка
Текущий архив: 2003.08.28;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.009 c
