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