|
#1
|
|||
|
|||
idHTTP и 503
Здравствуйте. помогите пожалуйста разобраться.
Я генерю из программы пост запрос к сайту. Сайт у меня на локальном компьютере. Он доступен по адресу http://localhost:6448/ При выполнении программы очень часто выскакивает сообщение "HTTP/1.1 503 Service Unavailable(Сервис недоступен)". Апаче запущен. вот код моей программы: Код:
procedure TForm1.Button1Click(Sender: TObject); var data: TIdMultiPartFormDataStream; res, password: String; stop:boolean; r:real; i:integer; begin stop:=false; password:='0'; i:=0; while not(stop) do begin i:=i+1; password:=IntToStr(StrToInt(password)+1); data := TIdMultiPartFormDataStream.Create; data.AddFormField('AUTH_FORM', 'Y'); data.AddFormField('TYPE', 'AUTH'); data.AddFormField('USER_LOGIN', cLogin.Text); data.AddFormField('USER_PASSWORD', password); try res:=IdHTTP1.POST(cHTTP.Text,data); finally end; if Pos(res,'Выйти')>0 then begin stop:=true; memo1.Text:=res;//вывести html в memo cPassword.Caption:=password;//вырести possword в label end else // 123456- реальный пароль if (i>1000000) then stop:=true; data.Free; end; finish.Caption:=finish.Caption+'-ok'; end; 2) я вроде try finally сделал, а окно с ошибкой выскакивает. в tool->option я отключил слежение за ошибками PS Я не собираюсь некого взламывать. Это локалхост. |
#2
|
|||
|
|||
1. Попробуй установить побольше timeout.
2. Try..finally не перехватывает ошибку, а только позволяет выпонить определенные действия при ее возникновении. Для маскировки ошибки надо использовать Try..Except. |
#3
|
|||
|
|||
Цитата:
|