我改写一个远程屏幕监视源码，将主动连接改成反弹，就是将两个控件换过来
遇到一句代码，没写好，出现了错误，请赐教
procedure TForm1.sendscreen;
var
sendsize:longint;
buf:array[0..BufSize-1] of char;
begin
if jpegstream.Size=0 then
snapscreen;
if LeftSize>Bufsize then
sendsize:=bufSize
else
SendSize:=LeftSize;
jpegStream.readBuffer(buf,SendSize);
Leftsize:=Leftsize-SendSize;

try
clientsocket1.Socket.SendBuf(buf,SendSize);//原来用serversocket控件是serversocket1.Socket.connection[0].SendBuf(buf,SendSize); 这句没改好，出错了，请指点
sleep(10);
except
jpegstream.clear;
end;
if leftSize= 0 then
Jpegstream.clear;
end;

[此贴子已经被作者于2006-10-9 19:02:51编辑过]