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

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

Delphi控件源码

开发平台：

Delphi

NMURL.pas：源码内容
  1. unit NMURL;
  3. {$X+}
  4. {$R-}
  6. {$IFDEF VER100}
  7. {$DEFINE NMF3}
  8. {$ENDIF}
  9. {$IFDEF VER110}
  10. {$DEFINE NMF3}
  11. {$ENDIF}
  12. {$IFDEF VER120}
  13. {$DEFINE NMF3}
  14. {$ENDIF}
  15. {$IFDEF VER125}
  16. {$DEFINE NMF3}
  17. {$ENDIF}
  19. interface
  21. uses
  22.    SysUtils, Classes, NMConst;
  23. {$IFDEF VER110}
  24. {$ObjExportAll On}
  25. {$ENDIF}
  26. {$IFDEF VER120}
  27. {$ObjExportAll On}
  28. {$ENDIF}
  29. {$IFDEF VER125}
  30. {$ObjExportAll On}
  31. {$ENDIF}
  35.    //  CompName     ='NMURL';               
  36.    //  Major_Version='4';                   
  37.    //  Minor_Version='02';                  
  38.    //  Date_Version ='012798';              
  39.    
  40.    
  41.    
  42. type
  43.    TOnErrorEvent = procedure (Sender: TObject; Operation, ErrMsg: string) of object;
  44.    TNMURL = class(TComponent)
  45.    private
  46.       { Private declarations }
  47.       FInputString: string;
  48.       FOnError: TOnErrorEvent;
  49.       function GetEncodeString: string;
  50.       function GetDecodeString: string;
  51.       function URLDecode(const InString: string): string;
  52.       function URLEncode(const InString: string): string;
  53.    protected
  54.       { Protected declarations }
  55.    public
  56.       { Public declarations }
  57.       constructor Create(AOwner: TComponent); override;
  58.       destructor Destroy; override;
  59.       property Encode: string
  60.          read GetEncodeString;
  61.       property Decode: string
  62.          read GetDecodeString;
  63.    published
  64.       { Published declarations }
  65.       property InputString: string
  66.          read FInputString
  67.          write FInputString;
  68.       property OnError: TOnErrorEvent read FOnError write FOnError;
  69.    end; {_ TNMURL = class(TComponent) _}
  71. implementation
  73. constructor TNMURL.Create(AOwner: TComponent);
  74. begin
  75.    inherited Create(AOwner);
  76.    FInputString := ''; { Initialize values }
  77. end; {_ constructor TNMURL.Create(AOwner: TComponent); _}
  79. destructor TNMURL.Destroy;
  80. begin
  81.    inherited Destroy;
  82. end; {_ destructor TNMURL.Destroy; _}
  84. function TNMURL.UrlDecode(const InString: string): string;
  85. var
  86.    i   : integer;
  87.    Temp: string; 
  88. begin
  89.    result := '';
  90.    Temp := '';
  91.    i := 1;
  92.    try
  93.       while i <= Length(InString) do
  94.       begin
  95.          if InString[i] = '+' then
  96.          begin
  97.             Result := Result + ' ';
  98.             inc(i);
  99.             continue;
  100.          end {_ if InString[i] = '+' then _}
  101.          else if InString[i] = '%' then
  102.          begin
  103.             Temp := Concat('$', InString[i + 1], InString[i + 2]);
  104.             Result := Result + Chr(StrToInt(Temp));
  105.             inc(i, 3);
  106.             continue;
  107.          end; {_ if InString[i] = '%' then _}
  108.          Result := Result + InString[i];
  109.          inc(i)
  110.       end; {_ while i <= Length(InString) do _}
  111.    except
  112.       on E: Exception do
  113.          begin
  114.             if Assigned(FOnError) then FOnError(Self, sURL_DecodeMessage, e.message);
  115.             Result := InString;
  116.          end; {_ inc(i) _}
  117.    end; {_ try _}
  118. end; {_ function TNMURL.UrlDecode(const InString: string): string; _}
  120. function TNMURL.URLEncode(const InString: string): string;
  121. var
  122.    i: Word;
  123. begin
  124.    result := '';
  125.    try
  126.       for i := 1 to Length(InString) do
  127.          case ord(InString[i]) of
  128.             0..31, 33..47, 58..64, 91..96, 123..255:
  129.                Result := Result + Format('%%%.2x',[Ord(InString[i])]);
  130.             32: Result := Result + '+';
  131.          else {_ NOT case ord(InString[i]) of _}
  132.             Result := Result + InString[i];
  133.          end; {_ NOT case ord(InString[i]) of _}
  134.    except
  135.       on E: Exception do
  136.          begin
  137.             if Assigned(FOnError) then FOnError(Self, sURL_EncodeMessage, e.message);
  138.             Result := InString;
  139.          end; {_ NOT case ord(InString[i]) of _}
  140.    end; {_ try _}
  141. end; {_ function TNMURL.URLEncode(const InString: string): string; _}
  143. function TNMURL.GetEncodeString: string;
  144. begin
  145.    Result := URLEncode(FInputString);
  146. end; {_ function TNMURL.GetEncodeString: string; _}
  148. function TNMURL.GetDecodeString: string;
  149. begin
  150.    Result := URLDecode(FInputString);
  151. end; {_ function TNMURL.GetDecodeString: string; _}
  154. end.