Thema: UDP mit UTF8

Einzelnen Beitrag anzeigen

Faxe

Registriert seit: 10. Jan 2013
28 Beiträge
 
Delphi XE3 Professional
 
#2

AW: UDP mit UTF8

  Alt 12. Jan 2013, 14:47
So, nach ziemlich viel Geteste und Gegoogle klappt es in etwa so:

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
AData: array of Byte; ABinding: TIdSocketHandle);
var
myUnicode: UnicodeString;
myUtf8 : UTF8String;
begin
SetString(myUtf8, PAnsiChar(@AData[0]), length(AData));
myUnicode := myUtf8;
ListBox1.Items.Add(myUnicode);
end;

Auf SetString und PAnsiChar zu kommen war bei mir irgendwie blockiert.
  Mit Zitat antworten Zitat