已经能在自己机器上控制摄像头了,
可是如何做到像QQ一样,看到别人的影像,我知道是要把流压缩再发过去。可是如何实现呢?
请指教一二。

解决方案 »

  1.   

    DSPACK控件可以完成你要的功能,自己去下了看看里面的Demo
    只是这套控件好象已经两年多没有新版本出来了,不过已经够用了
      

  2.   

    图象的压缩和传送()
    procedure TForm7.Timer2Timer(Sender: TObject);   //控制每秒发送图象幅数
    var
      mdata:array[1..10000] of char;
      k:integer;
      p: Pointer;
      FStream:TMemoryStream;
      Jpeg:TJPEGImage;
    begin
        FStream:=TmemoryStream.create;
          Jpeg:= TJpegImage.Create;
          Jpeg.CompressionQuality:=50;   //压缩比
          try
            Jpeg.Assign(Image10.Picture.Bitmap);
            Jpeg.SaveToStream(FStream);
            P:=FStream.Memory;
            FStream.Position:=0;
            for k:=1 to FStream.Size do mdata[k]:=pchar(dword(P)+k-1)^;
              IdUDPClient1.SendBuffer(mdata,FStream.Size);
          finally
            Jpeg.Free;
          end;
       FStream.Free;
    end;