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

Вниз

Как правельно сделать пинг?   Найти похожие ветки 

 
Sunrice   (2005-10-13 14:07) [0]

В общем задача такая, нужно что бы программа посылала ICMP-пакеты на сервер, если сервер доступен, передавала значение n"ой переменной - 1, если сервер недоступен - 0.
С ShellAPI(или другим компонентом, выполняющим подобные ф-ции) раньше работать не приходилось, понятия не имею как это возможно осуществить. Подскажите пожалуйсто. Спасибо.


 
Digitman ©   (2005-10-13 14:18) [1]

см. ICMPSendEcho()


 
Sunrice   (2005-10-13 14:22) [2]

Какой компонент?


 
Digitman ©   (2005-10-13 14:26) [3]

никакой.
это эксп.ф-ция в составе ICMP.DLL

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


 
Sunrice   (2005-10-13 14:28) [4]

Digitman ©   (13.10.05 14:26) [3]
Просто я незнаю что нужно в uses прописывать.


 
Digitman ©   (2005-10-13 14:30) [5]

если будешь использовать Indy, то ничего не надо.

ты же не удивляешься, что бросив на форму кнопку тебе не приходится при этом ничего в uses прописывать ?


 
Sunrice   (2005-10-13 14:33) [6]

Digitman ©   (13.10.05 14:30) [5]
Эм, забыл добавить, что приложение консолевое %)


 
Fay ©   (2005-10-13 14:45) [7]

2 Sunrice   (13.10.05 14:33) [6]
Создай новое формоваевое приложение и кинь на Form1.
Посмотри на uses.


 
Sunrice   (2005-10-13 15:09) [8]

[Error] Unit1.pas(28): Undeclared identifier: "ICMPSendEcho"
[Error] Unit1.pas(28): Undeclared identifier: "TIdICMPClient"

В любом случаи.


 
Digitman ©   (2005-10-13 15:25) [9]


> В любом случаи.


в каком таком "любом случаи" ?

в случае с ICMPSendEcho() тебе нужно импортировать эту ф-цию из icmp.dll, т.е. прежде чем обращаться к ней ты должен описать ее Паскаль-прототип (см. описание ф-ции в msdn.microsoft.com)

в случае же с TIdICMPClient у тебя в палитре компонентов Делфи должна присутствовать закладка с Инди-компонентами "Indy Clients" .. иначе непонятно, что ты бросал на форму)


> забыл добавить, что приложение консолевое


консолевое оно у тебя будет или неконсолевое - строго по колено)


 
Sunrice   (2005-10-13 15:28) [10]

в случае же с TIdICMPClient у тебя в палитре компонентов Делфи должна присутствовать закладка с Инди-компонентами "Indy Clients" .. иначе непонятно, что ты бросал на форму)

> забыл добавить, что приложение консолевое

консолевое оно у тебя будет или неконсолевое - строго по колено)
Как я это выполню, если консоль? =)


 
Digitman ©   (2005-10-13 16:12) [11]


> Как я это выполню, если консоль? =)


ну а как ты это выполнишь, если, к примеру, "бросить" нужно не какой-то там заумный TIdICMPClient, а обычный "таймер" ? то бишь знакомый до боли TTimer ?

суть-то - одна и та же)


 
Sunrice   (2005-10-13 18:47) [12]

Digitman ©   (13.10.05 16:12) [11]
Незнаю сути. Пояснити.
У меня всё сплошь "Undeclared identifier".


 
Sunrice   (2005-10-13 22:28) [13]

Digitman ©   (13.10.05 16:12) [11] ,2ALL.
Объясните пожалуйсто поэтапно, как пропинговать сервер, до меня никак не доходит =/



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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
14-1129701752
Rentgen
2005-10-19 10:02
2005.11.06
удаленно(COM1-RS232) запустить программу


3-1127813135
Wolferio
2005-09-27 13:25
2005.11.06
Удаление всех записей в базе.


1-1129547697
Oleg_
2005-10-17 15:14
2005.11.06
как задать шрифт заголовка окна под win 2003


14-1129711273
vecna
2005-10-19 12:41
2005.11.06
Тааак.... список непонятных моментов в Дельфи начинает расти


14-1129217046
ArtemESC
2005-10-13 19:24
2005.11.06
Дизассемблер-редактор





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский