Problem mit Email-Versand Indy

[Marco Steinebach]

Ich bin ein bißchen weiter.
in

Code:

procedure TIdSMTP.InternalSend(AMsg: TIdMessage; const AFrom: String; ARecipients: TIdEMailAddressList);

wird

Code:

  AMsg.ExtraHeaders.Values[XMAILER_HEADER] := MailAgent;

aufgerufen und Mailagent ist
inaccessible
sagt mein Delphi...

Irgendwelche Ideen...

Viele Grüße
Marco

[Hobbycoder]

Also zum einen würde ich das smtp.connect nicht schon im FormCreate machen.
Dafür könntest du dir eine function (z.B. ConnectSMTP) anlegen, in der auch alle Werte, die jetzt im FormCreate stehen, gesetzt werden.
Mir fallen nur sehr wenige Fälle ein, in denen es Sinn machen würde die SMTP-Verbindung während der ganzen Programmlaufzeit aufrecht zu halten. (Von den Problemen mal ganz abgesehen, wenn den Provider die zwischendurch kappt).

Diese Funktion sollte dann als Rückgabewert ein Boolean zurückgeben, je nachdem ob connected werden konnte oder nicht.

Zum anderen würde ich TIdMessage nicht mit Owner Application erzeugen.

Und die ButtonClick-Routine sollte dann so aussehen:

Delphi-Quellcode:

procedure ButtonClick(Sender: TObject);
var
  m: TIdMessage;
begin
  if connectSMTP then
  Try
    m:=TIdMessage.Create(nil);   //mit nil als Owner erzeugen.
    .
    .
    .
    SMTP.send(m);
  finally
    SMTP.disconnect;  //oder SMTP.Connected:=false; das weiß ich jetzt aus dem Kopf nicht.
    m.free;
  end;
end;

Das hilft dir jetzt zwar nicht bei deinem Problem, ist aber sinnvoller.

[Marco Steinebach]

Hi Hobbycoder,
stimmt natürlich. Das Zeugs stammt aus einem weitaus größeren Projekt, wo ich das genauso mache, wie du es vorgeschlagen hast. Das hier ist nur die quick-and-dirty-version, um den Laufzeitfehler zu finden.
Viele Grüße
Marco

[Hobbycoder]

Zitat von Marco Steinebach:

Hi Hobbycoder,
stimmt natürlich. Das Zeugs stammt aus einem weitaus größeren Projekt, wo ich das genauso mache, wie du es vorgeschlagen hast. Das hier ist nur die quick-and-dirty-version, um den Laufzeitfehler zu finden.
Viele Grüße
Marco

Quick-And-Dirty macht einem aber gerade die Fehlersuche manchmal etwas schwer, bzw. man baut sich damit gerne neue Fehler ein.

[Marco Steinebach]

Hallo zusammen,
falls nochmal jemand darüber fällt...
Es gibt einen Bug in D5, das overload-Prozeduren mit offenen Array-Parametern eine Schutzverletzung verursachen. Als Workarround mit abgeschalteter Optimierung und eingeschalteten Stackframes kompilieren, dann läuft's.
Ja, ja, oder auf eine vernünftige Delphi-Version wechseln, wenn man die nur mit Screenreadern bedienen könnte...

Herzliche Grüße
Marco