Архив форумов ЦИТФорума

[Александр]

Как в Delphi узнать IP-адрес своей машины.

[ilya]

можно прочитать из регистров

CString LocalNetCard="3com";
CString IpLocal;
BOOL GetLocalIp()
{
int i,intIp[4],j;
HKEY hKey1,hKey2;
DWORD dwType;
DWORD cData=1000;
char AdapterStr[180],Ip[100],byteIp[5];
char str[80];

if(RegOpenKeyEx
// KEY_ALL_ACCESS
(HKEY_LOCAL_MACHINE,"System\\CurrentControlSet\\Services\\Class\\Net",.. == ERROR_SUCCESS)
{
for(i = ; i

[ilya]

Это код на С
Есть более странный вариант,но он подходит
для случая если тебе сервер динамически определяет IP. так как тогда в регистре будет
0.0.0.0
Создай BAT file
напиши в нём route print
запусти его : my.bat >>c:\my.log
и считай там IP из my.log

[Sebas]

Я в дельях не силён, но код с двумя или поменянной сетевухой работать не будет!
Нужно через WinSock

[ilya]

да - в этом случае из регистра не прочитаешь
но второй вариант сработает

[Alexy]

если с db хоста порядок то:
hostent* hostInfo = gethostbyname(gethostname());

если нет можно попробовать изращение:
int getsockname (
SOCKET s,
struct sockaddr FAR* name,
int FAR* namelen
);

а вместо sockaddr* подсунуть sockaddr_in*
struct sockaddr_in{
short sin_family;
unsigned short sin_port;
struct in_addr sin_addr;
char sin_zero[8];
};

По горячим заверениям дедушки Билли Berkley sockets поддерживаются. Так что, что-нибудь должно сработать.