![]() |
|
#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; Заранее благодарю. |