Teil eines PChar in Integer umwandeln

[Kostas]

Hallo Zusammen,

Delphi-Quellcode:

RcvdHeaderSize := 28; 
GetMem(RcvdHeader, RcvdHeaderSize);

ich empfange über TCP ein Paket mit einer Länge von 28 Bytes die in einer PChar Variable RcvdHeader abgelegt werden.
Die letzten 4 Bytes sind die Länge des nächsten Paketes in BigEndian z.B.: 0x80 0x25 0x00 0x00 für die Länge 9600.

Wie lassen sich bitte die vier letzten Bytes relativ schnell in integer umwandeln da die Daten weiter fliesen.

Gruß Kostas

[Zacherl]

PInteger(PByte(RcvdHeader) + 24)^ Endian-ess umwandeln kannst du danach mit einer der hier vorgeschlagenen Lösungen machen:
http://stackoverflow.com/questions/3...numbers-delphi

[p80286]

Am einfachsten wäre ein record

Delphi-Quellcode:

tmyrecord = packed record
  text : Array [1..24] of char;
  lange : Integer;
end;

Ich halte es allerdings für sehr ungewöhnlich, daß eine Längenangabe Teil eines pchar sein soll.

Gruß
K-H

[Zacherl]

Zitat von p80286:

Ich halte es allerdings für sehr ungewöhnlich, daß eine Längenangabe Teil eines pchar sein soll.

PChar nimmt er ja nur als Buffer. Ist relativ weit verbreitet diese Vorgehensweise .. wobei ich persönlich hierfür auch eher ein untypisiertes Pointer bevorzuge.

[Kostas]

Zitat von Zacherl:

PInteger(PByte(RcvdHeader) + 24)^ Endian-ess umwandeln kannst du danach mit einer der hier vorgeschlagenen Lösungen machen:
http://stackoverflow.com/questions/3...numbers-delphi

Hallo Zacherl,

ich habe versucht dein Vorschlag umzusetzen, doch leider bekomme ich einen
Felher "Operator ist für den Operantentyp nicht anwendbar"

Delphi-Quellcode:

function Swap4(n: Cardinal): Cardinal;
asm
   bswap eax
end;


function GetNextLength(aRcvdBuf:PChar; aRcvdSize:integer):integer;
begin
  result := 0;

  if aRcvdSize>4 then
  begin
    result := PInteger(PByte(aRcvdBuf) + aRcvdSize-4)^; <<< Operator ist für den Operantentyp nicht anwendbar.
    result := Swap4(result);
  end;
end;

Herzlichen Dank für die Hilfe.

[Neutral General]

So müsste es gehn

result := PInteger(Cardinal(aRcvdBuf) + aRcvdSize-4)^; // statt Integer musst du ggf. NativeUInt benutzen bei 64-Bit

[Kostas]

Ihr seit große Klasse, es funktioniert einwandfrei.

Ich habe das ganze Jahr nichts mit Pointern zu tun.
Herzlichen Dank nochmal an alle.

Einen schönen Abend noch
Gruß Kostas

[Zacherl]

Zitat von Neutral General:

result := PInteger(Cardinal(aRcvdBuf) + aRcvdSize-4)^; // statt Integer musst du ggf. NativeUInt benutzen bei 64-Bit

Nicht machen Wenn man plattformunabhängig bleiben will, sollte man auf jeden Fall mit PByte() casten. NativeUInt sollte auch funktionieren, aber die PByte Variante ist empfohlen.

Probiers mal mit Result := PInteger(PByte(aRcvdBuf) + (aRcvdSize - 4))^

[Neutral General]

Zitat von Zacherl:

Zitat von Neutral General:

result := PInteger(Cardinal(aRcvdBuf) + aRcvdSize-4)^; // statt Integer musst du ggf. NativeUInt benutzen bei 64-Bit

Nicht machen Wenn man plattformunabhängig bleiben will, sollte man auf jeden Fall mit PByte() casten. NativeUInt sollte auch funktionieren, aber die PByte Variante ist empfohlen.

Probiers mal mit Result := PInteger(PByte(aRcvdBuf) + (aRcvdSize - 4))^

PByte geht aber nicht wenn die Zeigerarithmetik ausgeschaltet ist, und das ist sie standardmäßig und bei ihm scheinbar auch.

[Kostas]

Zitat von Zacherl:

Zitat von Neutral General:

result := PInteger(Cardinal(aRcvdBuf) + aRcvdSize-4)^; // statt Integer musst du ggf. NativeUInt benutzen bei 64-Bit

Nicht machen Wenn man plattformunabhängig bleiben will, sollte man auf jeden Fall mit PByte() casten. NativeUInt sollte auch funktionieren, aber die PByte Variante ist empfohlen.

Probiers mal mit Result := PInteger(PByte(aRcvdBuf) + (aRcvdSize - 4))^

Hi,
funktioniert leider nicht, zumindest nicht mit Delphi5 (nicht XE5) ist für ein altes Projekt.
Hingegen mit Cardinal schon. Für mich ist das völlig ausreichend.

Bitte noch eines, wie kann ich aus dem gleichen Buffer einen bestimmten Bereich in ein String schreiben?
In der Hilfe über String-Verarbeitung (nullterminiert) suche ich nach etwas wie copy aber das gibt es nicht.