TEncoding & TNetEncoding(使用现成的TBase64Encoding,TEncoding和TMBCSEncoding)
TEncoding and TNetEncoding are abstract classes and you will never instantiate one of them, because only the descendants will have the full functionality. Normally you would need to write something like this...
var Encoding: TEncoding Buffer: TArray<Byte>; begin Encoding := TMBCSEncoding.Create(GetACP, 0, 0); try Buffer := Encoding.GetBytes('Hello world!'); (...) finally Encoding.Free(); end; end;
...and you get the ANSI values for "Hello world!". But this isn't really funny and bloates the code, therefore often used Encodings like ASCII, ANSI, UTF8 and other are implemented as Singleton. Therefore the using is normally something like this...
var Buffer: TArray<Byte>; begin Buffer := TEncoding.ANSI.GetBytes('Hello world!'); (...) end;
In this case the RTL holds and manages an instance of an ANSI encoding object and you will always get the same object. Now sometimes it's needed to work with other code pages and for this cases the function "GetEncoding(...)" exists. You will use it in this way...
var Encoding: TEncoding; Buffer: TArray<Byte>; begin Encoding := TEncoding.GetEncoding(852); try Buffer := Encoding.GetBytes('Hello'); (...) finally Encoding.Free(); <- must have end; end;
Note: You need to destroy such instances by your own. In case you use often the same code page, just use a global variable, otherwise use it like any other class too.
The class TNetEncoding has the same schema as TEncoding is using. It is an abstract class which offers with the properties Base64, HTML and URL certain encoder. Even the class TBase64Encoding has an overloaded constructor, which allows to tweak the output. In the example below is the "LineSeparator" empty and therefore the output has not line breaks, which is far away from what default behaviour offers.
class function TEncodingUtils.BytesToBase64(Buffer: PByte; const Offset, Count: Integer): string; var Encoder: TBase64Encoding; Input: PByte; begin Encoder := TBase64Encoding.Create(MaxInt, ''); try Input := Buffer; Inc(Input, Offset); Result := Encoder.EncodeBytesToString(Input, Count); finally Encoder.Free(); end; end;
https://www.board4allcz.eu/showthread.php?t=634856