Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Подписаться Бесплатный дискуссионный лист Подписчиков 308
←   Февраль 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29


За последние 60 дней ни разу не выходила


Сайт листа: http://codeguru.ru
Открыт: 21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес модератора: comp.soft.prog.prog-owner@subscribe.ru

Модератор
3V

Статистика

308 подписчиков
0 за неделю

Запуск через консоль - делфи

Есть фтп сервак запускается так
procedure TMainForm.StartButtonClick(Sender: TObject);
begin
FtpServer1.Banner := BannerEdit.Text;
FtpServer1.MaxClients := SpinEdit1.Value;
FtpServer1.Port := IntToStr(SpinEdit2.Value);
FtpServer1.Start;
end;

выключается так
procedure TMainForm.FtpServer1Stop(Sender: TObject);
begin
StartButton.Enabled := true;
StopButton.Enabled := false;
StatusBar1.Panels[0].text := 'Остановлен';
bConnected := false;
end;

как пределать консольные команды
чтоб вводя ftp.exe -start она запустила его на удаленном компьютере
чтоб вводя ftp.exe -stop она остановила его на удаленном компьютере
ftp.exe /? справка какаянить
сервак будет находиться на удаленном компутере
Номер выпуска : 1937
Возраст листа : 143 (дней)
Количество подписчиков : 388
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/77877
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить  
"Gift"
Wed, 11 Feb 2004 21:54:13 +0300 (#77877)

 

Ответы:

Hi!

Все просто:
if paramstr(1)='-start' then Strat;
if paramstr(1)='-stop' then Stop;
if paramstr(1)='/?' then Help;
Start,Stop,Help - твои процедуры.

Ответить  
"Boris Kolupaev"
Thu, 12 Feb 2004 00:09:33 +0200 (#78154)

 

Здравствуйте, Boris.

Вы писали 12 февраля 2004 г., 0:09:33:

Добавляю к словам Бориса.
Используй еще и функцию ParamCount, которая возвращает количество
указанных параметров в консоли. Но не забудь, что параметры
разделяются пробелом. Функция paramstr(х) дает тебе доступ к Х
параметру, начиная с 1. Т.о. указав 3 параметра в консоли, у тебя
ParamCount будет равен 3, а ParamStr(1) - первый параметр,
ParamStr(2) - второй, ParamStr(3) - третий.
Если хочешь разделять свои параметры не пробелом а спец символами
("/", "-" и т.д.), тебе надо писать цикл, которой будете перебирать
все указанные параметры (используя ParamCount) консоли, и в каждом из
них искать свои разделители (используя paramstr(х)).
Например:
ftp.exe -start/? 1 парам-р
ftp.exe start -? 2 парам.
ftp.exe -start /?-stop 2 парам.
ftp.exe start ? 2 парам.
ftp.exe ?start 1 парам.

Подробней читай в хелпе эти функции, они там есть с примерами.

С уважением,
Feniks mailto: feni***@b*****.ua
Номер выпуска : 1949
Возраст листа : 144 (дней)
Количество подписчиков : 386
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/78318
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Feniks Thu, 12 Feb 2004 10:02:52 +0200 (#78318)

 

Hi!

и куда это запипенить, у меня прога будет без формы
Номер выпуска : 1952
Возраст листа : 144 (дней)
Количество подписчиков : 386
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/78330
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить  
"Gift"
Thu, 12 Feb 2004 13:10:43 +0300 (#78330)

 

Тема: Re: Запуск через консоль - делфи

:)) Но ведь не без исходника прога-то! В файле .DPR в Delphi пишется это. Это
тот же PAS, но еще и вспомогательные функции выполняет
С уважением,
Борис Сурин, surin_***@m*****.ru
Номер выпуска : 1955
Возраст листа : 144 (дней)
Количество подписчиков : 386
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/78456
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить  
"Surin_bp"
Thu, 12 Feb 2004 14:49:43 +0300 (#78456)