TUdpSockUtil D2009

[API]

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)