文件没办法传输...是什么原因

[johnzcq]

用 idtcpclient1 向 IdTCPServer1 传送文件 文件传过来是O字节。只有一个图标在那，是为什么。刚刚用 INDY 什么都不了解 请不指教。

procedure TForm1.Button2Click(Sender: TObject);
var afile : tfilestream;
begin
if opendialog1.Execute then
afile := tfilestream.Create(opendialog1.FileName , fmcreate);
idtcpclient1.Connect(-1);
idtcpclient1.OpenWriteBuffer(-1);
idtcpclient1.WriteStream(afile,true , false , afile.Size);
idtcpclient1.CloseWriteBuffer;
idtcpclient1.Disconnect;
AFILE.Free;
end;


procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var astream : tfilestream;
begin
if savedialog1.Execute then
astream := tfilestream.Create(savedialog1.FileName, fmCreate );
athread.Connection.ReadStream(astream,-1,true);
astream.Free;
end;



end.

[johnzcq]

诸位 别抛弃我不理会啊 ，

虽然本人经常问一写 简单甚至偏向低级的问题，

但是学习总不是错啊 ，