.. und Du bist Dir sicher mit der neuen zu arbeiten?
Was gibt denn idsnmp1.version für eine Versionsbezeichnung aus?
Delphi-Quellcode:
// aus tIdGlobal.pas
function ToBytes(
const AValue:
string;
const AEncoding: TIdEncoding = enANSI
): TIdBytes;
overload;
begin
EIdException.IfTrue(AEncoding = enDefault, '
No encoding specified.');
{do not localize}
{$IFDEF DotNet}
case AEncoding
of
enANSI: Result := System.Text.Encoding.ASCII.GetBytes(AValue);
enUTF8: Result := System.Text.Encoding.UTF8.GetBytes(AValue);
end;
{$ELSE}
// For now we just ignore encodings in VCL
SetLength(Result, Length(AValue));
if AValue <> '
'
then begin
Move(AValue[1], Result[0], Length(AValue));
end;
{$ENDIF}
end;
Grüße
Klaus