Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.111 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Umlaute UTF 8 über socket

  Alt 13. Feb 2018, 23:22
Ich komme nicht hinterher was du vor hast. Willst du Zeichen wie "<" im XML maskieren? Das geht automatisch wenn man das nicht von Hand als Strings zusammenbastelt sondern eine Xml-Bibliothek benutzt wie z.B.

Delphi-Quellcode:
implementation uses Xml.XmlIntf, Xml.XmlDoc;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   xmlDocument:    IXMLDocument;
   xmlNode:      IXMLNode;
   resultingString:String;
   asString: String;
begin
   xmlDocument := LoadXMLData('<event />');

   xmlNode := xmlDocument.DocumentElement.AddChild('address');
   xmlNode.Text := Edit1.Text;

   xmlNode := xmlDocument.DocumentElement.AddChild('message');
   xmlNode.Text := Edit2.Text;

   // Test-Ausgabe
   Memo2.Text := xmlDocument.XML.Text;
end;
unbenannt.png


Ansonsten kannst du auch System.NetEncoding.THTMLEncoding benutzen.
  Mit Zitat antworten Zitat