кое-что подправил. Вышла новая ошибка:
Код:
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