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.