Автор DrZloDey задал вопрос в разделе Другие языки и технологии
Как с помощью Delphi узнать свой внешний IP? и получил лучший ответ
Ответ от Mike Weaser[гуру]
... Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, WinSock;....procedure TForm1.Button1Click(Sender: TObject);var wVerReq: WORD; wsaData: TWSAData; i: PChar; h: PHostEnt; c: array[0..128] of char;begin wVerReq:=MAKEWORD(1, 1); WSAStartup(wVerReq, wsaData); GetHostName(@c, 128); h:=GetHostByName(@c); Edit2.Text:=h^.h_Name; i:=iNet_ntoa(PInAddr(h^.h_addr_list^)^); Edit1.Text:=i; WSACleanup;end;end.
Ответ от 1_and_0[гуру]
ух ты жь..., мне до такого, рости и рости ещё))))
ух ты жь..., мне до такого, рости и рости ещё))))
Ответ от Виктор Виктор[новичек]
у меня этот код показывает локальный IP Delphi XE8
у меня этот код показывает локальный IP Delphi XE8
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Как с помощью Delphi узнать свой внешний IP?
спросили в Интернет
Подскажите, будьте добры, как работает интернет, какая у него структура, начиная от Гейтса заканчивая мной?
Мда, Толя.. . А причем тут Гейтс и интернет? И как ты подсчитал доход, я вот этого понять не могу.
подробнее...
Подскажите, будьте добры, как работает интернет, какая у него структура, начиная от Гейтса заканчивая мной?
Мда, Толя.. . А причем тут Гейтс и интернет? И как ты подсчитал доход, я вот этого понять не могу.
подробнее...
спросили в Интернет
Что такое ДНС сервера!!!
Что такое нэйм сервер, ДНС
Что такое нэйм сервер, ДНС (Name server, DNS) и основные
подробнее...
Что такое ДНС сервера!!!
Что такое нэйм сервер, ДНС
Что такое нэйм сервер, ДНС (Name server, DNS) и основные
подробнее...
Что такое вирус Троян?
Может поможет вся инфа про ТРОЯНЦЕВ
Троянские программы
Троянские программы
подробнее...