Ereignisbehandlungsroutinen ohne Objektinspektor erstellen

[Drop Table]

Hallo Leute,

habe schon den ganzen Vormittag das Forum durchsucht, aber leider kein verständliches Beispiel gefunden, dass mich einen Millimeter weiterbringt.

Beschäftige mich seit einigen Tagen mit der freien Turbo Delphiversion, und versuche mit Indy 9 POP3 auf ein connect Ereignis zu reagieren, weiss aber leider nicht wie man so eine Behandlungsroutine ohne anklicken auf den Object Inspektor erzeugt.

Delphi-Quellcode:

unit Unit2Pop3;

interface

uses
  SysUtils, Classes, IdPOP3;

type
  TdmPOP3 = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    POP3Mail : TidPOP3;
  end;

var
  dmPOP3: TdmPOP3;

implementation

{$R *.dfm}

procedure TdmPOP3.DataModuleCreate(Sender: TObject);
begin
  POP3Mail := TidPOP3.Create(self);
  POP3Mail.APOP := false;
  POP3Mail.ASCIIFilter := false;
  POP3Mail.Port := 110;
  POP3Mail.Host := 'pop.example.com';
  POP3Mail.Username := '[e-mail]';
  POP3Mail.Password := 'geheim';
end;

procedure TdmPOP3.DataModuleDestroy(Sender: TObject);
begin
  POP3Mail.Free;
end;

end.

Was ist hier einzufügen, um auf das OnConnect Ereignis der Komponente zu reagieren?

fragt
Andreas

[Die Muhkuh]

Hallo Andreas,

versuch es mal so:

Delphi-Quellcode:

unit Unit2Pop3;

interface

uses
  SysUtils, Classes, IdPOP3;

type
  TdmPOP3 = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure POP3Connected(Sender: TObject);      // <<
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    POP3Mail : TidPOP3;
  end;

var
  dmPOP3: TdmPOP3;

implementation

{$R *.dfm}

procedure TdmPOP3.DataModuleCreate(Sender: TObject);
begin
  POP3Mail := TidPOP3.Create(self);
  POP3Mail.APOP := false;
  POP3Mail.ASCIIFilter := false;
  POP3Mail.Port := 110;
  POP3Mail.Host := 'pop.example.com';
  POP3Mail.Username := '[e-mail]';
  POP3Mail.Password := 'geheim';
  POP3Mail.OnConnected := POP3Connected;    // <<
end;

procedure TdmPOP3.DataModuleDestroy(Sender: TObject);
begin
  POP3Mail.Free;
end;


procedure TdmPOP3.POP3Connected(Sender: TObject);    // <<
begin
  // Dein Code
end;
end.

[Drop Table]

Zitat:

Zitat von Die Muhkuh

Delphi-Quellcode:

POP3Mail.OnConnected := POP3Connected;    // <<
end.

Aah, das ist die Zeile auf die es ankommt :idea:

Vielen, vielen Dank!