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)

Net Bios Найти похожие ветки