Java Delphi socket交互通讯实例

    Delphi 环境的 Delphi for windows 2007

 

    Java  环境JDK 6.0 Eclipse 集成环境

 

    由于时间原因这里只写出重要的代码片段

    代码实例中Java作为服务端，使用Delphi 的 TClientSocket做为客户端

 

    Java端的 信息处理如下

 

    ... ...

 

     private  DataOutputStream  dos=null;

     private  Socket  sk=null;

 

     private  BufferedReader  br =null;

 

     sk ... ...

 

    String ques="";

     br=new BufferedReader(new InputStreamReader(sk.getInputStream()));

     ques=br.readLine(); //使用此函数必须在发送端发送换行符，否则将一直等待接受

 

    System.out.println(ques);

 

     dos=dos=new DataOutputStream(sk.getOutputStream());

 

     dos.write("#".getBytes());  //向客户端写数据

 

     dos.close();

     br.close;

     sk.close;

 

    Delphi端发送代码

      procedure TForm1.ClientSocket1Connect(Sender: TObject;
       Socket: TCustomWinSocket);
    begin
       Socket.SendText('#'+#10);// 向服务端发送信息 注意 #10不能忽略否则会造成对方一直等待接受
    end;

 

 

    接受代码

     procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

     begin

          Socket.ReciveText;  //接受响应信息

          Socket.close;

     end;