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