视频数据传输(0分)

视频数据传输
如何通过serversocket 和clientsocket发送和接收数据?
服务器端,图象捕捉和压缩图象的格式发送
procedure TForm1.Button1Click(Sender: TObject);
var vt2:OleVariant;
begin
Form1.VidCap1.Connect(0);
Form1.VidCap1.Compressor:='h263';
Form1.VidCap1.StartCapture;
vt2:= VidCap1.BitmapFormat;//压缩图象的格式,是OleVariant类型
if ok1=1 then //如果通信成功
begin
ServerSocket1.socket.Connections[0].sendbuf(vt2,sizeof(vt2));
end;
end;
客户端接收压缩图象的格式
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var vt:OleVariant;
begin
ClientSocket1.socket.ReceiveBuf(vt,sizeof(vt));
end;

这样有什么错误吗,我每次运行时,当客户端收到数据时总时出现错误提示;说是
什么'oleaut32.dll'出错, 请各位高手帮助解决 ,所有分相送

你的：
ServerSocket1.socket.Connections[0].sendbuf(vt2,sizeof(vt2));

并不能把所有的 OleVariant 发送到远端，原因是 OleVariant 中可能包含的不是数据本身而是数据的指针，你必须根据 Variant 的类型 vt 确定如何发送以及如何从 socket 的输入缓冲中恢复数据。