• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi对应c#的一些函数及类型的转换方法【原】

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

例一

实现目的:将字符串中每一个字符转成二进制(比如 'Data' 中的 D 转成 00100010 ,整个就是 00100010100001100010111010000110)

处理逻辑:string result = StrToByte("Data"); result结果是00100010100001100010111010000110

  1、实际上 D 转成十进制是68,68再转成二进制是 1000100 ,c#中我用 Convert.ToString(b, 2) 转了之后只有7位,不知道为什么只有7位,所以前面补 0 就变成了 01000100

  2、将补够8位的二进制进行倒序,就得到结果:00100010

  3、delphi 代码代码如下:

//StrToByte函数
function StrToByte(Str : string):string;
var
  i : integer;
  temp : string;
begin
  for i := 1 to Length(Str) do
  begin
    temp := temp + CharToByte(byte(Str[i]));
  end;
  Result := Temp;
end;

//CharToByte函数
function CharToByte(S : integer):string;
var
  temp : string;
begin
  while true do
  begin
    if S mod 2 = 0 then
    begin
     S := S div 2;
     temp := temp + '0';
     if S = 1 then
     begin
       temp := temp + '1';
       break;
     end;
    end
    else begin
     S := S div 2;
     temp := temp + '1';
     if S = 1 then
     begin
       temp := temp + '1';
       break;
     end;
    end;
  end;
  Temp := LeftStr((Temp + '00000000'),8);
  Result := Temp;
end;

------------------------------

在c#里面是这样写的:

        
        string StrToByte(string Str)
        {
            string result = string.Empty;

            byte[] bs = Encoding.UTF8.GetBytes(Str);
            foreach (byte b in bs)
            {
                //将b转成二进制
                string tmp = Convert.ToString(b, 2);
                //不够8位左边补0
                tmp = tmp.PadLeft(8, '0');
                char[] cs = tmp.ToCharArray();
                //将所有元素进行倒序
                Array.Reverse(cs);
                tmp = new string(cs);
                result += tmp;
            }
            return result;
        }


例二

实现目的:将经算法加密过的二进制转成字符串,比如将1001101111010011 转成 sa

处理逻辑:string result=DecryptString("1001101111010011"); result结果是sa

//DecryptString函数
function DecryptString(Str: String): String;
var
  i : integer;
  temp : string;
begin
  for i := 1 to length(Str) do   
  begin
    if i mod 2 = 0 then
    begin
      if Str[i] = '1' then
        Str[i] := '0'
      else
        Str[i] := '1';
    end;
  end;

  for i := 1 to length(Str) do
  begin
    if i mod 8 = 0 then
    begin
      temp := temp + ByteToChar(copy(Str,i-7,8));
    end;
  end;
  Result := temp;
end;

//ByteToChar函数
function ByteToChar(ByteStr : string):String;
var
  i : integer;
  IntVal : extended;// extended == c#:double
begin
  IntVal := 0;
  for i := 1 to length(ByteStr) do
  begin
    IntVal := IntVal + powerEx(2,i-1) * strtoint(ByteStr[i]);
  end;
  Result := Chr(strtoint(FloatToStr(IntVal)));
end;

//PowerEx函数
function PowerEx(x, y : extended) : extended;
begin
  result := exp(y*ln(x));
end;

---------------------------------------

c#中代码是这样写的:

        string DecryptString(string Str)
        {
            string result = string.Empty;
            char[] cs = Str.ToCharArray();
            for (int i = 0; i < cs.Length; i++)
            {
                if ((i + 1) % 2 == 0)
                {
                    if (cs[i] == '1')
                        cs[i] = '0';
                    else
                        cs[i] = '1';
                }
            }
            Str = new string(cs);
            for (int j = 0; j < Str.Length; j++)
            {
                if ((j + 1) % 8 == 0)
                {
                    result += ByteToChar(Str.Substring(j - 7, 8));
                }
            }
            return result;
        }
        string ByteToChar(string ByteStr)
        {
            double IntVal = 0;
            string result = string.Empty;

            for (int i = 0; i < ByteStr.Length; i++)
            {
                IntVal += PowerEx(2, i) * Convert.ToInt32(ByteStr[i].ToString());
            }
            return Convert.ToChar(Convert.ToInt32(IntVal.ToString())).ToString();
        }
        double PowerEx(double x, double y)
        {
            return Math.Exp(y * Math.Log(x, Math.E));
        }


几个关键的地方:

1、delphi的string的索引是从1开始的,所以在%运算的时候 i或j 都加了1;

2、c#中string的某一个char无法直接赋值,如 DecryptString函数中的Str[i]='1',这样会报错,说无法对其赋值,所以需要转成char数组,再对数组元素进行赋值,最后再Str=new string(cs)赋回给Str;

3、delphi中的ln(x)对应c#中的Math.Log(x,Math.E),exp()对应Math.Exp()

4、delphi中的strtoint(ByteStr[i]) 开始我以为c#是Convert.ToInt32(ByteStr[i]),原来不是,这里要写成ByteStr[i].ToString()再convert,不然会变成该字符对应的十进制的值,而不是直接将string转成int;


5、貌似不太明白我在讲什么?- - !  其实有些我也还是不太懂,不同语言之间这种转换有时真的挺蛋疼的,特别是c#调用c++函数的时候,有时一个类型都有好几种转换方式,感觉delphi跟c++有些地方挺像的,不知道上面说的够不够准确,转的对不对,比如delphi的copy()函数,我查了下用法和参数之后感觉应该就是c#的SubString(),实现的效果一样,但是不知道还有什么实质上的不同,比如光这个名字copy就会不禁想一想,拷贝?拷贝来做啥?关于delphi转c#,c++转c#,到现在已经查了N多资料了,就当做学习笔记吧,顺便分享。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap