Wie kann man in Delphi stdin binär öffnen?

[gasmann]

Ich glaub ich habs jetzt:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  fout: textfile;
  buf: char;

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  if ParamCount <> 1 then exit;
  //Input ist schon offen, also brauchen wir es nicht zuzuweisen
  SetLineBreakStyle(Input, tlbsLF); // weil sonst 0D auf Windows zu 0D0A ersetzt wird
  Reset(Input);
  AssignFile(fout, ParamStr(1));
  SetLineBreakStyle(fout, tlbsLF);
  Rewrite(fout);
  while not eof(Input) do
  begin
    read(Input, buf);
    write(fout, buf);
  end;
  CloseFile(fout);
end.

Naja, wenigstens gehts jetzt Man kann sehr wohl auch in Textdateien binär schreiben, soviel ist mir jetzt klar geworden hehe...