Привет всем. Имеется код:
Код:
procedure cmd;
var
ts:Tstringlist;
st:string;
begin
ts:=Tstringlist.Create;
httpgettext('http://server.com/cmd.txt',ts);
st:=ts.strings[0];
if pos('cmd1',st)<>0 then
begin
******
******
sleep(10000);
cmd;
end
else
if pos('sd',st)<>0 then
begin
******
******
sleep(10000);
cmd;
end
Проблема такова, сервер на котором лежит txt файл, часто недоступен, соответственно возникает ошибка "List index out of bounds (0)". Ну и до этого еще ошибка "Исключение неизвестное программное исключение (0x0eedfade) в приложении по адресу 0x7c812afb" Как правильно обработать ошибку?
Ошибка возникает вот тут:
Код:
if pos('cmd1',st)<>0 then
P.S. Пробовал try except, ошибки пропадают, но через некоторое время программа просто вылетает.
Может быть есть какой есть другой вариант прочитать файл на сервере (желательно без компонентов)
Буду признателен за все ответы.
Спасибо.