Memo als aktives CMD- Fenster

[strom]

Hallo Namenloser,

kannst Du mir vielleicht weiter helfen? Komme mit Deinem Beispiel nicht weiter!

Danke

-----------------------------------------------------------------------------

Es gibt einige Lösungen dazu im Netz, die meist aber erst das Ergebnis zurückliefern, wenn die Anwendung beendet wurde.
Wenn dir das nicht reicht, kannst du meine Klasse aus der Unit im Anhang benutzen. Sie stellt Events bereit, die aufgerufen werden, wenn neue Daten ankommen.

Beispiel:

Delphi-Quellcode:

type 
  TMyForm = class(TForm)
    ...
  protected
    FRedirector: TConsoleRedirector;
    procedure MyEventHandler(Sender: TObject; const Data: string);
  end;

procedure TMyForm.MyEventHandler(Sender: TObject; const Data: string);
begin
  Memo1.Text := Memo1.Text+Data;
end;

procedure TMyForm.FormCreate(...);
begin
  FRedirector:= TConsoleRedirector.Create; 
  FRedirector.OnReadOutput := MyEventHandler;
end;

procedure TMyForm.MyButtonClick(...);
begin
  FRedirector.Start('cmd /K ping google.com');
end;

[Namenloser]

1. Zieh ein Memo und einen Button auf dein Formular.
2. Füge oben in der Unit unter Uses unConsoleRedirector hinzu.
3. Passe den Code wie im Beispiel gezeigt an.

[strom]

Hallo,
was mache ich falsch?

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
  Dialogs, unConsoleRedirector;// hier kommt schon eine Fehlermeldung!

type
  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

end.

Fehlermeldung

"unit1.pas(9,12) Fatal: Can not find unit unConsoleRedirector used by Unit1 of the project inspector."

[mkinzler]

Befindet sich die Unit im (Such-)Pfad?
U.U. funktioniert diese in FPC nicht.

[Namenloser]

Für Freepascal muss man gegebenenfalls oben in die unConsoleRedirector.pas noch ein {$mode Delphi} einfügen. Ansonsten sollte es meiner Meinung nach funktionieren, solange die Zielplattform Windows ist.

Aber die Fehlermeldung deutet eher darauf hin, dass die Unit nicht im Suchpfad ist.

[strom]

Hallo,

nachdem es mit Lazarus (Freepascal) nicht funktoniert hat, habe ich es heute mit
Delphi XE 7 versucht!

"Unit Name unConsoleRedirector kann nicht aufgelöst werden!"

Auch ohne Erfolg!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, unConsoleRedirector ;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

[mkinzler]

Wenn die Datei nicht gefunden werden kann, dann wird sie nicht gefunden. und solange Du daran nicht änderst, wird es auch in der Zukunft nicht funktionieren.