Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
10. Okt 2010
Moin SirThornberry,
stimmt das ergibt Sinn, ich dachte Write erwartet einen Pointer, aber Gegenvorschlag einfach das @ wegnehmen?
procedure ShowBinary(var Data; Count: Cardinal; FileName : string);
var
s : TStream;
begin
s := TFileStream.Create(FileName, fmCreate);
try
s.Write(Data, Count);
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
8. Okt 2010
Moin Eva,
das Problem ist die Methode "EOF" oder was auch immer das ist. Woher weiß die das der Stream damit gemeint ist? Ich weiß nicht ob es TStream.EOF gibt, aber ansonsten kannst du auch testen:
while (stream.position + SizeOf(<dein record>) < stream.size) do
Die Redbox oder der rote Kasten erscheint (normalerweise), wenn jemand zwischenzeitlich was geschrieben hat, um seinen Post...
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
8. Okt 2010
Wie klappt das mit TFileStream denn nicht. Also was ist da der Fehler? Dann musst du auch nicht den Umweg über Hex-Werte geben. Was möchtest du den außerdem abspeichern?
Dürfte nicht das funktionieren:
procedure ShowBinary(var Data; Count: Cardinal; FileName : string);
var
s : TStream;
begin
s := TFileStream.Create(FileName, fmCreate);
try
s.Write(@Data, Count);