unit IdHeaderCoderBig5; interface {$i IdCompilerDefines.inc} uses IdGlobal, IdHeaderCoderBase; type TIdHeaderCoderBig5 = class(TIdHeaderCoder) public class function Decode(const ACharSet: string; const AData: TIdBytes): String; override; class function Encode(const ACharSet, AData: String): TIdBytes; override; class function CanHandle(const ACharSet: String): Boolean; override; end; // RLebeau 4/17/10: this forces C++Builder to link to this unit so // RegisterHeaderCoder can be called correctly at program startup... {$IFDEF HAS_DIRECTIVE_HPPEMIT_LINKUNIT} {$HPPEMIT LINKUNIT} {$ELSE} {$HPPEMIT '#pragma link "IdHeaderCoderBig5"'} {$ENDIF} implementation uses SysUtils, IdException; class function TIdHeaderCoderBig5.Decode(const ACharSet: string; const AData: TIdBytes): String; begin Result := ''; ToDo('Decode() method of TIdHeaderCoderBig5 class is not implemented yet'); {do not localize} end; class function TIdHeaderCoderBig5.Encode(const ACharSet, AData: String): TIdBytes; begin Result := nil; ToDo('Encode() method of TIdHeaderCoderBig5 class is not implemented yet'); {do not localize} end; class function TIdHeaderCoderBig5.CanHandle(const ACharSet: String): Boolean; begin Result := TextIsSame(ACharSet, 'Big5'); end; initialization RegisterHeaderCoder(TIdHeaderCoderBig5); finalization UnregisterHeaderCoder(TIdHeaderCoderBig5); end.