TIdTCPServer zur laufzeit erstellen

[SleepyMaster]

Hi ihrs!

Weiß jemand wie ich das hinbekomme??? (Ohne ein Forumlar)

Delphi-Quellcode:

var
  IdTCPServer1: TIdTCPServer;

begin
IdTCPServer1:=TIdTCPServer.Create(nil);
with IdTCPServer1 do
  begin
  DefaultPort:=1234;
  Active:=true;
  end;
end.

soweit komm ich ja noch aber wenn ich dann auch will, dass was passiert, wenn der Server was empfängt:

Delphi-Quellcode:

var
  IdTCPServer1: TIdTCPServer;

procedure IdTCPServer1Execute(AThread: TIdPeerThread);
begin
//
end;

begin
IdTCPServer1:=TIdTCPServer.Create(nil);
with IdTCPServer1 do
  begin
  OnExecute:=IdTCPServer1Execute; // Will Borland nicht!
  DefaultPort:=1234;
  Active:=true;
  end;
end.

Spielt Borland nicht mehr mit!
Kennt jemand ne lösung???

Vielen Dank schon mal!

[fiasko]

Du brauchst dafür was vom Typ:

Delphi-Quellcode:

TIdServerThreadEvent = procedure (AThread: TIdPeerThread) of object;

also ne Methode von einem Objekt.

[SleepyMaster]

und wie bekomm ich das ohne ein Formular hin???

[Meflin]

das dürfte nicht gehen, da ein idtcpserver ein parent braucht!

[supermuckl]

ähm
geht doch viel einfacher ?!

mach mal n form und da druff einen idtcpserver und dann doppelklicke im onexecute ereignis und dann macht er ja eine funktion oder procedure

dann kopierste einfach dieses gerüst und oben natürlich in der deklaration auch den teil dafür

und den benutzt du dann in deinem formlosen projekt.

als parent ( owner ) nimmste einfach mal self oder nil.. probier mal rum
oder wenns ein windows service wird nimmste den namen des services geht glaub auch..

jedenfalls gehts !

hab grad keine zeit zum testen wie genau

[SleepyMaster]

Also seit ihr alle der Meinung, dass nicht druherumkomme ein Formular/Service zu benutzen???

Kann doch nicht sein! Irgendwie muss es doch auch ohne gehen!

[fiasko]

Das hab ich nicht gesagt, und supermuckl meint glaubig das gleiche. Du brauchst nur eine Klasse, z.B. mit folgendem ungetestetem Code:

Delphi-Quellcode:

type
  TFoo = class(TObject)
    procedure Bar(Sender: TObject);
  end;

procedure TFoo.Bar(AThread: TIdPeerThread);
begin
  // Blah
end;

var
  IdTCPServer1: TIdTCPServer;
  Foo: TFoo;

begin
  IdTCPServer1 := TIdTCPServer.Create(nil);
  Foo := TFoo.Create();
  try
    with IdTCPServer1 do
    begin
      OnExecute:=Foo.Bar;
      DefaultPort:=1234;
      Active:=true;
    end;
  finally
    Foo.Free;
    IdTCPServer1.Free;
  end;
end.

[edit]
Man könnte natürlich auch einfach die Indy Klasse ableiten...
[/edit]

[DataCool]

Hi,

warum kompliziert, wenn's auch einfach geht :

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  IdBaseComponent, IdComponent, IdTCPServer, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
      procedure Button1Click(Sender: TObject);
  private
      { Private-Deklarationen }
      procedure myExecute(AThread: TIdPeerThread);
   public
      { Public-Deklarationen }
   end;

var
   Form1: TForm1;

implementation

var IdTCPSvr : TIdTCPServer;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   IdTCPSvr := TIdTCPServer.Create(nil);
   IdTCPSvr.DefaultPort := 1234;
   IdTCPSvr.OnExecute := myExecute;
   IdTCPSvr.Active := true;
end;

procedure TForm1.myExecute(AThread: TIdPeerThread);
begin
   // hier Den Execute-Code einfügen
end;

end.

Gruß Data

[SirThornberry]

@DataCool: Er wollte kein Formular - und nen object zu erstellen wo man das reinpackt ist ja nicht wirklich kompliziert

[DataCool]

@SirThornberry:

Ob mit oder ohne Formular, die Verwendung ist die gleiche !!
Der IdTcpServer wird hier zur Laufzeit erstellt und sitzt nicht auf der Form !

Gruß Data