Jpg по HTTP

[mikkis]

Небольшая интерлюдия: Последний месяц пришлось много работать с веб-камерами от D-link'a. Перепробовал весь софт, который поставлялся с ними и в общем он меня не удволитворил. Пришла в голову идея попросить у компании SDK, что-бы написать свой персональный софт. Вот прошел уже месяц, а D-link молчит. Делать нечго, Delphi в руки и поехал писать сам без SDK. Сложнойстей не возникало, у камер имеется свой веб интерфейс в плане обращения к ней и отправки запросов было не столь сложно. Начал переписывать стандартный софт под себя и свои требования, продвижения есть и камера поддается на запросы и начинает делать то, что ей скажешь, кроме одного:
У нее есть функция, которая выдается текущий снимок, т.е. если выполнять это через веб-интерфейс появляется html страничка, в которой подгружен ее снимок. Заставить зделать снимок не составляет труда, а именно: http://192.168.0.42/cgi-bin/video.jpg. В результате такого в окне браузера отображается картинка.
Внимание вопрос:
Как слить эту картинку и загрузить в TImage, наиболее быстрым способом, так что-то программа успевала за секунду снять хотя-бы 5 изображений

[Квэнди]

sf:=http.Get(s);
rewrite(f);
write(f,sf);
closefile(f);

затем из временного файла загружаешь в Image

[Квэнди]

Думаю смысл понятен ) если нет, то можно и пояснить

[mikkis]

Прошу пояснить Просто я с Indy компонентами столкнулся в первый раз

[Квэнди]

ок, компонент IdHttp
Используй в нем метод Get в качестве параметра передается адрес страницы, которую надо получить. Результат сохраняешь в текстовую переменную, которую записываешь в файл с расширением JPG и затем открываешь его как угодно. Можно разумеется не только через файл но и через stream это уже от удобства зависит

[mikkis]

Вот про то, что Вы мне рассказали - на эти грабли я наступал сегодня весь день ... Пытался присвоить переменной, а как итог она не получает значения. Она просто остается пустой, хотя метод get выполняется без проблем, как и в остальных случаях, например при повороте камеры

[mikkis]

может я просто писал как-то не правильно? пример:
const
pp = 'http://';
var
ss: string;
begin
ss:= IdHTTP.get(pp+host+':80/cgi-bin/video.jpg');
....
end;
Где host - ip адрес камеры в локальной сети

[Квэнди]

эээ
const
pp = 'http://';
var
ss: string;
begin
ss:= IdHTTP.get(pp+host+':80/cgi-bin/video.jpg');
....
end;

[mikkis]

Это была всего лишь опечатка! Get там и стоит

[Квэнди]

Попробуй сначала такой код:

unit Unit21;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls;

type
TForm21 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form21: TForm21;

implementation

{$R *.dfm}

procedure TForm21.Button1Click(Sender: TObject);
begin
showmessage(IdHTTP1.Get('http://www.programmersforum.ru/images/1070/buttons/reply.gif'));
end;

end.

Если в showmessage что- то выведеться, значит у тебя что- то не так ))