delphi的IdTCPClient组件的问题？ 急!!!

Question

下面是我关于IdTCPClient组件的代码procedure TForm1.BitBtn1Click(Sender: TObject);
var
  np: String;   //记录用户名和密码的字符串
  just: Integer;   //判断用户名和密码返回结果是否正确
begin
  if Edit1.Text='' then
    Showmessage('用户名不能为空!')
  else if Edit2.Text='' then
    Showmessage('密码不能为空!')
  else
  begin
  IdTCPClient1.Create(nil);
  try
    if IdTCPClient1.connected then IdTCPClient1.Disconnect;
        IdTCPClient1.Host:='192.168.0.28';
        IdTCPClient1.Port:=8199;
        IdTCPClient1.connect;
  except on e:exception do
    begin
      messagedlg('链接错误:'+#13+e.Message,mterror,[mbok],0);
      IdTCPClient1.Destroy;
    end;
  end;  np:=('1 '+Edit1.Text+' '+Edit2.Text);
  IdTCPClient1.SendCmd(np);现在的问题是我不知道怎么获取服务器返回的信息！比如服务器返回一个字符串‘100’；
请问我该怎么获取？
补充：我的服务器端是用JAVA写的

Answer 1

补充：服务器可以看到客户端连接进来了，并返回了一些信息！但是客户端在一段时间后提示read timeout!

Answer 2

要写一个线程不断去IdTCPClient1里尝试Read东西

Answer 3

ReadTimeOut之后就继续Read就好了，也可以把ReadTimeout设置成无限；不过我喜欢把ReadTimeout设置为较短的时间，失败后又继续下一次尝试，便于随时结束接收线程。另外调试的时候建议到IDE里屏蔽这个错误，不然会很痛苦（一直报）

Answer 4

给段参考代码：procedure TIndyTCPClientMsgRecvThread.Execute;
var
  AHeader: TConnectorMessageHeader;
  sMsgText: string;
  i: Integer;
begin
  while not Terminated do
  begin
    while (FTCPClient <> nil) and (not FTCPClient.ClosedGracefully) and FTCPClient.Connected do
    try
      //读信息头
      FTCPClient.ReadTimeout := READ_TIMEOUT;
      FTCPClient.ReadBuffer(AHeader, SizeOf(TConnectorMessageHeader));      if IsValidMessage(AHeader) then
      begin
        FTCPClient.ReadTimeout := 0;
        //读消息本体
        sMsgText := FTCPClient.ReadString(AHeader.MessageLength);
        //进行反序列化
        try
          FReceivedMsg := ToMessageEntity(sMsgText);
        except
          TLogger.Debug('消息反序列化失败: %s', [sMsgText], LOG_CALLER);
          raise;
        end;        try
          if Assigned(FOnReceiveMsg) then
            Synchronize(DoNotifyReceiveMsg);          FreeAndNil(FReceivedMsg);
        except
          FreeAndNil(FReceivedMsg);
          raise;
        end;
      end
      else
        TLogger.Error('非法的消息头: %s', [AHeader.EncryptedHeaderKey], LOG_CALLER);
    except
      on E: Exception do
        if not (E is EIdReadTimeout) then
        begin
          TLogger.Error('消息接收发生错误: %s', [e.Message], LOG_CALLER);
          raise;  //屏蔽了EIdReadTimeOut，设置TimeOut只是为了让线程能结束
        end;
    end;    if FTCPClient.ClosedGracefully then
      FTCPClient.Disconnect;
    
    //sleep
    for i := 1 to 10 do
      if not Terminated then Sleep(100);    
  end;
end;

Answer 5

请问怎么屏蔽啊？还有那个去Read用什么比较好啊，服务器返回的可能是一个Integer或String
有ReadBuffer,ReadChar,ReadLn等

Answer 6

TConnectorMessageHeader
请问这是什么类型啊？

Answer 7

TConnectorMessageHeader这个不用管，这个是我程序定义的类型，你就看主体部份就可以了
请问怎么屏蔽啊？
－－－－－－－－－－－－－－－－－－－－
tools->debugger options->language exceptions->添加忽略的错误
还有那个去Read用什么比较好啊，服务器返回的可能是一个Integer或String 
－－－－－－－－－－－－－－－－－－－－
一般通讯都有个消息头，你就根据消息头的约定再具体调用就好了。

Answer 8

package Test;import java.io.InputStream;
import java.io.OutputStream;
import java.net.Socket;public class ThreadEchoHandler implements Runnable {
Socket socket;
byte[] inbyte=new byte[1024];
String incommands[]=new String[20];

public ThreadEchoHandler(Socket s) {
// TODO Auto-generated constructor stub
this.socket=s;
}

public void run() {
// TODO Auto-generated method stub
InputStream in=null;
OutputStream out=null;
try{
if(socket!=null&&!socket.isClosed()){
in=socket.getInputStream();
out=socket.getOutputStream();
}

boolean done=false;

System.out.println("线程启动了");
while(socket!=null&&!socket.isClosed()){
if(-1!=in.read(inbyte)){
String input=new String(inbyte,"UTF-8");
System.out.println("输进来的是："+input);
incommands=input.split(" ");
String toclient=dosomething(incommands[0], incommands[1], incommands[2]);
if(!toclient.equals("3 ")){
System.out.println("处理结果是："+toclient);
out.flush();
out.write(toclient.getBytes("UTF-8"));
out.flush();
}else{
System.out.println("关闭中......");
out.close();
in.close();
socket.close();
}
System.out.println("已发送出处理结果........");
}
done=socket.isClosed();
}
}catch (Exception e) {
// TODO: handle exception
e.printStackTrace();
}
}


public String dosomething(String type,String name,String pass){
System.out.println("参数传的是："+type+name+pass);
if(type.equals("1")&&name.equals("123")&&pass.equals("123")){
System.out.println("ok");
return "1 ";
}
else if(type.equals("2")){
return "这辆车暂时没有欠费行为！";
}
// else if(type.trim().equals("000"))
// return "3 ";
else return "0 ";
}
}
上面是我服务器端的源代码部分，我是新手，关于客户端接受信息的方法或操作有没有上面简便的方法

Answer 9

IdTCPClient1.Create(nil);这样的写法是错误的, 修改为:IdTCPClient1 := TIdTCPClient.Create(nil);

Answer 10

你是说网上的还是吗？看过一些，都试过了！我的服务器端是Java写的，不知道会不会有影响？

Answer 11

没关系，TCP又不是某种语言特有的东西