CRC von C in Delphi übersetze

[ZOD]

Das teste ich gleich!

Warum ich darauf selbst nicht gekommen bin ... Untercoffeinnebel wahrscheinlich.

Vielen DANK!

[Stevie]

Putzig, dass er sogar die falschen Sourcecode Kommentare übernommen hat (<< ist left shift und kein right shift, wie im Kommentar steht)

[ZOD]

Ja, faszinierend.

Vor allem, weil einen diese Kommentare beim "Selbstversuch" erst einmal in die Denkschleife schicken ....

[sh17]

Also manchmal ist ChatGPT schon zu gebrauchen, finde ich. Hab letztens eine Funktion optimiert und hab der KI gesagt, sie solle sie mal umschreiben, ohne die Nutzung von PChar und Pointern. Hat er/sie/es fix erledigt. Hätte mich ein paar Minuten mehr gekostet. Kontrolle des Codes geht dann durch mich schneller.

[ZOD]

eine erste Rückmeldung und Frage zur CRC Funktion:

das übergebene Funktionsargument pin ist nach meinem Verständnis ein Byte.
Es wird im Folgenden als Pointer auf das erste Zeichen der zu behandelnden Zeichenkette mit Länge len (2. Argument) verwendet.
Ich habe dies gefunden:
http://delphibasics.co.uk/RTL.php?Name=PAnsiChar

Um die CRC Funktion aufzurufen, verwende ich zum Test folgende Funktion:

Delphi-Quellcode:

function ErzeugeSolarisCRCWord(Text: string): word;
var
  tmpAnsiString: AnsiString;

  tmpPAnsiString: PByte;
  tmpPAnsiChar: PAnsiChar;

  tmpLength: Byte;

  tmpTextLength,
    i : integer;

begin
  // initialisieren
  result := 0;
  tmpTextLength := Length(Text);

  // validieren
  if ((tmpTextLength = 0) or (tmpTextLength > 256)) then
    exit;

  // Merker setzen
  tmpAnsiString := Text;
  i := 1;
  tmpPAnsiString := Addr(tmpAnsiString);
  tmpPAnsiChar := Addr(tmpAnsiString[i]);
  tmpLength := Length(tmpAnsiString);

  // CRC berechnen
  // function cal_crc_half(pin: PByte; len: Byte): Word;
  result := cal_crc_half(Addr(tmpPAnsiChar), tmpLength);

end;

Lasse ich das mit Text = 'QPIGS' laufen und setzte einen Haltepunkt vor dem Aufruf von cal_crc_half, habe ich folgende Werte:

Delphi-Quellcode:

  tmpPAnsiString = $12FBD8
  tmpPAnsiChar = 'QPIGS'
  tmpLength := 5

  Addr(tmpPAnsiChar) = $12FBD0

In der Funkton cal_crc_half ist nach der Zuweisung ptr := pin; der Wert von

Delphi-Quellcode:

  ptr = $12FBD0
  ptr^ = 12

Meinem bisherigen Verständnis nach sollte jedoch der derefernierte Wert von ptr ASCII-Wert des ersten Buchstaben von Text bzw. von tmpPAnsiChar sein - also "Q = ASCII 81". ptr^ liefert jedoch 12.

Ich verstehe das nicht, wahrscheinlich weil ich das Thema Pointer, AnsiChar und AnsiString nicht durchblickt habe.

Kann mir jemand helfen?

[sh17]

tmpPAnsiChar ist doch schon ein Pointer, Du übergibts also, denke ich, die Adresse auf die Adresse Addr(tmpPAnsiChar)

[ZOD]

mhm - das ist sicher richtig. Jedoch bekomme ich ohne Addr() diese Fehlermeldung beim Kompilieren:

[Fehler] uCRCSolaris.pas(174): Inkompatible Typen: 'Char' und 'Byte'

Wie gesagt, ich bin beim Thema Pointer und Adressen sehr unerfahren.