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

[gasmann]

Hallo,

ich möchte ein Programm entwickeln, welches binäre Daten aus der Standardausgabe mittels BlockRead lesen (und später auch mittels BlockWrite in die Standardausgabe schreiben) kann.
Mit normalen Dateien funktioniert das folgendermaßen einwandfrei:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  fin, fout: file;
  buf: byte;

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  if ParamCount <> 1 then exit;
  AssignFile(fin, 'eingabedatei');
  Reset(fin,1);
  AssignFile(fout, ParamStr(1));
  Rewrite(fout,1);
  while not eof(fin) do
  begin
    BlockRead(fin, buf, 1);
    BlockWrite(fout, buf, 1);
  end;
  CloseFile(fin);
  CloseFile(fout);
end.

Wenn ich nun für 'eingabedatei' '' (einen Leerstring) angebe, wird laut Delphi-Hilfe zu Reset die Standardein- bzw. ausgabe (je nachdem, ob Reset oder Rewrite verwendet wird) geöffnet. Allerdings stürzt das Programm dann bei dem BlockRead ab. Ich vermute stark, dass es daran liegt, dass stdin als Textdatei geöffnet wird und man BlockRead dort nicht verwenden kann.

In C war es ganz einfach, das zu tun was ich möchte:

Code:

#include <stdio.h>
#include <file.h>

int main(int argc, char *argv[])
{
  FILE *fp;
  int c;
  if(argc < 2) return 1;
  setmode(fileno(stdin), O_BINARY);
  fp = fopen(argv[1], "wb");
  while((c=getchar())!=EOF)
    fputc(c, fp);
  fclose(fp);
  return 0;
}

hier sorgt der setmode-Befehl für ein binäres Öffnen der Standardeingabe. Und wie macht man das mit Delphi?

Vielen Dank für eure Hilfe!

[grenzgaenger]

in C macht du das auch nicht via Blockread :wink:

übrigens standardin-/out heissen Input und Output ... und sind bereits geöffnet :angel2:

[gasmann]

Soll das heißen, dass man aus der Standardeingabe mit BlockRead überhaupt nicht lesen kann?
Danke für den Tipp mit Input/Output, das wusste ich nicht.

[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 :-D Man kann sehr wohl auch in Textdateien binär schreiben, soviel ist mir jetzt klar geworden hehe...