Mailabruf mit IPv6 geht nicht

[Klaus01]

.. ist vielleicht für beide Systeme VCL und Posix - Posix klingt nach Linux.

Grüße
Klaus

[skoschke]

Ich habe im Netz eine weitere Variante gefunden, welche die IP auslesen können soll, nur meckert der Compiler bei

Result := '255.255.255.' + (%11111111 shr NCode).ToString "Ungültiges Zeichen in Eingabedatei '%'

Ich sehe da aber keinen Fehler!

Ciao
Stefan

[Klaus01]

vielleicht so?

Result := '255.255.255.' + ($FF shr NCode).ToString Was ist denn NCode?

Grüße
Klaus

[skoschke]

Danke, funktioniert!

Hier der komplette Teilcode:

Delphi-Quellcode:

{ Dumb conversion of number of bits to 4-byte SubnetMask string}
function SubnetMask(ACode: string): string;
begin
  var NCode := ACode.ToInteger;
  if NCode < 25 then
//    Result := '255.255.255.' + (%11111111 shr NCode).ToString
    Result := '255.255.255.' + (255 shr NCode).ToString
  else if NCode < 33 then
//    Result := '255.255.' + (%11111111 shr NCode-24).ToString + '.0'
    Result := '255.255.' + (255 shr NCode-24).ToString + '.0'
  else if NCode < 41 then
//    Result := '255.' + (%11111111 shr NCode-32).ToString + '.0.0'
    Result := '255.' + (255 shr NCode-32).ToString + '.0.0'
  else if NCode < 49 then
//    Result := (%11111111 shr NCode-40).ToString + '.0.0.0'
    Result := (255 shr NCode-40).ToString + '.0.0.0'
  else
    Result := '0.0.0.0.';
end;

Ciao
Stefan