Hilfe bei C++ Übersetzung

[Gehstock]

Delphi-Quellcode:

sendstring="290200";
   retlen=sendstring.GetLength();
   StringToCommbyte(sendstring,retlen, commsend);

   fRes=WriteData(m_hCom, commsend,retlen,FALSE);

also aus 290200 wird 290200596a7e

Code:

void CComDlg::StringToCommbyte (CString input, DWORD& length, byte* sendbytescom)
{
   input.Remove((char)0x20);
   length=length/2;
   byte sendbytes[10000] = {0};
   DWORD count=0;
   BOOL firsttrail;
   if (input.Mid(0,2)=="7E") 
   { 
      firsttrail=true;
   }
   for (DWORD count=0; count<length; count++)
      {
         sendbytes[count]=(byte)_strtoui64(input.Mid(count*2,2),NULL,16);
      }
   DWORD crc=CalcCRC16(sendbytes,length,firsttrail);
   sendbytes[length]=(byte)(crc%0x100);
   sendbytes[++length]=(byte)(crc/0x100);
   DWORD sc=0;
   
   for (DWORD s=0;s<length+1;s++)
   {
   switch ((byte)sendbytes[s])
      {
         case 0x7E:
            if (sc!=0)
            {
            sendbytescom[sc]=(byte)0x7D;
            sendbytescom[++sc]=(byte)0x5E;
            } else
            sendbytescom[sc]=sendbytes[s];
            break;
         
         case 0x7D:
            sendbytescom[sc]=(byte)0x7D;
            sendbytescom[++sc]=(byte)0x5D;
            break;

         default:
            sendbytescom[sc]=sendbytes[s];
            break;
      }
   sc++;
   }
   length=sc;
}

Kann mir bitte das jemand im Groben übersetzen mit dem CRC16 muss ich mich dann halt kümmern
der zuntere Teil "Switch" sollte auch kein problem sein

[edit=Phoenix]Delphi- in Code-Tags geändert. Das in den geschweiften klammern sieht sonst so nach Kommentar aus ;-) Mfg, Phoenix[/edit]

[Jürgen Thomas]

Bist Du sicher, dass Du eine Übersetzung mit C# haben willst? "::" und DWORD und die Adress-Operatoren deuten doch sehr auf C++ hin. Und gib bitte nochmal genau an, was die Quellsprache und was die Zielsprache sein soll; mit Deinen Anmerkungen hast Du mich verwirrt.

Jürgen

[Gehstock]

Dann wohl C++ nach Delphi

Delphi-Quellcode:

Function StringToCommbyte (Input : String ;length : DWORD; sendbytescom : Byte):Boolean; //oder Sendbytecom ist das result (byte)
var
 firsttrail : Boolean;
      count : DWord;
         sc : DWord;
          s : DWord;
        CRC : DWord;  //DWORD crc
  sendbytes : Array [0..9999] of Byte;  //   byte sendbytes[10000] = {0};
