JPEG 摄像头 十六进制 显示 delphi7解决方法

JPEG 摄像头 十六进制 显示 delphi7
请问如何在delphi7中显示由摄像头传输过来的十六进制？
用什么具体的组件？代码？希望知道的人回答下谢谢，我分数剩的不多，但是会给分的，我做毕设的，急需正确的回答，谢谢了！

[解决办法]
接收到数据流，然后逐个字节的读出来，然后用BinToHex转为字符显示出来
[解决办法]

Delphi(Pascal) code

var  Form1: TForm1;  str:String;implementation{$R *.dfm}procedure tform1.hex2jpg(str:string;out jpg:tjpegimage);varstream:tmemorystream;begin  if not assigned(jpg) then jpg:=tjpegimage.create;  stream:=tmemorystream.create;  stream.setsize(length(str)div 2);  hextobin(pchar(str),stream.memory,stream.size);  jpg.loadfromstream(stream);  stream.free;end;function tform1.jpg2hex(jpg:tjpegimage):string;var  stream:tmemorystream;begin  stream:=tmemorystream.Create;  jpg.SaveToStream(stream);  setlength(result,stream.size * 2);  bintohex(stream.Memory,pchar(result),stream.size);  stream.free;end;procedure TForm1.Button2Click(Sender: TObject);var  jpg:tjpegimage;begin  jpg:=tjpegimage.Create;  hex2jpg(str,jpg);  jpg.SaveToFile('c:\test.jpg');  Image1.Canvas.Draw(0,0,jpg);  jpg.free;end;procedure TForm1.Button1Click(Sender: TObject);var  jpg:TJPEGImage;begin  jpg:=TJPEGImage.Create;  jpg.LoadFromFile('C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Winter.jpg');  str:=jpg2hex(jpg);end;