Indy10 Kommunikation über UDP mit 8 Bit Codierung

[AJ_Oldendorf]

Hallo Assertor,
ich hatte anscheind irgendwie eine andere Version erwischt...
Jetzt sieht man, dass man bei der Funktion .Send ein Encoding Format angeben kann.
Leider funktioniert die 8bit Übertragung nicht.

Ich hänge dir mal zwei Beispielprojekte an.

Die Testanwendungen zum Senden und Empfangen mit UDP.
Die Datei UDPSendSequenz-BDS2006.zip enthält Quelltext und Anwendung zum Senden einer fortlaufenden wort-breiten Sequenznummer an die angegebene Ip-Adresse.
Compliert mit BDS 2006. Das klappt auch!

Die Datei UDPSendReceive-BDS2009.zip enthält Quelltext und die Anwendung für Senden und Empfangen unter Verwendung der neuen Indys (die du mir genannt hast).
Das Ding kann Senden (fehlerhaft) und Empfangen (da kommen die richtigen Werte, die man mit der BDS 2006 Anwendung abgschickt hat).

Zwischen 128 und 159 werden die Sequenzen verfälscht..
Schuld daran ist das Verwenden von Codepages. Wir müssen hier aber 8bit binär (1:1 !) übertragen.

IdGlobal; Zeile 2280 ff.
// RLebeau: TODO - implement a custom 8-bit encoding class?
//
// We need a class that converts UFT-16 codeunits in the $00-$FF range
// to/from their numeric values as-is. Was previously using "Windows-1252"
// (codepage 1252) for that, which does so for most codeunits, however
// codeunits $80-$9F in Windows-1252 map to different codepoints in Unicode,
// which we don't want. "ISO 8859-1" (codepage 28591), on the other hand,
// treats codeunits $00-$FF as-is, and seems to be just as widely supported
// as codepage 1252 on most systems, so we'll use that for now...

Delphi-Quellcode:

{$IFDEF DOTNET}
function Indy8BitEncoding: TIdTextEncoding;
{$IFDEF USEINLINE}inline;{$ENDIF}
begin
 Result := TIdTextEncoding.GetEncoding(28591);
end;
{$ELSE}
 {$IFDEF USE_ICONV}
function Indy8BitEncoding(const AOwnedByIndy: Boolean = True): TIdTextEncoding;
var
 LEncoding: TIdTextEncoding;
begin
 if not AOwnedByIndy then begin
   LEncoding := TIdTextEncoding.GetEncoding('ISO-8859-1');
 end else
 begin
   if GId8BitEncoding = nil then begin
     LEncoding := TIdTextEncoding.GetEncoding('ISO-8859-1');
     if InterlockedCompareExchangePtr(Pointer(GId8BitEncoding), LEncoding, nil) <> nil then begin
       LEncoding.Free;
     end;
   end;
   LEncoding := GId8BitEncoding;
 end;
 Result := LEncoding;
end;

Ich hoffe, du verstehst unser Problem und kannst mir hierzu noch weiterhelfen.
Wie oben geschrieben brauchen wir unbedingt eine 8bit (1:1) Übertragung.

Viele Grüße
Alex