Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#13

AW: Binärdatei mit TFileStream auslesen

  Alt 10. Okt 2010, 10:31
Moin SirThornberry,
stimmt das ergibt Sinn, ich dachte Write erwartet einen Pointer, aber Gegenvorschlag einfach das @ wegnehmen?

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;
MfG
Fabian
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat