och, so schwer ist das eigentlich nicht ... man muß nur den Speicherbereich vorher resservieren, da dieses nicht von BinToHex übernommen wird. (in Delphi läßt es sich ja sonst sehr leicht mit strings umgehen ... man muß sich um fast nix kümmern
)
einzeln geht es übrigens auch ... läßt sich am Einfachsten über eine Temp-Variable (hier S) lösen
Delphi-Quellcode:
SetLength(S, SizeOf(LongWord) * 2);
BinToHex(@h0, PChar(S), SizeOf(LongWord));
Result := S;
BinToHex(@h1, PChar(S), SizeOf(LongWord));
Result := Result + S;
BinToHex(@h2, PChar(S), SizeOf(LongWord));
Result := Result + S;
BinToHex(@h3, PChar(S), SizeOf(LongWord));
Result := Result + S;
nja, oder man geht hängt es im String zusammen ^^ (muß man nur etwas mehr nachrechnen)
[delphi]SetLength(Result, SizeOf(LongWord) * 2 * 4);
BinToHex(@h0, @Result[1], SizeOf(LongWord));
BinToHex(@h1, @Result[9], SizeOf(LongWord));
BinToHex(@h2, @Result[17], SizeOf(LongWord));
BinToHex(@h3, @Result[25], SizeOf(LongWord));