Delphi-PRAXiS - Delphi TUdpSockUtil D2009

Hallo

Im Delphi-Forum hat Narses eine

TUdpSockUtil Komponente geschrieben. (Alternative zum Indy-UDP-Client/Server)

Ich habe versucht, die Komponente unter Delphi 2009 zum Laufen zu bringen.
Jedoch werden beim Senden eines Strings zum Teil nicht korrekte Zeichen übertragen.
Ich nehme an, es gibt noch Problemstellen mit Ansi/Unicode.

PS: Im DF ist nur der Kommentar gekommen, warum ich denn Delphi 2009 verwende.....

Folgende Änderungen habe ich gemacht:

Code:

			42c42

<     FRemoteHost: String; // dahin senden

---

>     FRemoteHost: AnsiString; // dahin senden

60c60

<     procedure SetRemoteHost(const Value: String);

---

>     procedure SetRemoteHost(const Value: AnsiString);

90c90

<     property RemoteHost: String read FRemoteHost write SetRemoteHost;

---

>     property RemoteHost: AnsiString read FRemoteHost write SetRemoteHost;

226c226

<   FRemoteAddr.S_addr := INADDR_BROADCAST;

---

>   FRemoteAddr.S_addr := Integer(INADDR_BROADCAST);

369c369

<     FRemoteAddr.S_addr := INADDR_BROADCAST;

---

>     FRemoteAddr.S_addr := Integer(INADDR_BROADCAST);

383c383

<   if (Value.S_addr = INADDR_BROADCAST) then

---

>   if (Value.S_addr = Integer(INADDR_BROADCAST)) then

392c392

< procedure TUdpSockUtil.SetRemoteHost(const Value: String);

---

> procedure TUdpSockUtil.SetRemoteHost(const Value: AnsiString);

401,402c401,402

<       FRemoteAddr.S_addr := inet_addr(PChar(Value)); // IPdotdot?

<       if (FRemoteAddr.S_addr = INADDR_NONE) then begin // nein, DNSresolve

---

>       FRemoteAddr.S_addr := inet_addr(PAnsiChar(AnsiString((Value)))); // IPdotdot?

>       if (FRemoteAddr.S_addr = Integer(INADDR_NONE)) then begin // nein, DNSresolve

491c491

<         ToAddr.sin_addr.S_addr := INADDR_BROADCAST

---

>         ToAddr.sin_addr.S_addr := Integer(INADDR_BROADCAST)