удаленное управление устройством!

[Gambler]

ладно, спасибо! конечно не много помогли, но все равно спасибо!

[raxp]

а мне нужна прога!!!! и мне ее надо написать, а не просто исходник утащить! дельные советы будут?

хоть тема называется управление, но вижу затык с получением картинки... итак:

1) включить, то бишь получить-сграбить картинку с локальной камеры (usb подключение) можно через функции (универсальный подход к работе с драйвером камеры) AVICAP32.dll (cистемная)

var
  DC    : HDC;
  Bt    : BITMAPINFO;
  h_wnd : HWND;
  h_cam : HWND;

//== Получение и обработка кадра
function FrameCallback(hWnd: HWND; lpVHdr: PVIDEOHDR): DWORD; stdcall;
type
  TByteArray = array [0..1] of Byte;
  PByteArray = ^TByteArray;
var
  i, j   : Integer;
  sum    : Single;
  status : TCapStatus;
  str    : string;
begin
  Result := 0;
// информация о изображении
  SendMessage(h_cam, WM_CAP_GET_STATUS, SizeOf(status), Integer(@status));
// проверка на корректность формата изображения
  if (status.uiImageWidth > 640) or (status.uiImageHeight > 480) or
     (lpVhdr^.dwBytesUsed div (status.uiImageWidth * status.uiImageHeight) <> 3) then
  begin
    TextOut(DC, 0,  0, 'Размер изображения не должен превышать 640х480 пикселей', 55);
    TextOut(DC, 0,  18, 'Изображение должно быть 24 битным', 33);
    Exit;
  end;

// вывод результата в окно
  bt.bmiHeader.biWidth  := status.uiImageWidth;
  bt.bmiHeader.biHeight := status.uiImageHeight;
  StretchDIBits(DC, 0, 0, 640, 480, 0, 0, status.uiImageWidth, status.uiImageHeight, lpVHdr.lpData, bt, 0, SRCCOPY);
end;

// настройка подключения-
 DC  := GetDC(h_wnd);
  if SendMessage(h_cam, WM_CAP_DRIVER_CONNECT, 0, 0) <> 0 then
  begin
    SendMessage(h_cam, WM_CAP_GET_VIDEOFORMAT, SizeOf(Bt), LongInt(@Bt));
    Bt.bmiHeader.biWidth    := 320;
    Bt.bmiHeader.biHeight   := 240;
    Bt.bmiHeader.biSize     := SizeOf(Bt.bmiHeader);
    Bt.bmiHeader.biPlanes   := 1;
    Bt.bmiHeader.biBitCount := 24;
    SendMessage(h_cam, WM_CAP_SET_VIDEOFORMAT, SizeOf(Bt), LongInt(@Bt));
    SendMessage(h_cam, WM_CAP_SET_CALLBACK_FRAME, 0, Integer(@FrameCallback));
...

// получить кадр, например по таймеру
//SendMessage(h_cam, WM_CAP_GRAB_FRAME, 0, 0);

(модуль с хэдерами прилагаю, передать по сети проблем не составит, можно реализовать сервером, а с нета например браузером смотреть)
...кроме того есть готовый компонент для работы через эту dll - TJLCVideo/ В нем реализовано получение и аудиопотока
(тоже прилагаю)

2) как получить картинку с (подключиться к) ip камеры через инет тоже прилагаю материал http://raxp.radioliga.com/cnt/s.php?p=mw.pdf
(список ресурсов в статье)
пример тестовой утилиты, нажать F12 для просмотра локальной USB (во вложении)

...загрузка картинки с нета любым http клиентом, хоть с indy- набора. пример:

//=== закачка ===
procedure Tvid.HttpCli1DocBegin(Sender: TObject);
begin
 FileName:= '\' + HttpCli1.DocName;

 if HttpCli1.ContentType = 'image/gif' then ReplaceExt(FileName, 'gif')
  else if HttpCli1.ContentType = 'image/jpeg' then ReplaceExt(FileName, 'jpg')
   else if HttpCli1.ContentType = 'image/bmp' then ReplaceExt(FileName, 'bmp');
 //
 if HttpCli1.ContentType <> 'text/html' then
  try HttpCli1.RcvdStream := TFileStream.Create(FileName, fmCreate)
  except end
end;

procedure Tvid.HttpCli1DocEnd(Sender: TObject);
begin
 if HttpCli1.RcvdStream <> nil then begin
  HttpCli1.RcvdStream.Free;
  HttpCli1.RcvdStream:= nil;
 end
end;

в данном случае (ip) камера сама выступает сервером

3) если вы хотите передавать видео и у вас потоковая камера
...лучше использовать AsfWriter из набора dspack, доступ через интерфейс IWMWriterSink... пример передачи:

 AsfWriter1.WriterNetworkSink.SetNetworkProtocol(WMT_PROTOCOL_HTTP); 
 AsfWriter1.WriterNetworkSink.SetMaximumClients(10); 
 AsfWriter1.WriterNetworkSink.Open(номер порта); 
 AsfWriter1.WriterAdvanced2.AddSink(AsfWriter1.WriterNetworkSink); 
 AsfWriter1.WriterAdvanced2.SetLiveSource(True)

...это годится только если стандарт и интерфейс у камеры не какой-нибудь собственный (прокатывают потоковые камеры от axic)
...для просмотра можно импортировать - AxisCamControl activex (там же есть и управление)