Einzelnen Beitrag anzeigen

Teekeks

Registriert seit: 19. Okt 2008
Ort: Dresden
765 Beiträge
 
FreePascal / Lazarus
 
#22

Re: Text an ein Console Programm Senden

  Alt 23. Aug 2009, 05:56
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
Peter
"Div by zero Error" oder auch: "Es geht auch ohne Signatur!".
  Mit Zitat antworten Zitat