[lro]

Добрый день, уважаемые.
Прошу помочь нужно с IP камеры сохранять картинку в определённый момент времени. Для картинки есть http запрос вида:

Код:

http://ip:port/cgi-bin/jpg/image.cgi?

Делаю программку:

Код:

procedure SaveJPG;
var
  test, datstr: String;
  rcvrdata: TMemoryStream;
begin
  rcvrdata := TMemoryStream.Create;
  IdHTTP1.Request.Username := 'admin';
  IdHTTP1.Request.Password := '*****';
  IdHTTP1.Get(AddressEdit.Text, rcvrdata);
  if rcvrdata.Size > 0 then
      rcvrdata.SaveToFile(FileEdit.Text+'\111.jpg');
   rcvrdata.Free;
end;

Если в AddressEdit подставляешь запрос с камеры. То создается файлик размером 1кб. В котором ни чего нет. Если на какой нить другой jpg из weba то он его спокойно сохраняет. В чем загвоздка может быть? Кто подскажет?

Заранее благодарю.

[lro]

выдает ошибку:
HTTP/1.1 401 Unauthorized

[ApxaHGe1]

Ну потому что вы не авторизовались.. мб сначала POST запросом пройти авторизацию стоит ?

[lro]

Ну я понимаю что не пройдена авторизация, я просто не пойму, я же задал

Код:

  IdHTTP1.Request.Username := 'admin';
  IdHTTP1.Request.Password := '*****';

Почему он их не применяет?

[lro]

кое-что подправил. Вышла новая ошибка:

Код:

var
  test, datstr: String;
  rcvrdata: TMemoryStream;
  Data  : TStringList;
begin
    Data:= TStringList.Create;
    rcvrdata := TMemoryStream.Create;
    IdHTTP1.Request.Username := 'admin';
    IdHTTP1.Request.Password := '******';
    Data.Add('user=admin');
    Data.Add('password=******');
    try
      test := IdHTTP1.Post(AddressEdit.Text,Data);
      except on Exception do Memo1.Lines.Text:= idHttp1.Response.RawHeaders.GetText ;
    end;
end;

unknowMethod 400 BadRequest
а в Мемо вывело вот это:

Код:

www-Authenticate: Basic realm = "MegapixelIPCamera"
Content length: 192

[ApxaHGe1]

А вы уверены что там именно user,password поля?