Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.02.2010, 19:31   #1
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию как программно получить IP?

всем привет, как программно получить IP? буду благодарен
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 06.02.2010, 19:39   #2
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

воспользоваться поиском... тырк ...еще delphi-world
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 06.02.2010, 22:32   #3
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

Цитата:
Сообщение от raxp Посмотреть сообщение
воспользоваться поиском... тырк ...еще delphi-world
спасибо.а не подскажешь еще какая именно из этих функций мне нужна и как она работает?по моему вот эта
Код:
function ips:string;
var WSAData: TWSAData;
    p:PHostEnt;
    Name: array [0..$FF] of Char;
    t:pchar;
begin
 WSAStartup($0101, WSAData);
 getHostName(name, $FF);
 p:= GetHostByName(Name);
 t:=inet_ntoa(PInAddr(p.h_addr_list^)^);
 WSACleanup;
 result:= string(t)
end;
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 08.02.2010, 12:43   #4
DeDoK
Форумчанин
 
Аватар для DeDoK
 
Регистрация: 05.11.2007
Сообщений: 392
По умолчанию

пишешь эту функцию а потом например так

Код:
procedure Button1Click(Sender : TObject);
begin
ShowMessage(ips);
end;
DeDoK вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как программно создать форму? viter.alex Microsoft Office Word 10 08.09.2015 09:00
Как программно получить путь до папки Application Data для пользователя LocalService? bzzz Win Api 3 23.09.2009 09:30
Как программно работать с equation? Тупой Microsoft Office Word 10 22.09.2009 22:37
Как программно сформировать меню??? nikmay Общие вопросы Delphi 2 14.09.2009 10:51
Как Программно создать раздел E:\ KWN, lnc Общие вопросы Delphi 18 27.08.2009 13:37