[_KUL]

Есть сервак с linux и вебкамерой, есть клиент с виндой, сервак отдаёт фотку с вебкамеры, клиенту её нужно забирать.

Вот что имею:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TMemoryStream;
begin
  timer1.Enabled := true;
  timer1.Interval := 500;
  Stream:= TMemoryStream.Create;
  IdHTTP1.Get('http://'+edit1.Text+':'+edit2.Text+'/default.jpeg', Stream);
  Stream.SaveToFile('default.jpeg');
  Stream.Free;
  Image1.Picture.LoadFromFile('default.jpeg');
  deletefile('default.jpeg');
  edit3.enabled := false;
  updown1.enabled := false;
  button1.enabled := false;
  button2.Enabled := true;
  edit1.Enabled := false;
  edit2.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Stream: TMemoryStream;
begin
  Stream:= TMemoryStream.Create;
  IdHTTP1.Get('http://'+edit1.Text+':'+edit2.Text+'/default.jpeg', Stream);
  Stream.SaveToFile('default.jpeg');
  Stream.Free;
  Image1.Picture.LoadFromFile('default.jpeg');
  deletefile('default.jpeg');
end;

Админ: Пользуемся тегами для оформления кода!

Если на серваке всё работает, то программка отлично работает, но если выключить, то куча ошибок сыплется ...
Не могу сообразить, как проверить, получил ли IdHTTP1.Get('http://'+edit1.Text+':'+edit2.Text+'/default.jpeg', Stream); клиент фотку или нет, чтобы ошибку выдать и программу закрыть ...

[NumLock]

Код:

  try
    IdHTTP1.Get('*****');
  except
    // error
  end