파스칼에서 C#으로 변환

Question

통신 포트에 연결된 주변 장치와 통신하기 위해이 파스칼 코드를 C#으로 변환하려고합니다. 이 코드 조각은 컨트롤 바이트를 계산해야하지만 올바른 16 진수 값을 얻지 못합니다. 따라서 올바른 방법으로 코드를 변환하는지 궁금합니다. 파스칼 :

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]); 
} 

파스칼 기능 :

{ *** 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# 1 환산 :

 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; 

나는 어떤 방법으로 함수의 결과를 부분 문자열로 처리하는지 모르겠습니다. 따라서 코드 변환에 문제가 있는지 여부와 함수 결과를 바이트로 변환해야하는지 여부를 알려주십시오. 도와 주셔서 감사합니다, University of Florida.

추가 정보 EDIT : 처음에는 프린터가 인쇄해야하는 명령과 정보가 포함 된 문자열 시퀀스를 보냅니다. 모든 시퀀스에는 고유 한 제어 바이트 (16 진수)가 있기 때문에 시퀀스 (시퀀스 = "P1; 1 $ l201PrinterPrinterPrinter1B/100.00/100.00/0/\")에서 이것을 계산해야합니다. POSNET => "cc - PASCAL 언어의 다음 알고리즘에 따라 (첫 번째 코드 블록 참조). => 1에 따라 2 HEX 숫자 (ESC P 다음에이 문자를 # 255 초기 수량으로 EXOR)로 인코딩 된 제어 바이트입니다. 제어 바이트를 구성하는 위의 루프에서 계산 된 검사 번호는 두 개의 HEX 문자 (범위 : '0'.. '9', 'A'.. 'F', 'a'.. 'f'), 다음 byte_to_hex 함수를 사용합니다 (세 번째 코드 블록 참조). => {* 바이트를 2 문자로 변환 *} (5 번째 코드 블록 참조)

Answer 1

내가 볼 수있는 가장 명백한 문제는 파스칼 코드가 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]; 
} 

, 어디서든 질문에 충분한 코드 근처에 포함되지 않았기 때문이다. 여기서 I는 가정 무엇 :

1. 파스칼 sequence 변수 ANSI 델파이 AnsiString 부호화 1 계 8 비트이다.
2. 변수는 델파이 32 비트 Integer으로되어 있습니다.
3. 변수 C# 입니다.

이러한 가정 중 하나라도 틀린 것이라면 위의 코드는 좋지 않을 것입니다. 예를 들어, 아마도 파스칼 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# 코드의 16 진수 문자열로 변환하는 것과 관련이 있습니다. 스택 오버플로에 대해서는 여기에서 여러 번 다룹니다. 예를 들어 :

• C# convert integer to hex and back again
• How do you convert Byte Array to Hexadecimal String, and vice versa?

많은 더 많은 같은 질문이 있습니다.