Machen wir es einfach mal kurz ... wie ich schon sagt ... in meinem anderem Code (siehe irgendwo verlinkter Thread), hab ich alles auf einmal umcodiert
Mach mal aus
h0, h1, h2, h3: longword;
ein
a: array[0..3] of longword;
und verwende dann über alles ein
BinToHex.
Im Code dann statt h0 einfach h[0] verwenden.
Delphi-Quellcode:
SetLength(Result, SizeOf(h) * 2);
BinToHex(@h, PChar(Result), SizeOf(h));
ich glaub das müßte vollkommen ausreichen
