Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Коммандная строка в Delphi 
V
    Опции темы
ActivX
  Дата 15.9.2008, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 6.6.2008
Где: Новомичуринск

Репутация: нет
Всего: нет
Добрый день, вечер или ночь уважаемые господа программисты, у меня к вам большая просьба, оказать помощь в следующем вопросе:

Как прочитать строки коммандной строки в delphi?

Через telnet мне надо с помощью нажатия кнопки отключить питание у одного канала который прописан в модеме:
      telnet ping 000.000.000.000
      дальше надо ввести имя пользователя и пароль, после выбрать несколько пунктов...с задержкой примерно 5 часов


Я так понимаю здесь нужно использовать условия...если нажата кнопка то выполняем следующее через n - промежуток времени 

smile 
Заранее спасибо за уделенное мне время.
PM MAIL   Вверх
ActivX
Дата 15.9.2008, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 6.6.2008
Где: Новомичуринск

Репутация: нет
Всего: нет
Мне только нужно узнать как из командной строки строки, извините за каламбур, выводить в delphi, а уж что с ними дальше делать я думаю разберусь...плиз...помогит smile )
PM MAIL   Вверх
mr.Anderson
Дата 15.9.2008, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128
ActivX, ParamStr(x), где X - номер параметра командной строки. Это для случая, когда ты хочешь прочитать данные, переданные через командную строку твоему приложению.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
ActivX
  Дата 16.9.2008, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 6.6.2008
Где: Новомичуринск

Репутация: нет
Всего: нет
mr.Anderson , спасибо что откликнулись на мою просьбу, а можно описать пример открытия командной строки в Delphi, не только для прочтения данных, а ещё и для внесения туда команд...
 smile 
PM MAIL   Вверх
Frees
Дата 16.9.2008, 08:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
вот пример с ping, заточить под твои нужды и все
Код

Function Ping(host:string):boolean;
var params, CommandLine:string;
      t:TStringList;
      i:integer;
begin
Params := Format('-s%d ', [32]);
Params := Params+Format('-c%d ', [1]);
CommandLine := Format('ping %s%s', [Params, host]);
t:=TStringList.Create;
ExecCmdine(CommandLine, t);
Result:=pos('1 received, 0% packet loss', t.text)>0;
t.free;
end; 




--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
ama_kid
Дата 16.9.2008, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95
Цитата(ActivX @  16.9.2008,  09:38 Найти цитируемый пост)
а можно описать пример открытия командной строки в Delphi, не только для прочтения данных, а ещё и для внесения туда команд
Чего-чего?  smile Опиши внятно и по шагам что именно тебе надо и как это должно выглядеть? 



--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Frees
Дата 16.9.2008, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
ActivX,  http://forum.ishodniki.ru/index.php?topic=3815.0
вот ссылка там написано как работатьс телнетом из делфи не через командную строку как ты собираешся а через сокеты





--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
ActivX
Дата 16.9.2008, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 6.6.2008
Где: Новомичуринск

Репутация: нет
Всего: нет
Frees , огромное спасибо, ты прям в точку попал)))
smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0914 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.