VPF::IP-адрес локальной машины - Форум программистов

Competitor

Дата 24.8.2005, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 440
Регистрация: 23.3.2005
Где: Tula

Репутация: нет
Всего: -1

Нужен код программы на Delphi, чтобы узнать IP-адрес локальной машины. Какие компоненты при этом надо использовать?

--------------------

Блог .Net программиста

Rrader

Дата 24.8.2005, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 1
Всего: 191

Код


uses
  WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

Competitor

Дата 26.8.2005, 08:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 440
Регистрация: 23.3.2005
Где: Tula

Репутация: нет
Всего: -1

RraderСпасибо. Получилось

--------------------

Блог .Net программиста

dark73

Дата 27.1.2006, 01:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 22.1.2006

Репутация: нет
Всего: нет

как реализовать такую вешь?
если мой ip 127.0.0.1 то ни чего не делаем, а если он допустим 246.146.25.78 то делаем кукую-нибудь функцию smile

Snowy

Дата 27.1.2006, 10:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(Competitor @ 24.8.2005, 16:17

)

узнать IP-адрес локальной машины

Поправочка: не адрес, а адреса. Один адрес, только если ты не подключен к сети.

Цитата(Competitor @ 24.8.2005, 16:17

)

Какие компоненты при этом надо использовать?

Не нужно никаких компонентов.
Загляни в FAQ - там аж 4 примера.
Добавлено @ 10:11
http://forum.vingrad.ru/index.php?act=modu...amp;section=758

dark73

Дата 27.1.2006, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 22.1.2006

Репутация: нет
Всего: нет

Да, я и имел в виду адреса
На сколько я понял надо юзать вот этот код:

Код


uses Registry; 
function TCPIPInstalled: boolean; 
var  
  Reg:   TRegistry;  
  RKeys: TStrings;  
begin  
 Result:=False;  
 try  
  Reg := TRegistry.Create;  
  RKeys := TStringList.Create;  
  Reg.RootKey:=HKEY_LOCAL_MACHINE;  
  if Reg.OpenKey('\Enum\Network\MSTCP', False) Then  
   begin  
     reg.GetKeyNames(RKeys);  
     Result := RKeys.Count > 0;  
   end;  
 finally  
  Reg.free;  
  RKeys.free;  
 end;

и вот этот

Код


var 
  WSAData: TWSAData; 
  SockAddrIn: TSockAddrIn; 
  Host: PHostEnt; 
  // Эти переменные объявлены в Winsock.pas
begin 
  if WSAStartup($101, WSAData) = 0 then begin 
    Host := GetHostByName(@Localname[1]); 
    if Host<>nil then begin 
      SockAddrIn.sin_addr.S_addr:= longint(plongint(Host^.h_addr_list^)^); 
      LocalIP := inet_ntoa(SockAddrIn.sin_addr); 
    end; 
    WSACleanUp; 
  end; 
end;

но все равно я не могу разобраться в них

Akella

Дата 1.2.2006, 12:57 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

Как определить все IP на моём компьютере (Delphi World 6 Pro)

Код


Функции GetTcpTable, GetUdpTable. 

Импорт GetTcpTable: 

unit TcpTable;
interface
type
  PDWord = ^Longword;
  PMIB_TCPROW = ^TMIB_TCPROW;
  TMIB_TCPROW = record
    dwState: LongWord;
    dwLocalAddr: LongWord;
    dwLocalPort: LongWord;
    dwRemoteAddr: LongWord;
    dwRemotePort: LongWord;
  end;
  PMIB_TCPTABLE = ^TMIB_TCPTABLE;
  TMIB_TCPTABLE = record
    dwNumEntries: LongWord;
    table: array[0..0] of TMIB_TCPROW;
  end;

function GetTcpTable(var TcpTable: PMIB_TCPTABLE;
  var Size: PDWord; bOrder: Boolean): LongWord; stdcall

implementation

function GetTcpTable; external 'Iphlpapi.dll' name 'GetTcpTable';

end.
Вызов GetTcpTable: 

{$R-}
Entries := 16;
Sz := SizeOf(TMIB_TCPTABLE) + SizeOf(TMIB_TCPROW) * (Entries - 1);
pMibTable := nil;
try
  repeat
    ReallocMem(pMibTable, Sz);
    Res := GetTcpTable(pMibTable^, Sz, False);
  until Res <> ERROR_INSUFFICIENT_BUFFER;
  if Res <> NO_ERROR then
  begin
    ShowMessage(SysErrorMessage(Res));
    exit;
  end;
  for Entries := 0 to pMibTable.dwNumEntries - 1 do
  begin
    < Делать что - то >
  end;
finally
  FreeMem(pMibTable);
end;
{$R+}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »