@xzise: folgendes dürfte nicht funktionieren:
Delphi-Quellcode:
procedure ShowBinary(var Data; Count: Cardinal; FileName : string);
var
s : TStream;
begin
s := TFileStream.Create(FileName, fmCreate);
try
s.Write(@Data, Count);
finally
s.Free;
end;
end;
explizit die Zeile
s.Write(@Data, Count);
Write erwartet eine Referenz und keinen Pointer. Durch ein vorangestelltes @ wird die Adresse auf die Data Variable geschreiben + die Daten die dahinter im Speicher liegen. (falls es überhaupt kompiliert)