Question

idtcpserver接收文件后就不执行了

文件接收后就不执行了,然后客户端一直等待服务器返回,请大哥们帮我看看吧,谢谢.服务端接收文件代码 if file_tmp = '1' then begin filename:=send_file[1]; filesize:=StrToInt64Def(send_file[2],-1); sFile:=TFileStream.Create(ExtractFilePath(ParamStr(0)) + filename, fmCreate); try if filesize > -1 then begin AContext.Connection.IOHandler.WriteLn('send-ready'); AContext.Connection.IOHandler.LargeStream := True; AContext.Connection.IOHandler.ReadStream(sFile, filesize); //执行到这里就停住了 showmessage('ok'); //不弹出消息，后面代码不执行 end; finally sFile.Free; end; AContext.Connection.IOHandler.WriteLn('send-done'); //发送完成 end 客户端发送代码if restr='send-ready' then begin IOHandler.LargeStream := True; IOHandler.Write(sFile, sFile.Size); restr := IOHandler.ReadLn; if restr = 'send-done' then ShowMessage('Send finished.') //接收不到服务器发送的send-done，一直等待服务器回复 else ShowMessage('Send failed.'); end //下面是登录验证代码,这里没有问题 else if restr='error' then begin showmessage('授权失败,请先登录获得授权'); end; finally sFile.Free; end;
文件可以接收，文件也可用，就是会停在那里，新人一个，所以1分都木有啦





Answer 1

idtcpclient接收数据需要自己用线程来处理IdTCPClient.IOHandler.Readxxx的事情读取数据 至于读多少数据出来,就看你的传输结构了