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

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

Delphi控件源码

开发平台：

Delphi

NMUUDecode.pas：源码内容
  1. unit NMUUDecode;
  3. interface
  4. uses
  5.   Classes;
  7. function UUEDecode(const Source: TStream; var Destination: TStream): Boolean;
  9. implementation
  12. function UUEDecode(const Source: TStream; var Destination: TStream): Boolean;
  13. const
  14.   EOL = #0;
  15.   EOB = #0;
  16.   CR = #13;
  17.   LF = #10;
  18.   Invalid = $FF;
  20. var
  21.   Stream_Ptr: PChar;
  24.   function Decode_Char(c: Char): Byte;
  25.   begin
  26.     Result := ((Byte(c) - $20) and $3F);
  27.   end;
  29.   procedure decode;
  30.   var
  31.     Char1: Byte;
  32.     Char2: Byte;
  33.     Char3: Byte;
  34.     Char4: Byte;
  36.     Line_Ptr: PChar;
  37.     Line_Length: LongInt;
  38.     Line: string;
  39.   begin
  40.     Line_Length := Decode_Char(Stream_Ptr^);
  41.     inc(Stream_Ptr);
  43.     SetLength(Line, Line_Length);
  44.     Line_Ptr := PChar(Line);
  46.     while Line_Length > 0 do
  47.     begin
  48.       if Stream_Ptr^ > EOL then
  49.       begin
  50.         Char1 := Decode_Char(Stream_Ptr^);
  51.         inc(Stream_Ptr);
  52.       end
  53.       else
  54.         Char1 := Invalid;
  56.       if Stream_Ptr^ > EOL then
  57.       begin
  58.         Char2 := Decode_Char(Stream_Ptr^);
  59.         inc(Stream_Ptr);
  60.       end
  61.       else
  62.         Char2 := Invalid;
  64.       if Stream_Ptr^ > EOL then
  65.       begin
  66.         Char3 := Decode_Char(Stream_Ptr^);
  67.         inc(Stream_Ptr);
  68.       end
  69.       else
  70.         Char3 := Invalid;
  72.       if Stream_Ptr^ > EOL then
  73.       begin
  74.         Char4 := Decode_Char(Stream_Ptr^);
  75.         inc(Stream_Ptr);
  76.       end
  77.       else
  78.         Char4 := Invalid;
  80.       Line_Ptr^ := Char((Char1 shl 2) or (Char2 shr 4));
  81.       inc(Line_Ptr);
  82.       Line_Ptr^ := Char((Char2 shl 4) or (Char3 shr 2));
  83.       inc(Line_Ptr);
  84.       Line_Ptr^ := Char((Char3 shl 6) or (Char4));
  85.       inc(Line_Ptr);
  86.       Dec(Line_Length, 3);
  87.     end;
  88.     Destination.Write(Pointer(Line)^, Length(Line));
  89.   end;
  91. const
  92.   MaxBufSize = $FFFE;
  94. var
  95.   Buffer, FillPos, BufPos: PChar;
  96.   Counter, BytesRead: LongInt;
  97.   SourceSize: LongInt;
  98. begin
  99.   Result := TRUE;
  101.   SourceSize := Source.Size;
  102.   Destination.Seek(0, soFromEnd);
  104.   Counter := 0;
  106.   GetMem(Buffer, MaxBufSize + 1);
  107.   FillPos := Buffer;
  108.   inc(FillPos, MaxBufSize + 1);
  109.   FillPos^ := EOB;
  110.   try
  111.     while Source.Position < SourceSize do
  112.     begin
  113.       FillPos := Buffer;
  114.       inc(FillPos, Counter);
  115.       BytesRead := Source.Read(FillPos^, MaxBufSize - Counter);
  116.       inc(Counter, BytesRead);
  117.       BufPos := Buffer;
  118.       inc(FillPos, Counter);
  119.       FillPos^ := EOB;
  120.       Counter := 0;
  121.       while BufPos^ <> EOB do
  122.       begin
  123.         Stream_Ptr := BufPos;
  125.         while not (BufPos^ in [EOB, LF, CR]) do
  126.           inc(BufPos);
  127.         if BufPos^ <> EOB then
  128.         begin
  129.           BufPos^ := EOL;
  130.           decode;
  131.           if BufPos^ = EOB then inc(BufPos);
  132.           if BufPos^ = CR then inc(BufPos);
  133.           if BufPos^ = LF then inc(BufPos);
  134.         end
  135.         else
  136.         begin
  137.           Counter := BufPos - Stream_Ptr;
  138.           System.Move(Stream_Ptr^, Buffer^, Counter + 1);
  139.           Break;
  140.         end;
  141.       end;
  142.     end;
  143.     if Counter > 0 then
  144.     begin
  145.       Stream_Ptr := Buffer;
  146.       decode;
  147.     end;
  148.   finally
  149.     FreeMem(Buffer, MaxBufSize);
  150.   end;
  151. end;
  153. end.