Formloses SocketProgramm

[napsterxx]

Dann wird mein Programm aber wieder richtig groß

[DeddyH]

Schau mal nach Delay.

[napsterxx]

Wenn ich Delay verwende muss ich Forms einbinden und dann wird das auch recht groß.
Wenn ich einen Timer erstelle also Create(nil) lege ich dann das interval fest, aber wie kann ich OnTimer festlegen?

[Fehler] Client.dpr(23): E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

Delphi-Quellcode:

program Client;

uses
  ScktComp, windows, SysUtils, ExtCtrls;

var
  Connected : Boolean = False;
  ClientSocket : TClientSocket;
  ConnectTimer : TTimer;

{$R *.res}
procedure ConnectTimerOnTimer(Sender: TObject);
begin

end;

begin

  ClientSocket := TClientSocket.Create(nil);
  ConnectTimer := TTimer.Create(nil);
  ConnectTimer.Interval := 10000;

  ConnectTimer.OnTimer := ConnectTimerOnTimer;
....

[mkinzler]

ConnectTimerOnTimer muss Teil einer Klasse sein.

[napsterxx]

Also muss der Timer dann die Klasse sein?

Delphi-Quellcode:

  type
  Timer = class(TTimer)
    procedure ConnectTimerOnTimer(Sender: TObject);


  end;

var
  Connected : Boolean = False;
  ClientSocket : TClientSocket;
  ConnectTimer : Timer;

{$R *.res}


procedure Timer.ConnectTimerOnTimer(Sender: TObject);
begin

end;

begin

  ClientSocket := TClientSocket.Create(nil);
  ConnectTimer := Timer.Create(nil);
  ConnectTimer.Interval := 10000;

  ConnectTimer.OnTimer := ConnectTimerOnTimer;

[Fehler] Client.dpr(32): E2003 Undefinierter Bezeichner: 'ConnectTimerOnTimer'

[DeddyH]

Nein, erstelle Dir eine Dummy-Klasse, die einen Timer enthält.

[edit] Obwohl das alles Blödsinn ist, einen Konsolenanwendung ist nun mal nicht ereignisgesteuert. [/edit]

[sirius]

So funktioniert es :

Delphi-Quellcode:

program Project1;

uses scktcomp, windows, messages;

var clientsocket:Tclientsocket;
    msg:Tmsg;

begin
  clientsocket:=Tclientsocket.Create(nil);
  try

    clientsocket.Host:='127.0.0.1';
    clientsocket.Port:=21000;
    clientsocket.Open;

    while not clientsocket.active do
    begin
      if not getmessage(msg,0,0,0) then exit;
      dispatchmessage(msg);
    end;

    while clientsocket.active do
    begin
      if not getmessage(msg,0,0,0) then exit;
      dispatchmessage(msg);
    end;

  finally
    clientsocket.free;
  end;
end.

Aber um das sinnvoll weiter zu benutzen solltest du schonmal mit Klassen anfangen.

[napsterxx]

Oki werde ich machen allen THX und einen guten Rutsch naja hoffe ihr hattet einen ;)