![]() |
|
|
#1
|
|||
|
|||
|
Добрый день, уважаемые.
Прошу помочь нужно с 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;Заранее благодарю. |
|
#2
|
|||
|
|||
|
выдает ошибку:
HTTP/1.1 401 Unauthorized |
|
#3
|
|||
|
|||
|
Ну потому что вы не авторизовались.. мб сначала POST запросом пройти авторизацию стоит ?
|
|
#4
|
|||
|
|||
|
Ну я понимаю что не пройдена авторизация, я просто не пойму, я же задал
Код:
IdHTTP1.Request.Username := 'admin'; IdHTTP1.Request.Password := '*****'; |
|
#5
|
|||
|
|||
|
кое-что подправил. Вышла новая ошибка:
Код:
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;а в Мемо вывело вот это: Код:
www-Authenticate: Basic realm = "MegapixelIPCamera" Content length: 192 |
|
#6
|
|||
|
|||
|
А вы уверены что там именно user,password поля?
|
|
#7
|
|||
|
|||
|
Цитата:
![]() |
|
#8
|
|||
|
|||
|
Через снифер любой... посмотрите что отправляет в ПОСТДАТЕ когда авторизацию проходите
|
|
#9
|
|||
|
|||
|
Порекомендовать можешь что-нибудь? А то лабуды много в и-нете.
|
|
#10
|
||||
|
||||
|
wireshark-win32-1.6.6.exe
|
|
#11
|
|||
|
|||
|
Спасибо!
Вот что выдал снифер: Код:
GET http://IP/cgi-bin/jpg/image.cgi? HTTP/1.1 Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/msword, application/vnd.ms-excel, application/xaml+xml, application/x-ms-xbap, application/x-ms-application, */* Accept-Language: ru User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET4.0C; .NET4.0E; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022) Accept-Encoding: gzip, deflate If-Modified-Since: Mon, 19 Mar 2012 10:02:32 GMT If-None-Match: "32d-3142-61a00" Connection: Keep-Alive Host: IP Authorization: Basic YWRtaW46MjQ2ODEzNTc= |