Q&A

  • VCM [mpeg]
procedure TForm1.VideoCap1VideoStream(sender: TObject; lpVhdr: PVIDEOHDR);
var Encoded,Decoded ,SEncoded: Pointer;
    pBuffer,sBuffer: PByte;
    bmiHeader : TBitmapInfoHeader;
    Data ,s: string;
    Bitmap: TBitmap;

    ms    : TMemoryStream;
    buf   : pointer;
    size  : integer;


begin
      if Owner is TForm then (Owner As TForm).Canvas.Lock;
        bmiHeader := PicBitmapInfo.BmiHeader;

        try

           pBuffer   := pByte(lpVhdr^.lpData);
           try
               Mpeg4Compress.Compress(pBuffer, Encoded, bmiHeader);
        except
               raise Exception.Create('Compress Error ');
         end;
          
    if Owner is TForm then (Owner As TForm).Canvas.Unlock;
end;

[질문]
Vcm 을 이용하여

위의 Encoded 를 string 의 데이터로 변환시킬수 있는지요
목적은 소켓으로 전송시 문자로 보내고
받은 문자열을 다시 그림으로 바꾸고자 하는 목적입니다.




0  COMMENTS