Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > IdHTTP - Ошибка при отсутвии интернета.

Автор: KgCoder 6.3.2008, 20:52

Нужно подгружать баннер с сайта.
Вот так я сделал.

Код


procedure TForm2.FormCreate(Sender: TObject);
var
    z:TMemoryStream;
    PNG: TPNGObject;
begin
  z:=TMemoryStream.Create;
  try
    IdHTTP1.Connect();
    IdHTTP1.Get('http://localhost/img/1.png',z);
    z.Position := 0;
    PNG.LoadFromStream(z); //png обработка
    Image1.Picture.Assign(PNG);
  finally
    PNG.Free;
    IdHTTP1.Disconnect();
  end;
end;

Понятно что она выводит ошибку про не подключенном интернете.
Как сделать так чтобы при ошибке выводить уведомление о необходимости интернета

Автор: dumb 7.3.2008, 01:16

как-то так:

Код


begin
  z:=TMemoryStream.Create;
  try
    try
      IdHTTP1.Connect();
      IdHTTP1.Get('http://localhost/img/1.png',z);
    except
      ShowMessage('error while get');
      Exit; // выход, но блок finally будет выполнен
    end;
    z.Position := 0;
    PNG.LoadFromStream(z); //png обработка
    Image1.Picture.Assign(PNG);
  finally
    PNG.Free;
    IdHTTP1.Disconnect();
  end;
end;

http://rsdn.ru/article/Delphi/Delphi_7_04.xml smile

Автор: KgCoder 7.3.2008, 16:50

Thanks.