[Eternal_Stranger]

Спасибо за помощь, теперь я знаю как искать в гугле! )))

Вот, для интересующихся набросал быдлокод пример. Это только для ознакомления с механизмом. Здесь конечно стоит работать в отдельном потоке и читать данные не в строку->мемстрим.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

procedure TForm1.Button1Click(Sender: TObject); //Кнопка подключения. begin ClientSocket1.Host:=Edit1.Text; //Записываем имя хоста (адресс камеры) ClientSocket1.Open; //Коннектимся mem:=tmemorystream.Create; //создаём поток jpeg:=tjpegimage.create; //создаём кадр f:=false; // Дополнительный флаг end;   procedure TForm1.Button2Click(Sender: TObject); //Кнопка для отправки запроса на камеру. begin ClientSocket1.Socket.SendText('GET /videostream.cgi HTTP/1.1'+#13+#10+ 'Authorization: Basic ' + encodestring('admin:admin')+#13+#10+#13+#10); {/videostream.cgi - запрос потока для камеры (для своей камеры поищите в инете) #13+#10 - перевод каретки и новая строка Authorization: Basic ' + encodestring('admin:admin') - авторизация здесь кодируется base64 пользователь:пароль в конце запроса пустая строка } end;   procedure TForm1.ClientSocket1Read(Sender: TObject;   Socket: TCustomWinSocket); //событие приёма данных   var s:string; begin Application.ProcessMessages; //Обработка сообщений программы (для исключения зависания) s:=socket.ReceiveText; //принятая порция данных start:=pos('яШяа',s); //Поиск начала кадра JPEG в строке (FFD8) if start>0 then begin   if mem.Size>0 then   Begin   mem.Position := 0;   jpeg.LoadFromStream(mem);   mem.Clear;     Image.Canvas.Lock;     try       Image.Picture.Bitmap.assign(JPEG); //Запихиваем кадр на image для отображения     finally       Image.Canvas.Unlock;     end;   end;   delete(s,1,start-1); //режем разделители   mem.Write(s[1],length(s)); //пишем кусок данных в поток   f:=true; end else if f then mem.Write(s[1],length(s)); end;