[TIdHttp] Exception 발생 시 Error 가져오기

Indy IdHttp 컴포넌트의 각종 Exception관련 내용은 IdStack, IdException에 정의되어 있습니다.

uses
  .., IdStack, IdException;

var
  sErrorMessage : string;
begin
  try
    IdHttp1.Get('http://developist.tistory.com/');
  except
    on E: EIdConnClosedGracefully do
      sErrorMessage := E.ErrorMessage;
    on E: EIdHTTPProtocolException do
      sErrorMessage := E.ErrorMessage;
    on E: EIdException do
      sErrorMessage := E.ErrorMessage;
    ..
  end;

  ShowMessage(sErrorMessage);
end;