开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
NMUUE.pas
资源名称：FastNet.rar　[点击查看]
上传用户：szzdds
上传日期：2013-09-18
资源大小：293k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

NMUUE.pas：源码内容
  1. unit NMUUE;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, NMConst;
  8. type
  9.   UUMethods = (uuMime, uuCode);
  11.   TNMUUProcessor = class(TComponent)
  12.   private
  13.     FOnBeginEncode: TNotifyEvent;
  14.     FOnEndEncode: TNotifyEvent;
  15.     FOnBeginDecode: TNotifyEvent;
  16.     FOnEndDecode: TNotifyEvent;
  17.     FInputStream: TStream;
  18.     FOutputStream: TStream;
  19.   protected
  20.     FUUMethod: UUMethods;
  21.   public
  22.     constructor Create(AOwner: TComponent); override;
  23.     procedure Encode;
  24.     procedure Decode;
  25.     property InputStream: TStream read FInputStream write FInputStream;
  26.     property OutputStream: TStream read FOutputStream write FOutputStream;
  27.   published
  28.     property Method: UUMethods read FUUMethod write FUUMethod default uuMime;
  29.     property OnBeginEncode: TNotifyEvent read FOnBeginEncode write FOnBeginEncode;
  30.     property OnEndEncode: TNotifyEvent read FOnEndEncode write FOnEndEncode;
  31.     property OnBeginDecode: TNotifyEvent read FOnBeginDecode write FOnBeginDecode;
  32.     property OnEndDecode: TNotifyEvent read FOnEndDecode write FOnEndDecode;
  33.   end;
  35. implementation
  36. uses
  37.   NM64Encode, NM64Decode, NMUUEncode, NMUUDecode;
  39. {*******************************************************************************
  40. Create NMUUE and set code method to MIME by default
  41. *******************************************************************************}
  43. constructor TNMUUProcessor.Create(AOwner: TComponent);
  44. begin
  45.   inherited;
  46.   FUUMethod := uuMime;
  47. end;
  49. {*******************************************************************************
  50. Encode
  51. *******************************************************************************}
  53. procedure TNMUUProcessor.Encode;
  54. begin
  55.   FInputStream.Position := 0;
  56.   if Assigned(FOnBeginEncode) then
  57.     FOnBeginEncode(self);
  59.   case Method of
  60.     uuMime: B64Encode(FInputStream, FOutputStream);
  61.     uuCode: UUEEncode(FInputStream, FOutputStream);
  62.   end;
  63.   FInputStream.Position := 0;
  64.   FOutputStream.Position := 0;
  65.   if Assigned(FOnEndEncode) then
  66.     FOnEndEncode(self);
  69. end;
  71. {*******************************************************************************************
  72. Decode
  73. ********************************************************************************************}
  75. procedure TNMUUProcessor.Decode;
  76. begin
  77.   FInputStream.Position := 0;
  78.   if Assigned(FOnBeginDecode) then
  79.     FOnBeginDecode(self);
  81.   case Method of
  82.     uuMime: B64Decode(FInputStream, FOutputStream);
  83.     uuCode: UUEDecode(FInputStream, FOutputStream);
  84.   end;
  85.   FInputStream.Position := 0;
  86.   FOutputStream.Position := 0;
  87.   if Assigned(FOnEndDecode) then
  88.     FOnEndDecode(self);
  89. end;
  91. end.