Question

我正在尝试将此pascal代码转换为C＃，以便与连接到comm端口的外围设备进行通信。这段代码应该计算控制字节，但是我没有得到正确的十六进制值，因此我想知道我是否以正确的方式转换代码。帕斯卡：

begin
  check := 255;
  for i:= 3 to length(sequence)-4 do
  check := check xor byte(sequence[i]);
end;

C＃：

int check = 255;
for (int x = 3; x < (sequence.Length - 4); x++)
{
    check = check ^ (byte)(sequence[x]);
}

Pascal功能：

{ *** conversion of number into  string ‘hex’ *** }
function word_to_hex (w: word) : string;
  var
  i : integer;
  s : string;
  b : byte;
  c : char;
begin
  s := ‘’;
  for i:= 0 to 3 do
  begin
    b := (hi(w) shr 4) and 15;
    case b of
    0..9 : c := char(b+$30);
    10..15 : c := char(b+$41-10);
  end;
  s := s + c;
  w := w shl 4;
end;
word_ to_hex := s;
end;

C＃等价物：

     public string ControlByte(string check)
    {
        string s = "";
        byte b;
        char c = '\0';
        //shift = check >> 4 & 15;
        for (int x = 0; x <= 3; x++)
        {
            b = (byte)((Convert.ToInt32(check) >> 4) & 15);

            if (b >= 0 && b <= 9)
            {
                c = (char)(b + 0x30);
            }
            else if (b >= 10 && b <= 15)
            {
                c = (char)(b + 0x41 - 10);
            }
            s = s + c;
            check = (Convert.ToInt32(check) << 4).ToString();
        }
        return s;
    }

最后帕斯卡尔：

function byte_to_hex (b:byte) : string;
begin
byte_to_hex := copy(word_to_hex(word(b)),3,2);
end;

我不确定如何从函数中对结果进行子串。如果代码转换有问题，我是否需要将函数结果转换为字节，请告诉我。我很感谢你的帮助，UF。

进一步信息编辑：最初我发送一个字符串序列，其中包含打印机应该打印的命令和信息。由于每个序列都有一个唯一的控制字节（十六进制），我必须从序列中计算出来（sequence =＆＃34; P1; 1 $ l201PrinterPrinterPrinter1B / 100.00 / 100.00 / 0 / \＆＃34;）这就是上面的代码根据POSNET =＆gt;＆＃34; cc - 控制字节，编码为2个十六进制数字（ESC P之后所有字符的EXOR到此字节的＃255初始数量），根据PASCAL语言中的以下算法:(见第一个代码块）＆＃34;。=＆gt; 1。在上述循环中计算出的构成控制字节的校验码应重新编码为两个HEX字符（范围内的ASCII字符：'0'..'9'，'A'..'F'，'a'..'f' ），利用以下byte_to_hex函数:(见第三个代码块）。 =＆gt; { *将字节转换为2个字符* }（参见第5个代码块）

Answer 1

我能看到的最明显的问题是Pascal代码在基于1的8位编码字符串上运行，而C＃代码在基于0的16位编码字符串上运行。要将您使用的Pascal / Delphi代码转换为C＃，您需要解决不匹配问题。也许是这样的：

byte[] bytes = Encoding.Default.GetBytes(sequence);
int check = 255;
for (int i = 2; i < bytes.Length-4; i++)
{
    check ^= bytes[i];
}

现在，为了写这个，我必须做出相当多的假设，因为你没有在问题中包含足够接近的代码。这就是我的假设：

Pascal sequence变量是一个基于1的8位ANSI编码的Delphi AnsiString。
Pascal check变量是Delphi 32位签名Integer。
C＃sequence变量是C＃string。

如果这些假设中的任何一个被证明是错误的，那么上面的代码就没有用了。例如，Pascal check可能真的是Byte。在这种情况下，我猜C＃代码应该是：

byte[] bytes = Encoding.Default.GetBytes(sequence);
byte check = 255;
for (int i = 2; i < bytes.Length - 4; i++)
{
    check ^= bytes[i];
}

我希望这能说服您提供完整信息的重要性。

这个问题真的很重要。其余代码涉及将值转换为C＃代码中的十六进制字符串。这已经在Stack Overflow上一次又一次地被覆盖。例如：

还有很多这样的问题。

Pascal转C＃转换

1 个答案: