Реализация клиент сервер через delphi и java

[Horus92]

Не знаю к какому форуму отнести эту тему так что оставлю в этом разделе.

Вот что я сделал по найденному в интернету коду клиент - сервер (Delphi - Java)

JAva

import java.io.*;

import java.net.*;

public class NetServerThread {

public static void main (String[] args) {

try {

ServerSocket serv = new ServerSocket (8071);

System.out.println ("initialized");

while (true) {

//ожидание клиента

Socket sock = serv.accept ();

System.out.println (

sock.getInetAddress ().getHostName () 

+ " connected");

/*создание отдельного потока для обмена

данными с соединившимся клиентом*/

ServerThread server = new ServerThread (sock);

server.start ();//запуск потока

}

} catch (IOException e) {

System.err.println (e);

}

}

}

class ServerThread extends Thread {

private PrintStream os;//передача

private BufferedReader is;//чтение

private InetAddress addr;//адрес клиента

public ServerThread (Socket s) throws IOException {

	os = new PrintStream (s.getOutputStream ());

is = new BufferedReader (

new InputStreamReader (

s.getInputStream ()));

addr = s.getInetAddress ();

}

public void run () {

int i = 0;

String str;

try {

while ((str = is.readLine ()) != null) {

System.out.println (addr.getHostName ()+str);
 String data;
 data="str";
os.write(data.getBytes());

}

} catch (IOException e) {

//если клиент не отвечает, соединение с ним разрывается

System.out.println ("Disconnect");

} finally {

disconnect ();//уничтожение потока

}

}

public void disconnect () {

try {

System.out.println (addr.getHostName () 

+ " disconnected");

os.close ();

is.close ();

} catch (IOException e) {

e.printStackTrace ();

} finally {

this.interrupt ();

}

}

}

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
try
 IdTCPClient1.Connect;
except on E: Exception do
 ShowMessage(E.Message);
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
IdTCPClient1.Disconnect;
end;

procedure TForm1.Button2Click(Sender: TObject);
var out,iner:string;
begin
IdTCPClient1.Socket.WriteLn(edit1.Text);

end;

IdTCPClient1.Socket.WriteLn работает нормально но как мне сделать чтоб с java посылать не массив байтов а строку потому что я нашел обратную посылку клиенту только

os.write(data.getBytes());

Но в delphi я так и не понял как можно принять массив байт через IdTCPClient и переделать его в строку