Lazarus Tprocess中的输入和输出管

Question

我想通过Lazarus GUI应用程序制作终端。但是我遇到了麻烦。我希望有人可以帮助我。

Question1 ：中文和其他特殊炭不能正常显示，我想知道如何解决此问题。 （code）线程类别和“ run”按钮在单击事件上

屏幕截图

Question2 ：我想知道如何将某些命令输入到控制台中。我试图启动Windows CMD，并使用“ Winver”命令。但是，当我单击按钮时，什么也不会发生。

发送命令按钮

Answer 1

Winver不是控制台，而是GUI计划。要将输出输出的程序运行到备忘录中，请使用以下代码，该代码使用cmd.exe“ ver”命令检索版本。您也可以尝试将此模板用于第一个问题。

    unit mainprocesstomemo;
    
    {$mode delphi}{$H+}
    
    interface
    
    uses
      Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Process, Pipes;
    
    Type
      { TForm1 }
    
      TForm1 = class(TForm)
        Button1: TButton;
        Memo1: TMemo;
        procedure Button1Click(Sender: TObject);
      private
      public
        procedure ProcessEvent(Sender,Context : TObject;Status:TRunCommandEventCode;const Message:string);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.lfm}
    
    { TProcessMemo }
    Type
    
     TProcessToMemo = class(TProcess)
                                public
                                fmemo : Tmemo;
                                bytesprocessed : integer;
                                fstringsadded : integer;
                                function ReadInputStream(p:TInputPipeStream;var BytesRead:integer;var DataLength:integer;var Data:string;MaxLoops:integer=10):boolean;override;
                              end;
    
    
    
    function RunCommandMemo(const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = [];SWOptions:TShowWindowOptions=swoNone;memo:TMemo=nil;runrefresh : TOnRunCommandEvent=nil ):boolean;
    Var
        p : TProcessToMemo;
        i,
        exitstatus : integer;
        ErrorString : String;
    begin
      p:=TProcessToMemo.create(nil);
      if Options<>[] then
        P.Options:=Options - [poRunSuspended,poWaitOnExit];
      p.options:=p.options+[poRunIdle];
    
      P.ShowWindow:=SwOptions;
      p.Executable:=exename;
      if high(commands)>=0 then
       for i:=low(commands) to high(commands) do
         p.Parameters.add(commands[i]);
      p.fmemo:=memo;
      p.OnRunCommandEvent:=runrefresh;
      try
        result:=p.RunCommandLoop(outputstring,errorstring,exitstatus)=0;
      finally
        p.free;
      end;
      if exitstatus<>0 then result:=false;
    end;
    
    { TForm1 }
    
    procedure TForm1.Button1Click(Sender: TObject);
    var s : string;
    begin
    //RunCommandMemo('testit',[],s,[],swonone,memo1,ProcessEvent);
      RunCommandMemo('cmd.exe',['/w','/c','ver'],s,[],swonone,memo1,ProcessEvent);
    end;
    
    procedure TForm1.ProcessEvent(Sender, Context: TObject;
      Status: TRunCommandEventCode; const Message: string);
    begin
      if status in [RunCommandIdle, RunCommandFinished] then
        begin
          if status =RunCommandFinished then
            begin
              memo1.lines.add(' process finished');
            end;
          if tprocesstomemo(sender).fstringsadded>0 then
           begin
             tprocesstomemo(sender).fstringsadded:=0;
    //         memo1.lines.add('Handle:'+inttostr(tprocesstomemo(sender).ProcessHandle));
             memo1.refresh;
           end;
          sleep(10);
          application.ProcessMessages;
        end;
    end;
    
    { TProcessToMemo }
    
    
    function TProcessToMemo.ReadInputStream(p:TInputPipeStream;var BytesRead:integer;var DataLength:integer;var Data:string;MaxLoops:integer=10):boolean;
    var lfpos : integer;
        crcorrectedpos:integer;
        stradded : integer;
        newstr : string;
    begin
      Result:=inherited ReadInputStream(p, BytesRead, DataLength, data, MaxLoops);
      if (result) and (bytesread>bytesprocessed)then
        begin
          stradded:=0;
          lfpos:=pos(#10,data,bytesprocessed+1);
          while (lfpos<>0) and (lfpos<=bytesread) do
            begin
              crcorrectedpos:=lfpos;
              if (crcorrectedpos>0) and (data[crcorrectedpos-1]=#13) then
                 dec(crcorrectedpos);
              newstr:=copy(data,bytesprocessed+1,crcorrectedpos-bytesprocessed-1);
              fmemo.lines.add(newstr);
               inc(stradded);
              bytesprocessed:=lfpos;
              lfpos:=pos(#10,data,bytesprocessed+1);
            end;
          inc(fstringsadded,stradded); // check idle event.
        end;
    end;
    
    end.

我不知道Minecraft服务器，许多外部程序可能会对控制台做奇怪的事情。但是，与之测试的程序的简单组合在这里 http：//www.stack。 nl/〜marcov/files/processmemodemo.zip