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)

[API]

* P U S H *

[API]

* P U S H *

[API]

hat jemand eine Idee?

[mirage228]

Kannst Du die Problemstelle denn genauer lokalisieren? Evtl. mit dem Debugger?
Wenn Du die Unit komplett auf AnsiStrings umstellen willst, musst Du ja nur nach "PChar", "Char" und "String" suchen und diese dann alle durch "PAnsiChar", "AnsiChar" und "AnsiString" ersetzen und sicherstellen, dass von den Delphi RTL Funktionen, nur solche aufgerufen werden, die auch mit AnsiStrings arbeiten können (sollten eigentlich alle)...

Viele Grüße