捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:uuencode,DELPHI实现,练习位运算的作品
huhuc 34694 2008/6/19 11:34:30
哈,我在这里发现了一个http://www.torry.net/quicksearchd.php?String=UUCode&Title=Yes,ICS里面也有的。
不管怎么样,支持楼主自己实现。
hsgrass 34665 2008/6/17 14:45:04
我的主要目的是熟悉一下位运算和可以将二进制的文件贴到BBS等地方
解码思想在README里面有说明,RAR,ZIP也支持解码,有兴趣可以写一下,
我以前找过,也有解码的DELPHI源码.
谢谢你的关注
senfore 34651 2008/6/16 20:10:42
function UuEncode(const S: AnsiString): AnsiString;
senfore 34650 2008/6/16 20:09:45
是否有解码算法,我将你的函数改写了一下,可以直接编码String。

var
  mStream: TMemoryStream;
  Strings: TStringList;
  buf: array[1..45] of byte;
  b2: array[1..4] of byte;
  a, b, c: byte;
  i, k: integer;
  strTmp, data: AnsiString;
begin
  result := '';
  data := '';
  //result := 'begin 644 ' + #13#10;
  mStream := TMemoryStream.Create;
  Strings := TStringList.Create;
  try
    Strings.Text := S;
    Strings.SaveToStream(mStream);
    mStream.Seek(0,soBeginning);
    FillChar(buf, length(buf), 0);    
    while mStream.Read(buf, length(buf)) > 0 do
    begin
      i := 1; strTmp := '';
      while i <= Length(buf) do
      begin
        a := Ord(buf[i]); inc(i);
        b := Ord(buf[i]); inc(i);
        c := Ord(buf[i]); inc(i);
        b2[1] := a shr 2;
        b2[2] := ((a and 3) shl 4) or (b shr 4);
        b2[3] := ((b and 15) shl 2) or (c shr 6);
        b2[4] := c and 63;
        for k := 1 to Length(b2) do
          strTmp := strTmp + chr(b2[k] + 32);
      end;
      data := data + 'M' + strTmp + #13#10;
    end;
  finally
    mStream.free;
    Strings.Free;
  end;
  Result:=data;
  //result := result + data + chr(96) + #10'end';
end;
第一页 上一页 下一页 最后页 有 4 条纪录 共1页 1 - 4
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表