|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.01.2009, 23:42 | #1 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 177
|
узнать ip
привет всем! как можно узнать свой ip адресс и сохранить его в файле!??
|
16.01.2009, 23:46 | #2 |
C++ & PHP & Asm
Форумчанин
Регистрация: 06.12.2008
Сообщений: 300
|
В uses допиши WinSock после implementation добавь
Код:
Код:
|
16.01.2009, 23:53 | #3 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 177
|
у меня вот сдесь ошибка
код: if P <> nil then может сделаете исходничек...буду весьма благодарен!)) |
17.01.2009, 00:03 | #4 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Да, уважаемый(ая) QunneD.
Но не менее уважаемый гуру всех сетей и протоколов предложил: Цитата:
|
|
17.01.2009, 00:08 | #5 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 177
|
попробывал сделать...ip показывается только локальный!((
|
17.01.2009, 01:13 | #6 |
C++ &amp; PHP &amp; Asm
Форумчанин
Регистрация: 06.12.2008
Сообщений: 300
|
Ай короче уже обсуждалось, прокрути колесико самый низ, и ты увидишь темы
|
17.01.2009, 17:17 | #7 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 177
|
ну кто нить реально поможет???
|
17.01.2009, 18:53 | #8 |
Банхаммер
Участник клуба
Регистрация: 17.02.2007
Сообщений: 1,754
|
поиск по форуму вперед... эта тема была буквально на той неделе, и в гугле это будет первая ссылка по запросу УЗНАТЬ IP DELPHI, сколько можно лениться7
http://programmersforum.ru/showthread.php?t=35214 |
17.01.2009, 19:10 | #9 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 177
|
Код:
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; сделал..а как мне задействовать функцию? |
17.01.2009, 20:48 | #10 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
вызвать её.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Узнать свой IP | Titan123 | Работа с сетью в Delphi | 2 | 03.10.2008 17:46 |
Узнать Received | XAOC-forever | Работа с сетью в Delphi | 0 | 30.09.2008 14:49 |
Узнать IP | Черничный | Работа с сетью в Delphi | 5 | 11.08.2008 20:36 |
Узнать о клике | Dj_smart | Работа с сетью в Delphi | 0 | 13.05.2008 21:10 |
Узнать шары по Ip | Hollander | Работа с сетью в Delphi | 2 | 27.12.2007 10:48 |