Kann mir jmd das bitte mal in Delphi Code übersetzen

[BeeJay]

import java.io.*;<BR>
import java.lang.Thread;<BR>
import java.net.Socket;<BR>
<BR>
public class SimpleClient {<BR>
public SimpleClient() {<BR>
}<BR>
<BR>
public static void main(String args[]) {<BR>
try {<BR>
<BR>
Socket conn = new Socket("localhost", 4242);<BR>
<BR>
for (int i =0;i<20;i++)<BR>
Thread.currentThread().sleep(100);<BR>
<BR>
System.out.println("=[run]");<BR>
<BR>
for (int k=0;k<10;k++) {<BR>
<BR>
PrintWriter pw = new PrintWriter(new BufferedWriter(<BR>
new OutputStreamWriter(conn.getOutputStream())),true); <BR>
<BR>
BufferedReader in = new BufferedReader(<BR>
new InputStreamReader(conn.getInputStream()));<BR>
<BR>
pw.print("<?xml version=\"1.0\" encoding=\"UTF-8\"?>");<BR>
pw.print("<request type=\"ExternalData\">");<BR>
pw.print("<DATA_TYPE>I</DATA_TYPE><DATA_SIZE>4</DATA_SIZE>");<BR>
pw.println("<DATA_VAL>31.2</DATA_VAL>");<BR>
pw.println("</request>");<BR>
pw.write(0x1a);<BR>
pw.flush();<BR>
<BR>
<BR>
for (int i =0;i<50;i++)<BR>
Thread.currentThread().sleep(100);<BR>
System.out.println("=[close]");<BR>
}<BR>
<BR>
} catch (Exception e) {<BR>
e.printStackTrace();<BR>
}<BR>
}<BR>
}<BR>
<BR>

[Robert Marquardt]

Das ist schwierig, da hier Java seine internet-orientierten Faehigkeiten ausspielt.<br>
Mit den Indy-Komponenten sollte da aber was zzu machen sein.<br>
Eine interessante Moeglichkeit ist aber auch sich einfach eine Java-VM als Sklaven zu halten, die das Programm ausfuehrt.<br>
Das Java Native Interface leistet das. Du bekommst es bei http://delphi-jedi.org link 'API Library

[BeeJay]

Sollte nicht eine TClientSocket Komponente dafür reichen? Also die Verbindung zum Server kann ich aufbauen. Funktioniert prima.

Beim Absetzen des XML Befehls über

Status := ClientSocket.Socket.SendText(szXML);

habe ich aber meine Probleme.

Den Weg über das JNI wollte ich eigentlich vermeiden. Ich verstehe nicht warum es mit TClientSocket nicht gehen sollte

[BeeJay]

Heute morgen habe ich es geschafft. Es liegt nicht an Delphi, sondern der gesendete Text ist es gewesen. Der muß angepaßt werden