Текущий архив: 2007.01.28;
Скачать: CL | DM;
Вниз
Как узнать IP-адрес компьютера? Найти похожие ветки
← →
Сергей М. © (2006-08-23 12:54) [40]
> n0name (23.08.06 12:30) [39]
> IP не у сетевого интерфейса, а задется в сетевом подключении
При регистрации и настройке сетевого подключения как раз и происходит регистрация и настройка сетевых интерфейсов, с которыми это подключение будет ассоциировано.
Одно и то же сет.подключение м.б. ассоциировано с одним или более сет.интерфесов. Разумеется, если временно отключено, ни один из интерфейсов, ассоциированных с этим подключением, не доступен, не говоря уже о параметрах интерфейса.
← →
Rouse_ © (2006-08-23 13:26) [41]
> Да. Я всегда думал что уникальность сетевого оборудования
> выражается в MAC-адресе.
Ты ни разу не видел свичей с IP адресом?
> Дык соединения то существует.
Какое соединение? Кабель выдернут...
Плюс к этому у одного интерфейса может быть несколько IP адресов.
← →
saxon (2006-08-23 14:13) [42]
> Rouse_ © (23.08.06 13:26) [41]
Открой свойства network connections (всех), сделай Disable.
По не руски потому как нет такой OS.
← →
Rouse_ © (2006-08-23 14:19) [43]
> saxon (23.08.06 14:13) [42]
Послушай, не нужно мне обьяснять что нужно сделать, я это и так знаю.
← →
saxon (2006-08-23 14:48) [44]
> Rouse_ © (23.08.06 14:19) [43]
Так а че за вопросы тогда такие?
← →
Rouse_ © (2006-08-24 10:12) [45]
> Так а че за вопросы тогда такие?
Чудак, ты гдето видел, что я задал вопрос?
← →
n0name (2006-08-24 10:45) [46]
> Какое соединение? Кабель выдернут...
Кабель отсоединен. Соединение активно.
← →
saxon (2006-08-24 11:31) [47]
> Rouse_ © (24.08.06 10:12) [45]
А в посте [37] не ты вопрос написал/задал?
← →
Rouse_ © (2006-08-24 12:25) [48]Мдя, как говориться, шиза косила наши ряды :)
> Кабель отсоединен. Соединение активно.
С кем активно?
> А в посте [37] не ты вопрос написал/задал?
Ты слышал когда нибудь такое понятие как MS TCP Loopback interface, или адаптер типа не MIB_IF_TYPE_ETHERNET, а MIB_IF_TYPE_LOOPBACK?
Следи за моими губами, отключаем все соединения, а потом выполняем следующий код:procedure TEventLogDemoMainForm.Button1Click(Sender: TObject);
type
TMibIfRow = packed record
wszName : array[0..255] of WideChar;
dwIndex : DWORD;
dwType : DWORD;
dwMtu : DWORD;
dwSpeed : DWORD;
dwPhysAddrLen : DWORD;
bPhysAddr : array[0..7] of Byte;
dwAdminStatus : DWORD;
dwOperStatus : DWORD;
dwLastChange : DWORD;
dwInOctets : DWORD;
dwInUcastPkts : DWORD;
dwInNUCastPkts : DWORD;
dwInDiscards : DWORD;
dwInErrors : DWORD;
dwInUnknownProtos : DWORD;
dwOutOctets : DWORD;
dwOutUCastPkts : DWORD;
dwOutNUCastPkts : DWORD;
dwOutDiscards : DWORD;
dwOutErrors : DWORD;
dwOutQLen : DWORD;
dwDescrLen : DWORD;
bDescr : array[0..255] of Char;
end;
TMibIfArray = array [0..512] of TMibIfRow;
PMibIfRow = ^TMibIfRow;
PMibIfArray = ^TMibIfArray;
type
TMibIfTable = packed record
dwNumEntries : DWORD;
Table : TMibIfArray;
end;
PMibIfTable = ^TMibIfTable;
const
MIB_IF_TYPE_LOOPBACK = 24;
var
GetIfTable: function(pIfTable: PMibIfTable;
pdwSize: PULONG; bOrder: Boolean): DWORD; stdcall;
FLibHandle : THandle;
Table: TMibIfTable;
i : integer;
Size : integer;
begin
FLibHandle := LoadLibrary("IPHLPAPI.DLL");
if FLibHandle = 0 then Exit;
@GetIfTable := GetProcAddress(FLibHandle, "GetIfTable");
if not Assigned(GetIfTable) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
Size := SizeOf(Table);
if GetIfTable(@Table, @Size, false ) = 0 then
for i:= 0 to Table.dwNumEntries-1 do
if Table.Table[I].dwType = MIB_IF_TYPE_LOOPBACK then
begin
ShowMessage("Можно работать с адресом 127.0.0.1");
Exit;
end;
FreeLibrary(FLibHandle);
end;
← →
имя (2006-08-25 13:53) [49]Удалено модератором
Страницы: 1 2 вся ветка
Текущий архив: 2007.01.28;
Скачать: CL | DM;
Память: 0.53 MB
Время: 0.034 c
