Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 20.09.2019, 15:34   #1
Devvver
Пользователь
 
Аватар для Devvver
 
Регистрация: 30.01.2010
Сообщений: 23
По умолчанию Как обработать ошибки при GET запросе в функции?

Имеется функция (упрощена)
Код:
 function SendXML(запрос):string;
 var
myMemo:TStringList;
 IdHTTPMax: TIdHTTP;
 IdSSLIOHandlerSocketOpenSSL2:TIdSSLIOHandlerSocketOpenSSL;
 re1,strget1: string;
begin
myMemo:= Tstringlist.Create;
 IdHTTPMax:=TIdHTTP.create(nil) ;
IdSSLIOHandlerSocketOpenSSL2:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdHTTPMax.IOHandler:= IdSSLIOHandlerSocketOpenSSL2;
   IdHTTPMax.HandleRedirects:= True;
  IdHTTPMax.ReadTimeout:=2000;
try
  myMemo.text:=IdHTTPMax.Get('запрос');

except
  on E: EIdHTTPProtocolException do begin
 //  e.ErrorMessage
  showmessage(inttostr(E.ErrorCode));
  IdHTTPMax.Disconnect;
//  FreeAndNil(str); // Разрушим переменную str
// FreeAndNil(dataLSI);
  IdHTTPMax.Free;
  IdSSLIOHandlerSocketOpenSSL2.Free;
   myMemo.Free;
   result:=e.ErrorMessage;
  end;
end;
   myMemo.SaveToFile('my.xml',TEncoding.UTF8);
   IdHTTPMax.Disconnect;
  IdHTTPMax.Free;
  IdSSLIOHandlerSocketOpenSSL2.Free;
   myMemo.Free;
result:='good';
exit;
end;
Понимаю что сделано не корректно(тот еще говнокод), так как при проблемах с подключением и доступом работает неправильно.
Как правильно передать ошибку функцией? Как вставить правильно код c finally ?
мой сайт о Таиланде https://tailand-gid.org
Devvver вне форума   Ответить с цитированием
Старый 26.09.2019, 19:28   #2
Devvver
Пользователь
 
Аватар для Devvver
 
Регистрация: 30.01.2010
Сообщений: 23
По умолчанию

Нежели такой сложный вопрос?
мой сайт о Таиланде https://tailand-gid.org
Devvver вне форума   Ответить с цитированием
Старый 27.09.2019, 21:41   #3
xxbesoxx
Участник клуба
 
Аватар для xxbesoxx
 
Регистрация: 10.08.2010
Сообщений: 1,365
По умолчанию

Цитата:
Сообщение от Devvver Посмотреть сообщение
Нежели такой сложный вопрос?
Сложно общаться с вами . Пропадает желание когда вопрос начинается так
Цитата:
Понимаю что сделано не корректно(тот еще говнокод)
Вы свой код перекопипатили от куда НЕ понятно и на него говорите говнокод ?! Почему ?! давайте разделим : Где гавно -и где код по вашему взгляду

Последний раз редактировалось xxbesoxx; 27.09.2019 в 21:45.
xxbesoxx на форуме   Ответить с цитированием
Старый 27.09.2019, 23:04   #4
Devvver
Пользователь
 
Аватар для Devvver
 
Регистрация: 30.01.2010
Сообщений: 23
По умолчанию

Цитата:
Сообщение от xxbesoxx Посмотреть сообщение
Сложно общаться с вами . Пропадает желание когда вопрос начинается так
Так начинается потому что я опытный форумчанин, только не на этом форуме.
И как правило всегда начинают обсуждать не те вопросы которые просил автор, а другие. Вот к чему ремарка о гавнокоде.
мой сайт о Таиланде https://tailand-gid.org
Devvver вне форума   Ответить с цитированием
Старый 28.09.2019, 00:07   #5
xxbesoxx
Участник клуба
 
Аватар для xxbesoxx
 
Регистрация: 10.08.2010
Сообщений: 1,365
По умолчанию

Цитата:
Сообщение от Devvver Посмотреть сообщение
Так начинается потому что я опытный форумчанин
Да, опытный. это сразу заметно да, да.
xxbesoxx на форуме   Ответить с цитированием
Старый 28.09.2019, 01:07   #6
Alex11223
Модератор
Заслуженный модератор
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,488
По умолчанию

Цитата:
Сообщение от Devvver Посмотреть сообщение
Нежели такой сложный вопрос?
он сформулирован плохо, непонятно что вы хотите.
Alex11223 вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получить ошибки на странице при запросе webrequest Attikuss C# (си шарп) 3 04.06.2015 22:46
Помогите обработать событие onsubmit при post запросе Serzant Работа с сетью в Delphi 6 13.02.2014 13:40
Ошибки в запросе ара PHP 29 08.12.2010 00:19
найдите ошибки в запросе morindos Помощь студентам 2 23.06.2010 22:38
Как обработать ошибки при скачке html-страниц? delphyok Работа с сетью в Delphi 6 14.08.2009 14:06