01.02.2009, 06:08
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
С нами:
9839462
Репутация:
200
|
|
Сообщение от Nightmarе
Существует ли способ чтобы программа вообще никаких ошибок не выводила?
Конечно  Способ называется "минимум кода". Здесь прямопропорциональная зависимость: чем меньше кода, тем меньше ошибок. Ну ты понимаешь о чем я
Сообщение от noveek
Привет всем возник вопрос как отправлять пакет через idUDPClient1 с разных портов тоесть каждый пакет с другого порта например 3000 3001 3002 3003 и тд до бесконечности
А что не пробовал разве после каждого предыдущего отосланного пакета менять свойство Port для idUDPClient? И отсылать тот же пакет вновь?
|
|
|
01.02.2009, 05:34
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
С нами:
9140640
Репутация:
1
|
|
Наверняка только тебе не скажут мне где то из 100% сообщений отвечаются 40% ты непереживай может это сообщение входит в 40%
|
|
|
|
01.02.2009, 10:50
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
С нами:
9140640
Репутация:
1
|
|
этот порт на который отправлять! ; а мне надо с которого !!!!
|
|
|
|
01.02.2009, 11:13
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
Nightmare,
Код:
try
Код, где может произойти ошибка
except
Мы окажемся тут, если она произойдет, нам надо её обработать, можно ничего не писать, тогда и вывода ошибок не будет
end;
|
|
|
|
01.02.2009, 12:39
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
С нами:
9329667
Репутация:
31
|
|
У меня такой вопрос:
На форме: Tbutton; Tmemo
Нужно чтобы про нажатии на Тбутон выполнялись команды введённые в Тмемо
Например если в Тмемо введён следующий текст:
@echo off
echo 123
echo 321
pause
При нажатии на Тбутон появлялась командная строка с
123
321
Нажмите клавижу для продолжения...
Тобиш результат работы команд...
Заранее спасибо...
|
|
|
|
01.02.2009, 12:57
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
Uname-A,
Код:
Uses shellapi;
...
Memo1.Lines.SaveToFile('tmp.bat');
ShellExecute(0,'tmp.bat',nil,nil,SW_SHOWNORMAL);
|
|
|
|
01.02.2009, 13:24
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
С нами:
9329667
Репутация:
31
|
|
ооо Как все просто!=)
Тогда ещё один вопрос :
procedure TForm1.Button1Click(Sender: TObject);
begin
********(PChar('ping ' + Edit1.Text),*****)
end;
При выполнеении пингуется хост введённый в Тедит
но как перед выполнением этой команды добавить @echo off?
Гдето в инете видел как ставится разделитель между командами но страничку потерял и больше найти немогу((( Там был какойто специальный символ типа
********(PChar('@echo off | ping ' + Edit1.Text),*****)
_________________________________________
хм .... Чет твой способ непашед(
ShellExecute(0,'tmp.bat',nil,nil,SW_SHOWNORMAL);
Немного подправив сделал так:
ShellExecute(handle,'open','tmp.bat',nil,nil,SW_SH OWNORMAL);
Все заработало.... но всеравно спс
Последний раз редактировалось Uname-A; 01.02.2009 в 13:58..
|
|
|
|
01.02.2009, 13:55
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
Да, вертикальная палка, но это в бат файле
|
|
|
|
01.02.2009, 14:00
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
С нами:
9329667
Репутация:
31
|
|
Да, вертикальная палка, но это в бат файле
Мне нужно именно в Делпи @ехо оф задать Чтоб каждый раз неписать....
ЗЫ палку наугад написал =)
|
|
|
|
01.02.2009, 14:15
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
s:='cmd.exe /c "@echo off&&ping '+edit1.text+'";
и выполняй эту команду )
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 5 (пользователей: 0 , гостей: 5)
|
|
|
|
Похожие темы
Комбинированный вид
