|
#1
|
|||
|
|||
http и Indy
Добрый день, уважаемые.
Прошу помочь нужно с 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= |