| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Net Bios

Chlavik ©   (2003-06-19 17:31:00) 

Почему следуюющая функция не находит у меня сетевого адаптера??? У меня 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:00) [1]

выделяй память под NCB через GetMem
NetBios() хочет чтобы структура начиналась с адреса памяти, кратного sizeof(DWORD)

---

Наверх