03.02.2009, 11:38
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
Самый простой способ - перенаправлять вывод в файл через >>
А потом подгружать файл в memo
Остальные способы(через pipe) намного сложнее.
|
|
|
03.02.2009, 15:20
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
И всё-таки ещё раз об ошибках.
Вот к примеру код:
Memo1.Text:= IdHTTP1.Get('http://lol.ru');
В никоторых случаях, может у кого инет не пашет или ещё что, может вылезти ошибка, что так и так...
Ну есть хоть какой нить способ обработать каждую команду персонально чтобы 100% ошибок не было???
|
|
|
|
03.02.2009, 16:04
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
юзай обработку исключений. Под отладчиком (запуск из под делфи) ошибка будет светиться, но ты просто нажимай продолжить выполнение. А в уже нормально запущенной проге тогда не будет светиться она
Код:
try
Memo1.Text:= IdHTTP1.Get('http://lofgdl.ru');
except
// этот код выполнится если будет исключение (ошибка)
showmessage('er'); // можно убрать, тогда ничего не будет происходить
end;
|
|
|
|
03.02.2009, 16:28
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от slesh
юзай обработку исключений. Под отладчиком (запуск из под делфи) ошибка будет светиться, но ты просто нажимай продолжить выполнение. А в уже нормально запущенной проге тогда не будет светиться она
Код:
try
Memo1.Text:= IdHTTP1.Get('http://lofgdl.ru');
except
// этот код выполнится если будет исключение (ошибка)
showmessage('er'); // можно убрать, тогда ничего не будет происходить
end;
Большое спасибо, помогло при IdHTTP1.
Ну а другие команды точно так же обрабатываются:
try
...
except
???
В частности:
urlmon.URLDownloadToFile
|
|
|
|
03.02.2009, 16:40
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
С нами:
9140640
Репутация:
1
|
|
Form1.Close
Столкнулся с проблемой когда выходишь из программы она закрывается не успевая воспроизвести звук как быть ?
имеем такое :
Код:
PlaySound('SND4', 0, SND_RESOURCE or SND_ASYNC);
form1.close;
|
|
|
|
03.02.2009, 16:39
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
вообще через эту конструкцию обрабатываются любые исключения возвникающие в ходе выполнения какого либо кода.
В частности URLDownloadToFile смотри что возвращает функция. Если вернула 0 - значит удачно скачался файл, любой другой ответ - код ошибки
|
|
|
|
03.02.2009, 16:51
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
поставь SND_SYNC вместо SND_ASYNC чтобы прожка ждала когда отзвучит до конца звук.
Или как вариант юзая SND_ASYNC - в событии CanClose или Close поставь паузу чтобы звук хоть чуть поиграл
|
|
|
|
03.02.2009, 17:01
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
С нами:
9140640
Репутация:
1
|
|
slesh ты великий человек !
|
|
|
|
04.02.2009, 15:41
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
С нами:
9140640
Репутация:
1
|
|
Indy
Как оказалось у меня в дельфи нет библиотеки indy у меня седьмая версия никак не могу найти в инете эту библиотеку кто может укажите откуда скачивать буду много благодарен
|
|
|
|
04.02.2009, 20:48
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
Они есть в 7 версии, но бывают не установленными. Для их установки сделаю следующее в меню:
Component -> Install Packages...-> Add -> в папке delphi\bin выбирай и устанавливай bpl файлы. Там должны быть типа dclindy70.bpl
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
