Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2011.10.09;
Скачать: [xml.tar.bz2];

Вниз

Как узнать ip-адрес?   Найти похожие ветки 

 
Rembo2010   (2010-10-31 23:55) [0]

Доброго всем времени суток!) Скажите пожалуйста как узнать ip-адрес на компьютере НО НЕ ЛОКАЛЬНЫЙ?
Т.е. я написал прогу, которая должна будет на компе друга определить его ip и прислать его мне...


 
Rembo2010   (2010-11-01 00:09) [1]

Не локальный, т.е. внешний.


 
Anatoly Podgoretsky ©   (2010-11-01 00:23) [2]

> Rembo2010  (01.11.2010 00:09:01)  [1]

На компьютере может не быть "внешнего" адреса - норма.


 
Rembo2010   (2010-11-01 00:35) [3]

Ну не на компьютере, тот который в интернете, например, вот есть такой сайт http://www.whatismyip.com/automation/n09230945.asp
и содержимое сайта состоит только из 1 строчки -твоего нелокального) IP-адреса, как его можно например в Memo или ListBox перевести программно?


 
Rembo2010   (2010-11-01 00:37) [4]

Т.е. как бы из моей программы нужно пропарсить этот сайт? Как это сделать в delphi, как это сделать в delphi, объясните пожалуйста!


 
Anatoly Podgoretsky ©   (2010-11-01 00:53) [5]

> Rembo2010  (01.11.2010 00:35:03)  [3]

Для этого надо знать топологию или применять другие методы, например
обращение к внешнему ресурсу и там определять.


 
Плохиш ©   (2010-11-01 00:54) [6]

Для начала, надо прочитать названия закладок в панеле компонентов.


 
Anatoly Podgoretsky ©   (2010-11-01 00:55) [7]

> Rembo2010  (01.11.2010 00:37:04)  [4]

Там нечего распарсивать, там возвращается одна строка с адресом
Он уже распарсен.


 
zemich ©   (2011-06-05 22:53) [8]

у меня была таая же проблема сегдня
вот код:
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
   b:Tstream;
begin
b:=Tstream.Create;
s:=idHTTP1.get(‘http://www.myip.ru/’);
memo1.Lines.Text:=s;
end;


 
brother ©   (2011-06-06 05:23) [9]

> b:=Tstream.Create;

где уничтожение?


 
Dennis I. Komarov ©   (2011-06-06 09:32) [10]


> где уничтожение?

А на кой? Узнал чего хотел, а там трава не расти...


 
Dennis I. Komarov ©   (2011-06-06 09:33) [11]


> Т.е. я написал прогу, которая должна будет на компе друга
> определить его ip и прислать его мне...

За каким? Он тебе отправлять будет, вот и смотри IP отправителя...


 
Очень злой   (2011-06-11 14:59) [12]


> Rembo2010   (31.10.10 23:55)
>
> Доброго всем времени суток!) Скажите пожалуйста как узнать
> ip-адрес на компьютере НО НЕ ЛОКАЛЬНЫЙ?
> Т.е. я написал прогу, которая должна будет на компе друга
> определить его ip и прислать его мне...


И что тебе даст его IP-адрес?

Вот например у моего компа 2 IP-адреса:
192.168.12.237 и 192.168.2.10, других нет

Это тебе что-то даст?


 
Dimka Maslov ©   (2011-06-11 15:19) [13]


>
> Вот например у моего компа 2 IP-адреса:
> 192.168.12.237 и 192.168.2.10, других нет


Как это нет? А 127.0.0.1 уже отменили?


 
Юрий Зотов ©   (2011-06-11 20:46) [14]

Из чата:

xxx: Дайте мне IP какого-нить лоха, я его щас забаню
yyy: 127.0.0.1
System: xxx покинул чат


 
Очень злой   (2011-06-23 11:51) [15]


> Как это нет? А 127.0.0.1 уже отменили?


Ну если это тоже считать, то кроме 127.0.0.1 там еще офигенный диапазон 127.0.0.0/8



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2011.10.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.003 c
15-1308342599
Юрий
2011-06-18 00:29
2011.10.09
С днем рождения ! 18 июня 2011 суббота


15-1308169803
Юрий
2011-06-16 00:30
2011.10.09
С днем рождения ! 16 июня 2011 четверг


2-1308531707
Германн
2011-06-20 05:01
2011.10.09
Некоторые особенности создания PopupMenu.


15-1308428998
Юрий
2011-06-19 00:29
2011.10.09
С днем рождения ! 19 июня 2011 воскресенье


2-1308433781
Германн
2011-06-19 01:49
2011.10.09
Функция TRegistry.OpenKey. Что делать если...?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский