WMCopyData in Konsolenanwendung

[CocoPops]

Gemeinde.

Ich probiere mich momentan ein wenig mit Konsolenanwendungen und WMCopyData herum.
Ich nutzte WMCopyData schon sehr sehr häufig zwischen zwei VCL-Programmen und es funktioniert super.
Aber VCL > Konsole, das will nicht so wie ich gerne hätte.

Ich gehe so vor.

Ich ändere im Konsolenprogramm den Fenstertitel:
SetConsoleTitle(PWideChar('TTestWindow'));

Dann erstelle ich mir eine kleine Klasse im Konsolenprogramm:

Delphi-Quellcode:

type
 TProcs = class
 private
  procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
 end;

Und schließlich WMCopyData:

Delphi-Quellcode:

procedure TProcs.WMCopyData(var Msg: TWMCopyData);
var
 s: string;
begin
 s := string(PChar(Msg.CopyDataStruct.lpData));

 WriteLn(s);
end;

Das Senden aus dem VCL-Programm heraus sieh so aus und das Fensterhandle der Konsole wird auch gefunden (showmessage):

Delphi-Quellcode:

var
 hExisting: THandle;
 pName: PChar;
 aCopyData: TCopyDataStruct;
begin
 hExisting := FindWindow(nil, 'TTestWindow');

 if hExisting <> 0 then
  begin
   showmessage('TTest wurde gefunden!');
   
   with aCopyData do
    begin
     pName := PWideChar('Hallo Konsole!');
     dwData := 0;
     cbData := (StrLen(pName) + 1) * SizeOf(Char);
     lpData := pName;
    end;

   SendMessage(hExisting, WM_COPYDATA, 0, LongInt(@aCopyData));
  end;

Es wird erfolgreich SendMessage ausgeführt. Aber ich schaffe es nicht ganz korrekt, diese Message in der Konsole pr WMCopyData-Prozedur aufzufangen.

WO ist der Fehler?

[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?