Begin
   sc := 0; //DWORD sc=0;
   Stringreplace(Input,#20,'',[rfReplaceAll]);//input.Remove((char)0x20);
   length :=length div 2;  //length=length/2;
   if Copy(Input,0,2) = #126 then //if (input.Mid(0,2)=="7E")
   begin
     firsttrail := True;  //firsttrail=true;
   end;
   for Count := 0 to length do//for (DWORD count=0; count<length; count++)
      begin
        //sendbytes[count]=(byte)_strtoui64(input.Mid(count*2,2),NULL,16);
      end;
 //  CRC := CalcCRC16(sendbytes,length,firsttrail);
//   sendbytes[length]=(byte)(crc%0x100);
//   sendbytes[++length]=(byte)(crc/0x100);

for s := 0 to length + 1 do     // for (DWORD s=0;s<length+1;s++)
   begin
      Case sendbytes[s] of //   {Case of} switch ((byte)sendbytes[s])
    $7e:  Begin    //case 0x7e:
           if SC = 0 Then// if (sc!=0)
            Begin
              sendbytescom[sc] := $7D;   //sendbytescom[sc]=(byte)0x7D;
              sendbytescom[inc(sc)] := $5e;   //sendbytescom[++sc]=(byte)0x5E;
            end else
              sendbytescom[sc] := sendbytes[s];  //sendbytescom[sc]=sendbytes[s];
            break;
            end;
    $7d:  Begin    //case 0x7D:
           sendbytescom[sc] := $7D;   //sendbytescom[sc]=(byte)0x7D;
           sendbytescom[inc(sc)] := $5D;   // sendbytescom[++sc]=(byte)0x5D;
           break;
            end;
         else
           sendbytescom[sc] := sendbytes[s];  //sendbytescom[sc]=sendbytes[s];
            break;
      end;
   Inc(sc);
   end;
   length := sc;
end;

so in etwa hab ichs bis jetzt

[Gehstock]

wie mache ich das in dieser zeile

Delphi-Quellcode:

CRC := CalcCRC16(sendbytes,length,firsttrail);

was stellt firsttrail dar

[Gehstock]

Kann jamand mal die Übersetzung zuende machen bzw. kontrollieren

Delphi-Quellcode:

CRC := CalcCRC16(sendbytes,length,firsttrail);

fehlt mir auch immmer noch

CalcCRC16 taucht nicht im sourcecode als funktion auf müsste also generell bei c++ dabei sein

[Muetze1]

Das ist definitiv keine C++ Funktion und die muss in den Quellen mit bei sein. CRC16 Algorithmen gibt es viele, die Frage ist eher, von welchen Start-Seed gehen die aus?

[Die Muhkuh]

Gehstock: StringReplace ist eine Funktion, keine Prozedur. :zwinker:

[Gehstock]

Zitat:

Gehstock: StringReplace ist eine Funktion, keine Prozedur.

Ups ja übersehen

den CRC Algo hab ich gefunden

Delphi-Quellcode:

WORD crc_16_l_step(WORD crc, byte data)
{
   return crc16_table[(crc ^ data) & 0xff] ^ ((crc >> 8) & 0xFF);
}

DWORD CComDlg::CalcCRC16(byte* buf_ptr, DWORD len, BOOL value)
{
    WORD eax = CRC_16_SEED;
   DWORD i=0;
   if (value==true) i=1;
    for (i = i; i < len; i++) eax = crc_16_l_step(eax, buf_ptr[i]);
    eax = eax ^ CRC_16_SEED;
    return eax;
}

kann mir das jemand übersetzen

[Gehstock]

Was macht die eckige klammer "[" in c++ ist das auch ein Array

ist diese Übersetzung soweit richtig?

Delphi-Quellcode:

Function crc_16_l_step(crc : word;data : Byte): Word;
Begin
   Result := crc16_table[(crc xor data) and $ff] xor ((crc shr 8) and $FF);
end;

Function CalcCRC16(buf_ptr : Array of byte;len : DWORD;value : BOOL): DWORD;
var
eax : Word;
i : DWord;
begin
  eax := $FFFF;
   i := 0;
   if (value = true) then  i :=1;
    for i := i to len do
    eax := crc_16_l_step(eax, buf_ptr[i]);
    eax := eax xor $FFFF;
    Result := eax;
end;

und was sind das für Typen

byte* , DWORD& , ^byte

und dafür brauch ich Hilfe

Delphi-Quellcode:

sendbytes[count]=(byte)_strtoui64(input.Mid(count*2,2),NULL,16);

[Gehstock]

Kann keiner helfen

[Muetze1]

Der CRC16 Algo ist Standard, der Start Seed value wäre nur interessant gewesen, den hättest du den zig verschiedenen Implementationen u.a. hier im Forum einsetzen können. Ansonsten anstatt einem Array of Byte wäre es eigentlich ein Pointer auf ein Byte in der Funktion.

Delphi-Quellcode:

function CalcCRC16(const buf_ptr: Pointer; len: LongWord; const value: boolean): LongWord;
var
  lData: PByte;
  lCRC: Word;
  i: Integer;
begin
  lCRC := CRC_16_SEED;
  lData := buf_ptr;

  if value then
  begin
    Inc(lData);
    Dec(len);
  end;

  for i := 1 to len do
  begin
    lCRC := crc_16_1_step(lCRC, lData^);
    Inc(lData);
  end;

  result := lCRC xor CRC_16_SEED;
end;

[Gehstock]

Danke so gehts noch ne frage zum Result z.B.1234 brauch ich als 3412
muss ich erst in einen string umwandeln und dann tauschen oder gibt es einen kürzeren weg

[Muetze1]

Delphi-Quellcode:

function SwapHiLo(const AWord: Word): Word;
begin
  result := Hi(AWord) or (Lo(AWord) shl 8);
end;

Du hast doch jetzt bestimmt auch schon ein paar Routinen für den BigEndian/LowEndian Byte-Swap. Diese kannst du einfach nutzen, da zweimal geswappt wieder original ist - wenn du verstehst was ich meine.