出点问题//发送端 procedure TForm1.Button1Click(Sender: TObject); var jpegfile:Tmemorystream; begin if tcpclient1.Connect then begin jpegfile.LoadFromFile('c:\1.jpg'); tcpclient1.SendBuf(jpegfile,sizeof(jpegfile)); end; end;//接收端 procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient); var jpegfile:tmemorystream; begin clientsocket.ReceiveBuf(jpegfile,sizeof(jpegfile)); jpegfile.SaveToFile('c:\2.jpg'); showmessage('接收完毕!'); end;这样不行啊 接收完毕后出现一个图标 但实际图象却没传过来 。。请高手不吝指教!
不久前寫過類似的程序,理論上是抓圖\壓縮\發送\接收
但我實際可以實現
MSN:[email protected]
可以查DEMO,一堆
procedure TForm1.Button1Click(Sender: TObject);
var
jpegfile:Tmemorystream;
begin
if tcpclient1.Connect then
begin
jpegfile.LoadFromFile('c:\1.jpg');
tcpclient1.SendBuf(jpegfile,sizeof(jpegfile));
end;
end;//接收端
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
jpegfile:tmemorystream;
begin
clientsocket.ReceiveBuf(jpegfile,sizeof(jpegfile));
jpegfile.SaveToFile('c:\2.jpg');
showmessage('接收完毕!');
end;这样不行啊 接收完毕后出现一个图标 但实际图象却没传过来 。。请高手不吝指教!