Forum: Programmieren allgemein
by Gehstock,
25. Feb 2008
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
Forum: Programmieren allgemein
by Gehstock,
24. Feb 2008
Was macht die eckige klammer "Function crc_16_l_step(crc : word;data : Byte): Word;
Begin
Result := crc16_table 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
Forum: Programmieren allgemein
by Gehstock,
24. Feb 2008
Ups ja übersehen
den CRC Algo hab ich gefunden
WORD crc_16_l_step(WORD crc, byte data)
{
return crc16_table ^ ((crc >> 8) & 0xFF);
}
DWORD CComDlg::CalcCRC16(byte* buf_ptr, DWORD len, BOOL value)
{
Forum: Programmieren allgemein
by Gehstock,
24. Feb 2008
Kann jamand mal die Übersetzung zuende machen bzw. kontrollieren
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
Forum: Programmieren allgemein
by Gehstock,
23. Feb 2008
wie mache ich das in dieser zeile CRC := CalcCRC16(sendbytes,length,firsttrail); was stellt firsttrail dar
Forum: Programmieren allgemein
by Gehstock,
23. Feb 2008
Dann wohl C++ nach Delphi
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
Forum: Programmieren allgemein
by Gehstock,
23. Feb 2008
sendstring="290200";
retlen=sendstring.GetLength();
StringToCommbyte(sendstring,retlen, commsend);
fRes=WriteData(m_hCom, commsend,retlen,FALSE);
also aus 290200 wird 290200596a7e
void CComDlg::StringToCommbyte (CString input, DWORD& length, byte* sendbytescom)