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 의 데이터로 변환시킬수 있는지요
목적은 소켓으로 전송시 문자로 보내고
받은 문자열을 다시 그림으로 바꾸고자 하는 목적입니다.