VPF::IdHTTP - Ошибка при отсутвии интернета.

KgCoder

Дата 6.3.2008, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 5
Всего: 158

как-то так:

Код


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;

rtfm

KgCoder

Дата 7.3.2008, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Thanks.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »