TDecoder

type TDecoder = record

  Context: Pointer;

  Decode: function(

  Context: Pointer;

  InBuf: PChar;

  var InCnt: Cardinal;

  OutBuf: DOMPChar;

  var OutCnt: Cardinal

):Integer;

  Cleanup: procedure(

  Context: Pointer

);

end;