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

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

Delphi控件源码

开发平台：

Delphi

NM64Encode.pas：源码内容
  1. unit NM64Encode;
  3. interface
  4. uses
  5.   Classes;
  7. function B64Encode(const source, destination: TStream): Boolean;
  9. implementation
  10. uses
  11.   NMFileBuffer;
  13. var
  14.   B64Table: array[0..63] of Char =
  15.   ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H',
  16.     'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
  17.     'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X',
  18.     'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
  19.     'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n',
  20.     'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
  21.     'w', 'x', 'y', 'z', '0', '1', '2', '3',
  22.     '4', '5', '6', '7', '8', '9', '+', '/');
  24. function B64Encode(const source, destination: TStream): Boolean;
  25. var
  26.   Counter: LongInt;
  27.   TotalBytes: LongInt;
  29.   EOD: Char;
  30.   B64Char: Char;
  31.   Char1: Char;
  32.   Char2: Char;
  33.   Char3: Char;
  35.   InputPtr, OutputPtr, BufferEnd: PChar;
  37.   MemStuff: TNMFileBuffer;
  39.   Output: string;
  40.   Len: Integer;
  41. begin
  42.   Counter := 0;
  43.   TotalBytes := source.Size;
  45.   EOD := '=';
  46.   Len := 62;
  47.   Output := '';
  48.   SetLength(Output, Len);
  49.   OutputPtr := PChar(Output);
  51.   destination.Seek(0, soFromEnd);
  53.   MemStuff := TNMFileBuffer.Create(source);
  54.   try
  55.     InputPtr := MemStuff.BufPos;
  56.     BufferEnd := MemStuff.BufEnd;
  57.     while True do
  58.     begin
  59.       if InputPtr >= BufferEnd then
  60.         if not MemStuff.NextMemoryBuffer(InputPtr, 0) then
  61.           Break
  62.         else
  63.         begin
  64.           InputPtr := MemStuff.BufPos;
  65.           BufferEnd := MemStuff.BufEnd;
  66.         end;
  67.       Char1 := InputPtr^;
  68.       inc(InputPtr);
  69.       B64Char := B64Table[Byte(Char1) shr 2];
  70.       OutputPtr^ := B64Char;
  71.       inc(OutputPtr);
  72.       inc(Counter);
  74.       if Counter >= TotalBytes then
  75.       begin
  76.         Char2 := #0;
  77.         B64Char := B64Table[(((Byte(Char1) and $03) shl 4) or ((Byte(Char2) and $F0) shr 4))];
  78.         OutputPtr^ := B64Char;
  79.         inc(OutputPtr);
  80.         OutputPtr^ := EOD;
  81.         inc(OutputPtr);
  82.         OutputPtr^ := EOD;
  83.         inc(OutputPtr);
  84.       end
  85.       else
  86.       begin
  87.         if InputPtr >= BufferEnd then
  88.           if not MemStuff.NextMemoryBuffer(InputPtr, 0) then
  89.             Break
  90.           else
  91.           begin
  92.             InputPtr := MemStuff.BufPos;
  93.             BufferEnd := MemStuff.BufEnd;
  94.           end;
  95.         Char2 := InputPtr^;
  96.         inc(InputPtr);
  97.         B64Char := B64Table[(((Byte(Char1) and $03) shl 4) or ((Byte(Char2) and $F0) shr 4))];
  98.         OutputPtr^ := B64Char;
  99.         inc(OutputPtr);
  100.         inc(Counter);
  102.         if Counter >= TotalBytes then
  103.         begin
  104.           Char3 := #0;
  105.           B64Char := B64Table[(((Byte(Char2) and $0F) shl 2) or ((Byte(Char3) and $C0) shr 6))];
  106.           OutputPtr^ := B64Char;
  107.           inc(OutputPtr);
  108.           OutputPtr^ := EOD;
  109.           inc(OutputPtr);
  110.         end
  111.         else
  112.         begin
  113.           if InputPtr >= BufferEnd then
  114.             if not MemStuff.NextMemoryBuffer(InputPtr, 0) then
  115.               Break
  116.             else
  117.             begin
  118.               InputPtr := MemStuff.BufPos;
  119.               BufferEnd := MemStuff.BufEnd;
  120.             end;
  121.           Char3 := InputPtr^;
  122.           inc(InputPtr);
  123.           B64Char := B64Table[(((Byte(Char2) and $0F) shl 2) or ((Byte(Char3) and $C0) shr 6))];
  124.           OutputPtr^ := B64Char;
  125.           inc(OutputPtr);
  126.           inc(Counter);
  127.           B64Char := B64Table[(Byte(Char3) and $3F)];
  128.           OutputPtr^ := B64Char;
  129.           inc(OutputPtr);
  130.         end;
  131.       end;
  133.       if (Counter mod 45 = 0) or ((OutputPtr - 1)^ = EOD) then
  134.       begin
  135.         if ((OutputPtr - 1)^ <> EOD) then
  136.         begin
  137.           OutputPtr^ := #13;
  138.           inc(OutputPtr);
  139.           OutputPtr^ := #10;
  140.           inc(OutputPtr);
  141.           OutputPtr^ := #0;
  142.         end
  143.         else
  144.         begin
  145.           Len := LongInt(OutputPtr) - LongInt(Output);
  146.           SetLength(Output, Len);
  147.         end;
  148.         destination.Write(PChar(Output)^, Len);
  149.         OutputPtr := PChar(Output);
  150.       end;
  151.     end;
  152.   finally
  153.     MemStuff.Free;
  154.   end;
  156.   Len := LongInt(OutputPtr) - LongInt(Output);
  157.   if Len > 0 then
  158.   begin
  159.     SetLength(Output, Len);
  160.     destination.Write(PChar(Output)^, Len);
  161.   end;
  163.   destination.Write(EOD, 1);
  164.   result := True;
  165. end;
  167. end.