Text an ein Console Programm Senden

[chaosben]

Hmmm .. ein guter Einwurf.
Ich hab die Unit mal angepasst. Jetzt funktioniert es auch mit D2009.

[Teekeks]

Hi!
Wenn du TProcess benutzt (oder irgenteine abart davon) dann kannst du mit der folgenden kleinen Procedure alles an deine Konsole senden was du möchtest. Auch ganze befehle mit einem mal!

Delphi-Quellcode:

procedure SendCommand(cmd: string);
begin
  cmd:=cmd+#10;
  {dein Process}.Input.Write(cmd[1],Length(cmd));
end;

Wenn du den Output auch brauchs dann geht das damit:

Delphi-Quellcode:

function GetProcessOutput: string;
var AStringList: TStringList;
begin
   AStringList:=TStringList.Create;
   try
      AStringList.LoadFromStream({deim Process}.Output);
      Result:=AStringList.Strings[0];
   except
      writeln('EXCEPTION reading output');result:='';
   end;
   AStringList.Free;
end;

Gruß Teekeks