Hallo möchte gerne mit Delphi
einen String mit SocketClient1 senden.

Es gibt ein Beispiel für Java

markieren

Code:

public class ServerTest {
 public static void main(String[] args) throws Exception {
   StringBuffer buf = new StringBuffer();
   buf.append("<event>\n");// Start-Tag
   buf.append(String.format("<address>%s</address>\n", "123test"));// Code
   buf.append(String.format("<message>%s</message>\n", "Hello World"));// Text
   buf.append("</event>");// End-Tag
   try {
          Socket socket = new Socket("localhost", 5555);// 5555 = Default-Port
          OutputStream os = socket.getOutputStream();
          BufferedWriter bw = new BufferedWriter(new OutputStreamWriter(os, "UTF-8"));
          bw.write(buf.toString());
          bw.flush();
          bw.close();
          os.close();
   } catch (Exception e) {
          e.printStackTrace();
   }
 }
}

Wenn ich mir das Beispiel von Java anschaue, wird der String aufgeteilt!
Wie mache ich das?

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
   var
 s: String;
begin
   s := (String.format("<address>%s</address>\n", "123test"));
   ClientSocket1.Socket.SendText(s);
end;

Der String wird nicht aufgeteilt, sondern zusammengesetzt. Kannst es folgendermaßen nachbauen:

markieren

Delphi-Quellcode:

String.Format(
    '<event>'#10'<address>%s</address>'#10'<message>%s</message>'#10'</event>',
    ['123', 'Text']);

Die Delphi-Syntax kennst du aber?

\n gibt es so nicht in Delphi
" ist garantiert nicht das Quotierungszeichen für Pascal-Strings
Wie man beim Format die Parameter angibt, solltest du wissen und wenn doch nicht, dann siehe F1
Und nein, wo wird da denn was aufgeteilt? Im Gegenteil, jemand kommt auf die saublöde Idee und bastelt manuell aus einzelnen Strings eine XML-Datei zusammen.
TStringBuilder



So, aber das Wichtigste, warum verwendest du nicht einfach eine richtige REST-API?

Hallo,

wenn ich die Strings durch ein EDit1.Text und Memo1.Text ersetze,
geht es leider nicht mehr.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
    var
  s: String;
begin
    try
       ClientSocket1.Open;
    s := String.Format(
     '<event>'#10'<address>%s</address>'#10'<message>%s</message>'#10'</event>',
     [Edit1.Text,Memo1.Text]);
    ClientSocket1.Socket.SendText(s);
    finally
      ClientSocket1.Close;
    end;
end;

Zitat von strom:

geht es leider nicht mehr

Sehr präzise

Stimmt

Das Programm läuft, der Text wird aus dem Memofeld nicht
übernommen.

Hat bestimmt was mit dem Format des Memos zutun oder?

Jetzt geht alles ?

Danke

Habe doch noch ein Problem!

Wenn ich kurze Zeit später erneut was senden möchte,
kommt diese Fehlermeldung!

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
    var
  s: String;
begin
    try
       ClientSocket1.Open;
    s := String.Format(
     '<event>'#10'<address>%s</address>'#10'<message>%s</message>'#10'</event>',
     [Edit1.Text,Memo1.Text]);
    ClientSocket1.Socket.SendText(s);
    ClientSocket1.Close;
    Edit1.Clear;
    Memo1.Clear;
    finally
      ClientSocket1.Free;
    end;
end;

Wundert mich nicht.

Zitat:

markieren

Delphi-Quellcode:

finally
  ClientSocket1.Free;
end;

Immer die gleichen:

Erst die Mutter vor die Tür setzen und sich hinterher beschweren, weil die Bude nicht mehr aufgeräumt wird ...