The function decodeutf7 (utf7str: string) : string;
Var
VDecode: String;
VSS: TStringStream;
Ii: Integer;
The begin
VDecode:=';
Decodeutf7:=';
VSS:=TStringStream. Create (' ', Tencoding. UTF7);
VSS. Size:=Length (utf7str);
For ii:=1 to Length (utf7str) do
VSS. Bytes [1] ii:=word (utf7str [ii]);
VDecode:=vSS. DataString;
VSS. Free;
Decodeutf7:=vDecode;
end;
Add password section:
The function encodeutf7 (STR: string) : string;
Var
VCoded: String;
VSS: TStringStream;
Ii: Integer;
The begin
VCoded:=';
Encodeutf7:=';
VSS:=TStringStream. Create (STR, Tencoding UTF7);
For ii:=0 to vSS. Do the Size - 1
VCoded:=vCoded + CRH (vSS) Bytes [ii]);
VSS. Free;
Encodeutf7:=vCoded;
end;
The TStringStream should be similar to the VBS ado. Stream components, ask tall person to VBS, thank you
CodePudding user response:
Have yourself, thank you.CodePudding user response:
