1,593
社区成员
发帖
与我相关
我的任务
分享用indy的TcpServer和tcpClient编写文件传输程序，接受不到啊
server部分：
fStream := TFileStream.Create(ExtractFileDir+(Application.ExeName)'\data\'+ktFile,fmOpenRead+fmShareDenyNone);
Athread.Connection.OpenWriteBuffer();
Athread.Connection.WriteStream(fStream);
Athread.Connection.CloseWriteBuffer;
fStream.free;
Client部分：
fStream := TFileStream.Create(ktFile,fmCreate)
statusbar1.SimpleText:='正在传送考题';
form1.IdTCPClient1.ReadBuffer(fStream);
freeAndNil(fStream);
fStream := TFileStream.Create(ExtractFileDir+(Application.ExeName)'\data\'+ktFile,fmOpenRead+fmShareDenyNone);
Athread.Connection.OpenWriteBuffer();
Athread.Connection.WriteStream(fStream);
Athread.Connection.CloseWriteBuffer;
fStream.free;
Client部分：
fStream := TFileStream.Create(ktFile,fmCreate)
statusbar1.SimpleText:='正在传送考题';
form1.IdTCPClient1.ReadBuffer(fStream);
freeAndNil(fStream);
...全文
请发表友善的回复…
发表回复
westdiamond 2005-01-04
- 打赏
- 举报
ReadStream 对应 WriteStream
getit911 2005-01-04
- 打赏
- 举报
indy都写好了，用这个看看
TIdTCPConnection.WriteFile
result := aThread.Connection.WriteFile(aFile);
TIdTCPConnection.WriteFile
result := aThread.Connection.WriteFile(aFile);
tfxg 2005-01-04
- 打赏
- 举报
是不是少了 TCPServer.active:=true;
zwb666 2004-09-22
- 打赏
- 举报
TcpServer.active:=true;
niutuoshaozhe 2004-09-21
- 打赏
- 举报
对不起，可护短有一句应该是：form1.IdTCPClient1.ReadStream(fStream);
