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;