Скачать: 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 вся ветка

Скачать: CL | DM;



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