Ereignisse in der Konsole

[Schwedenbitter]

Zitat von Tumm:

... Das Problem ist bloß, dass ich dieses Programm auf einem Linux-Server zum Laufen bringen muss. WINE kann das, dachte ich mir. ...

Hast Du Dein Problem zwischenzeitlich lösen können?

Ich habe dasselbe Anliegen. Ich habe das mit diesem Code "gelöst", der unter Windows problemlos läuft:

Delphi-Quellcode:

Program Server;

{$APPTYPE CONSOLE}

Uses
   Windows, ScktComp;

Type
   TServer      = Class
                     Server: TServerSocket;
                     Constructor Create;
                     Destructor Destroy; Override;
                     Procedure OnServerAccept(Sender: TObject; Socket: TCustomWinSocket);
                     Procedure OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
                     Procedure OnClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
                     Procedure OnClientRead(Sender: TObject; Socket: TCustomWinSocket);
                 End;

Constructor TServer.Create;
Begin
   Server:=TServerSocket.Create(nil);
   Server.Port:=11471;
   Server.OnAccept:=OnServerAccept;
   Server.OnClientConnect:=OnClientConnect;
   Server.OnClientDisconnect:=OnClientDisconnect;
   Server.OnClientRead:=OnClientRead;
   Server.Open;
End;

Destructor TServer.Destroy;
Begin
   Server.Free;
End;

Procedure TServer.OnServerAccept(Sender: TObject; Socket: TCustomWinSocket);
Begin
   WriteLn('OnServerAccept');
End;

Procedure TServer.OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
Begin
   WriteLn('OnClientConnect');
End;

Procedure TServer.OnClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
Begin
   WriteLn('OnClientDisconnect');
End;

Procedure TServer.OnClientRead(Sender: TObject; Socket: TCustomWinSocket);
Begin
   WriteLn('OnClientRead');
End;

// D A S   H A U P T P R O G R A M M

Var
   Msg         : TMsg;
   MyServer      : TServer;
Begin
   WriteLn('Server gestartet ...');
   WriteLn('---------------------------------------------');
   WriteLn('Programm beenden mit Strg + C');
   WriteLn('Es folgen die Ausgaben der Ereignisse:');
   WriteLn('---------------------------------------------');
   MyServer:=TServer.Create;
   While GetMessage(Msg, 0, 0, 0) Do
   Begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
   End;
   MyServer.Destroy;
End.

Leider läuft das Programm unter Linux/wine nur, wenn ich es unter KDE (als mit laufendem X-Server) starte.
Starte ich es ohne laufendes KDE auf einfach auf der Konsole, läuft es nicht. Es kommt die Fehlermeldung:

Zitat:

Application tried to create a window, but no driver could be loaded. Make sure that your X server is running and that $DISPLAY is set correctly.

Auch für den Fall, dass mir niemand mit Linux/wine helfen kann:

• Wo/Wie bitte lege ich ein Fenster an?
• Wie kann ich es ggf. verhindern (, so dass es auch in der Konsole läuft)?

Gruß, Alex