Fehler bei Funktionszuweisung

[Desmulator]

leider nein...

so schauts aus:

Delphi-Quellcode:

program Neon;

uses
  Forms, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdTCPServer,
  Classes, Controls;

{$R *.res}

procedure ServerExec(AThread: TIdPeerThread);
var
  Command: String;
begin
  //Der Server wurde aufgerufen
  while AThread.Connection.Connected do begin
    //Command einlesen
    Command := AThread.Connection.CurrentReadBuffer;

  end;
end;

Type
     THelper = class
     public
       class procedure ServerExec(AThread: TIdPeerThread);
     end; 


var
  TcpClient: TIdTcpClient;
  TcpServer: TIdTcpServer;
  Buffer: String;

begin

  //StartUp, anschalten der Tcp's
  TcpClient := TIdTcpClient.Create(Application.Owner); //Client erstellen
  TcpClient.Port := 18754; //Port festlegen
  TcpServer := TIdTcpServer.Create(Application.Owner); //Server erstellen
  TcpServer.DefaultPort := 18754; //Port festlegen
  TcpServer.Active := true; //Server starten

  //Events setzen
  TcpServer.OnExecute := THelper.ServerExec;

  //Anlaufen der DauerSchleife
  while not Application.Terminated do begin


  end;
end.

Ich weiß jetzz net ob das wichtig ist, aber ich arbeite nur mit dem program und ohne unit...

[Ghostwalker]

Du mußt natürlich schon die ServerExec vom THelper ausprogrammieren, mit dem was sie tun soll :)

[Desmulator]

aha und wie das= den function quelltext unter die deklaration quetschen? :wiejetzt:

Delphi-Quellcode:

Type
     THelper = class
     public
       class procedure ServerExec(AThread: TIdPeerThread);
       var
         Command: String;
       begin
         //Der Server wurde aufgerufen
         while AThread.Connection.Connected do begin
           //Command einlesen
           Command := AThread.Connection.CurrentReadBuffer;

         end;
       end; 
     end;

[DeddyH]

Ungetestet:

Delphi-Quellcode:

program Neon;

uses
  Forms, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdTCPServer,
  Classes, Controls;

{$R *.res}

Type
     THelper = class
     public
       class procedure ServerExec(AThread: TIdPeerThread);
     end;

procedure THelper.ServerExec(AThread: TIdPeerThread);
var
  Command: String;
begin
  //Der Server wurde aufgerufen
  while AThread.Connection.Connected do begin
    //Command einlesen
    Command := AThread.Connection.CurrentReadBuffer;

  end;
end;

var
  TcpClient: TIdTcpClient;
  TcpServer: TIdTcpServer;
  Buffer: String;

begin

  //StartUp, anschalten der Tcp's
  TcpClient := TIdTcpClient.Create(Application.Owner); //Client erstellen
  TcpClient.Port := 18754; //Port festlegen
  TcpServer := TIdTcpServer.Create(Application.Owner); //Server erstellen
  TcpServer.DefaultPort := 18754; //Port festlegen
  TcpServer.Active := true; //Server starten

  //Events setzen
  TcpServer.OnExecute := THelper.ServerExec;

  //Anlaufen der DauerSchleife
  while not Application.Terminated do begin


  end;
end.

[Desmulator]

er meldet dass sich die delkaration von der vorherigen unterscheidet

[Ghostwalker]

Delphi-Quellcode:

program Neon;

uses
  Forms, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdTCPServer,
  Classes, Controls;

{$R *.res}

Type
     THelper = class
     public
       class procedure ServerExec(AThread: TIdPeerThread);
     end;

class procedure THelper.ServerExec(AThread: TIdPeerThread);
var
  Command: String;
begin
  //Der Server wurde aufgerufen
  while AThread.Connection.Connected do begin
    //Command einlesen
    Command := AThread.Connection.CurrentReadBuffer;

  end;
end;

var
  TcpClient: TIdTcpClient;
  TcpServer: TIdTcpServer;
  Buffer: String;

begin

  //StartUp, anschalten der Tcp's
  TcpClient := TIdTcpClient.Create(Application.Owner); //Client erstellen
  TcpClient.Port := 18754; //Port festlegen
  TcpServer := TIdTcpServer.Create(Application.Owner); //Server erstellen
  TcpServer.DefaultPort := 18754; //Port festlegen
  TcpServer.Active := true; //Server starten

  //Events setzen
  TcpServer.OnExecute := THelper.ServerExec;

  //Anlaufen der DauerSchleife
  while not Application.Terminated do begin


  end;
end.

Man beachte das CLASS vor der Procedure :)

[mkinzler]

Welcher Fehler?

[Ghostwalker]

Den, den ich da oben bereits ausgemerzt habe. :) Den Satz hab ich nur nochmal drunter geschrieben, da man das CLASS sehr leicht im Quelltext überließt :)