ping

← →
ZX48 © (2006-08-17 12:04) [0]

Мастера! Доброе время суток! Подскажите пожалуйста как сделать в программе например по нажатию на кнопку пинг определенного ипа?

← →
Сергей М. © (2006-08-17 12:20) [1]

см. TIdICMP (Закладка "Indy Clients")

← →
ZX48 © (2006-08-17 12:38) [2]

а можно поподробнее - вот я написал в обработчике нажатия кнопки следующее

idicmp1.Ping("172.16.0.2")

- ничего не происходит

← →
Сергей М. © (2006-08-17 12:43) [3]

А что по-твоему должно происходить ?

← →
ZX48 © (2006-08-17 12:47) [4]

я думаю что должен пойти пинг на этот вот ip. или он идет но мне не видно?

← →
Сергей М. © (2006-08-17 12:50) [5]

> или он идет но мне не видно?

А где ты смотришь-то, чтобы что-то "видно" было ?

Вызвал, понимаешь ли, метод - и успокоился на этом)

Про события этого компонента в справке читал ?

← →
ZX48 © (2006-08-17 12:52) [6]

сейчас еще раз гляну справку

← →
Ketmar © (2006-08-17 12:52) [7]

> [4] ZX48 © (17.08.06 12:47)
внутрб кабеля заглязывал? там битики бегают.

← →
ZX48 © (2006-08-17 12:54) [8]

любите вы тут поглумиться... зачем тогда создавать конференцию для начинающих?

← →
Ketmar © (2006-08-17 13:01) [9]

> [8] ZX48 © (17.08.06 12:54)
любим. и будем, пока народ ленится читать справку и хотя бы минимально учить матчасть. "начинающим" -- это не "я ничего не знаю, но хочу крутую софтину". предполагается, что базовые знания всё-же присутствуют.

← →
ZX48 © (2006-08-17 13:20) [10]

базовые присутствуют. спарвка млин не открывается никак... :(

← →
Ketmar © (2006-08-17 13:23) [11]

орешек.

← →
zdm © (2006-08-17 13:30) [12]

Ketmar..Тогда лучше и не отвечайте вообще....
ZX48...посмотри вот эту ссылку http://www.ishodniki.ru/art/artshow.php?id=76&cat=1&show=delphi

← →
ZX48 © (2006-08-17 13:36) [13]

Спасибо zdm! Сейчас буду пробовать! А то с этим indy что-то разобраться не могу.

← →
Ketmar © (2006-08-17 13:44) [14]

> [12] zdm © (17.08.06 13:30)
опять советчик? в сад, если не понимаешь мотивов подобных ответов.

← →
Сергей М. © (2006-08-17 13:47) [15]

> ZX48

Можно было и справку не читать.

Обнаружение в Инспекторе Объектов события OnReply у данного компонента должно было заставить тебя чесать репу)

Ну а ежели репа не зачесалась, то и справка тебе что мертвому припарка)

И попробуй возразить)..

← →
ZX48 © (2006-08-17 14:10) [16]

Возражать не собираюсь. Вот только не понимаю от куда такая агрессия? Ладно - проехали

idICMPClient1.Host:="192.168.0.1";
idICMPClient1.ping("",1);
memo1.Text:=memo1.text+#13#13+inttostr(idICMPClient1.ReplyStatus.BytesReceived);

Всем спасибо!

← →
Ketmar © (2006-08-17 14:22) [17]

> [16] ZX48 © (17.08.06 14:10)
> не понимаю от куда такая агрессия
надоела чужая лень.

← →
ZX48 © (2006-08-17 16:07) [18]

Еще вопрос. Просмотрел спарвку - но ничего ненашел из того что бы мне подошло в таком вот случае. ЕСли в имени хоста ввести например "qwerty" то естественно такой узел естественно не будет обнаружен. Так вот делфи выдает ошибку, но как такую ошибку получить и обработать я никак не пойму. try except не получается. может что подскажите...

← →
Dmitrij_K (2006-08-17 16:18) [19]

> try except не получается.

Легко

