var
ms:tmemorystream;
ms:=tmemorystream.Create;procedure TForm1.serverExecute(AThread: TIdPeerThread);
begin
athread.Connection.WriteStream (ms);
ms.SaveToFile('d:\test.bmp');
image1.Picture.LoadFromFile('d:\test.bmp');
end;
这是server的代码我用的是idtcpserver,但是建立后的文件是字节.
ms:tmemorystream;
ms:=tmemorystream.Create;procedure TForm1.serverExecute(AThread: TIdPeerThread);
begin
athread.Connection.WriteStream (ms);
ms.SaveToFile('d:\test.bmp');
image1.Picture.LoadFromFile('d:\test.bmp');
end;
这是server的代码我用的是idtcpserver,但是建立后的文件是字节.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货