Einzelnen Beitrag anzeigen

Brainshock

Registriert seit: 26. Nov 2004
Ort: 37345
214 Beiträge
 
Delphi 7 Professional
 
#6

Re: Komponente in eigener Unit verwenden

  Alt 19. Mai 2008, 10:26
Ich hoffe das ganze ist nur ein Testemailkonto bei GMX, ansonsten ÄNDERE DEIN KENNWORT.
ÄNDERE DEIN KENNWORT, sonst mache ich es.

Nun zum Problem. Der Client muß wahrscheinlich im Konstruktor erzeugt werden und am Ende im Destruktor zerstört werden.

Delphi-Quellcode:
pop = class(Tobject)
private
  FClient: TClientSocket;
  ...
public
  constructor Create(ip,user,pass:string;port:integer);
  destructor Destroy;
  ...
end;
Delphi-Quellcode:
constructor pop.create(ip,user,pass:string;port:integer);
begin
  FClient:= TClientSocket.Create;
  FClient.Active := false;
  self.ip :=ip;
  self.user := user;
  self.password := pass;
  FClient.Address := ip;
  FClient.Port := port;
  self.status := 0;
end;
Delphi-Quellcode:
destructor pop.destroy;
begin
  FClient.Free;
end;
Dann sollte es mit dem Zugriff funktionieren.

[edit=SirThornberry] Mfg, SirThornberry[/edit]

[edit=SirThornberry]Beiträge zusammengeführt - Mfg, SirThornberry[/edit]
[edit=SirThornberry]Nächsten Beitrag angefügt - nächstes mal bitte die Edit-Funktion verwenden! - Mfg, SirThornberry[/edit]
Matthias
  Mit Zitat antworten Zitat