try IdIcmpClient1.Host := "qwerty"; IdIcmpClient1.Ping; except on e:Exception do ShowMessage(e.ClassName+#13+e.Message) end

← →
ZX48 © (2006-08-17 16:21) [20]

Спасибо, а то я вот как пытался сделать:

try
idICMPClient1.ping("",1);
except
showmessage ("error") ;
end;

← →
Сергей М. © (2006-08-17 16:22) [21]

> try except не получается

А что получается ?

Ну вызвал ты метод Ping(), при этом имя пингуемого хоста заведомо не существует - что дальше ?

Ты хочешь сказать, что ни try-блок ни события компонента не подскажут тебе об этой лаже, так ?

← →
ZX48 © (2006-08-17 16:26) [22]

кстати мессага так и не появилась - а значит
> Легко
>
> try
> IdIcmpClient1.Host := "qwerty";
> IdIcmpClient1.Ping;
> except
> on e:Exception do
> ShowMessage(e.ClassName+#13+e.Message)
> end

тоже не работает :(

← →
Сергей М. © (2006-08-17 16:29) [23]

Ну тады тебе пора переквалифицироваться в управдомы.

Ибо исх-ки Инди доступны, а ты даже извилиной не пошевелил , чтобы использовать сей факт.

← →
ZX48 © (2006-08-17 16:29) [24]

> А что получается ?
>
> Ну вызвал ты метод Ping(), при этом имя пингуемого хоста
> заведомо не существует - что дальше ?
>
> Ты хочешь сказать, что ни try-блок ни события компонента
> не подскажут тебе об этой лаже, так ?

Так и выходит, что не работает связка try except. Я не понимаю почему, поэтому у здесь и задал этот вопрос.

← →
Ketmar © (2006-08-17 16:31) [25]

я не эксперт в инди, та и нет их у меня, но: разве пингер не асинхронный?

← →
ZX48 © (2006-08-17 16:36) [26]

> Сергей М. © (17.08.06 16:29) [23]
> Ну тады тебе пора переквалифицироваться в управдомы.
>
> Ибо исх-ки Инди доступны, а ты даже извилиной не пошевелил
> , чтобы использовать сей факт.

Знаете, исходники, исходники... зачем тогда форум? И почему например на вопрос типа "Что здесь неверно if checkbox1.checked:=true..." вы отвечаете, а на мой вопрос ответить не можете? Что у вас за выборка такая?

← →
Сергей М. © (2006-08-17 16:42) [27]

> ZX48 © (17.08.06 16:36) [26]

Слушай, а ты не обнаглел ли, парень ?
Есть демо-проект в составе Инди с использованием TIdICMPClient. Ты почему не тестировал его и нет разбирался в нем перед тем как здесь канючить, а ?

← →
zdm © (2006-08-17 16:46) [28]

Извини нет времени разбираться, поэтому кидаю только ссылки,,,кстати статья с нашего любимого сайта..... http://www.delphimaster.ru/articles/icmp.html

2 Сергей М. - Следите за своими репликами. Я Вам между прочим не грубил и не собираюсь! Дальнейшие перепалки с Вами считаю неуместными...

2 zdm - спасибо за ответ!

И не надо тут парить мозги)

При Host = "Черт те что и с боку бантик" код "<-- здесь" НИКОГДА не будет выполнен)

procedure TForm2.Button1Click(Sender: TObject);
begin
idicmpclient1.Ping();
end; <-- здесь

А код

procedure TForm2.Button1Click(Sender: TObject);
begin
try
idicmpclient1.Ping();
except
showmessage("Лажа !")
end;
end;

прекрасно демонстрирует работу try-блока, выводя соотв.сообщение)

> [26] ZX48 © (17.08.06 16:36)
потому что на твой вопрос ответ уже есть, а ты ленишься этот ответ поискать. тебе удобнее ныть и строить из себя несчастного. а тут собрались если и не совсем "падонки", то уж явно не "утешатели".

На самом деле, люди....мы все тупим иногда и не по детски....давайте жить дружно, если у кого-то из нас чего-то не получается, мы задаем вопрос в форуме, а ответы типа "HELP почитай" и дураку понятно, что почитали-бы , и сто пудово вопрос в форум не кидали...... Для смягчения обстановки случай из жизни...
Бывшая подруга несколько лет назад работала в какой то конторе и не пойми чем там занималась. Как то раз сидела за компом и что-то считала, причём решила воспользоваться правой частью клавы. Стала кликать - по нулям. Комп никак не отреагировал. Нажала намлок - тоже ничего. Ввиду пмс и нашей ссоры решила вывалить кучу негативных эмоций на системщика. Вызвала, наорала, стучала по клавишам - где цифры на экране?!?!?!?!?!? Системщик с обречённым видом ( типа - тупость безгранична ) отодвинул от клавиатуры подальше ... калькулятор!!!!!!! Всё заработало.

> ZX48

И если не умеешь пользоваться встр.отладчиком, то так и говори, перенеся свой вовпрос в соотв.раздел форума, а не демонстрируй здесь свой гонор)

> [32] zdm © (17.08.06 16:57)
> и дураку понятно, что почитали-бы, и сто пудово вопрос в форум не кидали
а вот это как раз не факт. ты думаешь, откуда это раздражённое "кури справку"?

Знаете, "обидить художника легко", а "обрубив руки однажды" чел может уже и не задавать вопросы в форумах, или вообще бросить писать,,,, так что давайте относиться друг-к-другу с уважением ,,или вообще не отвечать.

> [35] zdm © (17.08.06 17:10)
если бросит -- тем лучше. тут ужы были плакания по поводу "мастера должны уговаривать новеньких программировать, а не пинать". это неверный подход. всё обстоит точно наоборот.

может ты и прав

Все понял! Если отрабатывать Delphi то: Сначала Ошибка "...Socket Error #11001 Host not found", затем только выдается мессага, что в коде.
Если же просто запустить скомпилированный exe то все работает нормально, т.е. ошибки больше не выскакивает, а сразу мессага. О таких подводных камнях не сразу сообразишь...

дебагер, дебагер.........как много в этом слове

> [38] ZX48 © (17.08.06 17:55)
угу. "stop on delphi exceptions" в настройке отладчика, F1. это не подводный камень, это документированное поведение. %-)

ping Найти похожие ветки