Moin,

ich trenne das Thema mal aus meinem SMTP-Thread raus um das ganze nicht zu verwässern:

Zitat von himitsu:

Zu Post 1.

Wer innerhalb einer Klasse (TMailForm) auf die "vermeintlich" richtige globale Variable (MailForm) zugreift,
der gehört irgendwann mal dafür vollkommen zu Recht bestraft.

-> Weglassen (sowas macht man niemals nicht) oder Self benutzen.

Moin Himitsu,

das sagst Du mir schon seid Jahren - und ich glaube Dir (wirklich) auch, aber ...

markieren

Delphi-Quellcode:

procedure Verbinden;
begin
  Form1.IdSMTP1.AuthType := satDefault; // simpler Login ohne Authentifizierung
  Form1.IdSMTP1.Host := 'smtp.strato.de';
  Form1.IdSMTP1.Port := 465;
  Form1.IdSMTP1.UseTLS := utUseRequireTLS; // mit SSL -> Port dann in aller Regel 587
  usw.

-> Keine Fehlermeldung

markieren

Delphi-Quellcode:

procedure Verbinden;
begin
  IdSMTP1.AuthType := satDefault; // simpler Login ohne Authentifizierung
  IdSMTP1.Host := 'smtp.strato.de';
  Form1.IdSMTP1.Port := 465;
  Form1.IdSMTP1.UseTLS := utUseRequireTLS; // mit SSL -> Port dann in aller Regel 587
  usw.

-> da werden sofort die ersten beiden als fehlerhaft markiert.
Erste Zeile: E2003 undeklarierter Bezeichner "IdSMTP1" in Zeile 88
Zweite Zeile: E2066 Operater oder Seikolon fehlt in Zeile 89

markieren

Delphi-Quellcode:

procedure Verbinden;
begin
  self.IdSMTP1.AuthType := satDefault; // simpler Login ohne Authentifizierung
  self.IdSMTP1.Host := 'smtp.strato.de';
  Form1.IdSMTP1.Port := 465;
  Form1.IdSMTP1.UseTLS := utUseRequireTLS; // mit SSL -> Port dann in aller Regel 587
  usw.

-> da werden sofort die ersten beiden als fehlerhaft markiert.
erste Zeile: E2003 undeklarierter Bezeichner "self" in Zeile 88
Erste Zeile: E2066 Operater oder Seikolon fehlt in Zeile 89
Zweite Zeile: E2066 Operater oder Seikolon fehlt in Zeile 89

Und jetzt weiß ich nicht woran das liegt ... aber das es eben mit dem "Form1." oder in dem anderen Fall dem "MailForm." davor klappt !
Wenn Du mir aber sagen kannst was ich falsch mache dann lerne ich es endlich ! Und das soll jetzt keine Verar*** sein sondern wirklich der Wille zu verstehen was ich falsch mache.

Gruss
Hans

Der Hinweis bezieht sich vermutlich auf das erste Codebeispiel im ersten Beitrag, das so anfängt:

markieren

Delphi-Quellcode:

function TMailForm.SendeMail(MailEmpfaenger, CCListe, Betreff, Anhang :string; Body :TStringList; MailAbsender, MailPasswort, MailServer: String; MailPort: Integer) : boolean;
var
**iAttachment : TIdAttachment;
**Erfolg: Boolean;

begin
**(* Connect mit Server *)
**MailForm.IdSMTP1.AuthType := satDefault; // simpler Login ohne Authentifizierung
**MailForm.IdSMTP1.Host := MailServer;
**MailForm.IdSMTP1.Port := MailPort;

Und das sieht so aus als ob das gemacht wird, was man auf jeden Fall vermeiden sollte. (Zugriff innerhalb der Methode einer Form-Instanz auf die 'globale' Instanz-Variable)

markieren

Delphi-Quellcode:

procedure Verbinden;
begin
**Form1.IdSMTP1.AuthType := satDefault; // simpler Login ohne Authentifizierung
**Form1.IdSMTP1.Host := 'smtp.strato.de';
**Form1.IdSMTP1.Port := 465;
**Form1.IdSMTP1.UseTLS := utUseRequireTLS; // mit SSL -> Port dann in aller Regel 587
**usw.

Das ist anderer Code, eine Methode die nicht zur Form-Klasse gehört. Daher ist es hier richtig und notwendig, irgendwie auf die Form-Instanz zuzugreifen. Es sind zwei verschiedene Fälle.

Zitat von mjustin:

Der Hinweis bezieht sich vermutlich auf das erste Codebeispiel im ersten Beitrag, das so anfängt:

[...]

Und das sieht so aus als ob das gemacht wird, was man auf jeden Fall vermeiden sollte. (Zugriff innerhalb der Methode einer Form-Instanz auf die 'globale' Instanz-Variable)

[...]

Das ist anderer Code, eine Methode die nicht zur Form-Klasse gehört. Daher ist es hier richtig und notwendig, irgendwie auf die Form-Instanz zuzugreifen. Es sind zwei verschiedene Fälle.

Ahh ... JETZT habe ich es endlich begriffen .... der eine, "schlechte" Code kommt aus einem Projekt mit mehreren Units und da ist SendeMaiil als public deklariert. Das andere ist ein Testprogramm das keine Units hat.

DANKE - ich glaube jetzt habe ich es verstanden !!

Schönen Abend
Hans

Problem ist, dass du ja schon in der Klasse drin bist.
Dort hast du Self explizit oder implizit (wenn man es nicht angibt), um auf die aktuelle Instanz zuzugreifen.

In der globalen Variable muß aber nicht die Instanz drin stehen, in welcher du gerade drin bist.
* z.B. wenn man mehrere Instanzen der Klasse hat

* Oder wenn während des Erstellens und Freigebens die Variable (noch) nicht auf diese Instanz zeigt.