WMCopyData in Konsolenanwendung

[DeddyH]

Kann eine Konsolenanwendung denn überhaupt Zugriff auf das Konsolenfenster bekommen, in dem sie läuft? Es wäre vielleicht einfacher, ein MessageOnly-Fenster innerhalb der Anwendung zu erzeugen, aber das ist nur so ein spontaner Gedanke.

[CocoPops]

Laut Microsoft bekommt man sogar das Handle eines Konsolenfensters: So erhalten Sie eine Konsole Fensterhandle (HWND) (http://support.microsoft.com/kb/124103/de).

Mh, wenn das also nicht das Wahre ist. Wie sendet und empfängt man sonst eine Message (string?) an ein Konsolenfenster?

[DeddyH]

Es gibt da eine Komponente (neueste Version IIRC von sirius bearbeitet) namens TDOSCommand, damit müsste es gehen. Die Kommunikation läuft dort über Pipes.

[CocoPops]

Sehr interessant diese Unit.

Nur folgendes Problem:

Delphi-Quellcode:

 DosCommand := TDosCommand.Create(nil);
 DosCommand.OnNewLine := DosCommandNewLine; // DosCommandNewLine

Ich habe in der Unit nicht ausfindig machen können, wie man denn die Prozedur für das OnNewLine-Event korrekt deklariert.
Ich habe Sie so deklariert:
 procedure TForm1.cmdNewLine(Sender: TObject; NewLine: string; OutputType: TOutputType); .

Aber bei oben markierter Stelle steigt der Kompiler aus. Die Typen seien nicht kompatibel.

[CocoPops]

Ne also mit TDosCommand komme ich gar nicht klar.

Ich glaube das ist viel zu over-sized für mein kleines Problem. Wie sende ich den ganz einfach nur einen String von der GUI mit TDosCommand zur Konsole?

[DeddyH]

Ich selbst nutze die Komponente auch nicht, aber hier steht etwas von SendLine, das klingt doch vielversprechend.

[CocoPops]

Das habe ich bereits probiert. Aber er meckert bei der Zeile die CommandLine enthält. Was muss denn da eigentlich hin? Bleibt da immer stur 'cmd' stehen?
Und falls nicht, was ist CommandLine und was ist SendLine?

Und was ich auch noch nicht verstanden habe ist, wo man denn wie festlegt wer mit dem kommuniziert.

Aber zum Problem mit WM_CopyData: das Versenden funktioniert sehr gut und das Handle des Konsolenfensters wird auch gefunden (über den Fenstertitel).
Aber ich schaffe es nicht, die Daten zu empfangen und demnach wird niemals ein X auf die Konsole geschrieben:

Delphi-Quellcode:

procedure TProcs.WMCopyData(var Msg: TWMCopyData);
begin
 WriteLn('X');
end;