[Delphi] NSMTP component in delphi 5

[Verwijderd]

Heey,

Delphi 5 heeft een component genaamd NMSMTP waarmee je heel makkelijk e-mails kunt verzenden als je inlogt bij een bepaalde server. Nou is mijn vraag, hoe kun je ervoor zorgen dat als het mislukt om een mail te verzenden via een server (bv home) dat je disconnect en via een andere server probeert die mail te verzenden ?

ik heb van alles geprobeerd, maar het wil me niet lukken, ik kom niet verder dan 2 servers

TNX

[Verwijderd]

WoOW lkkr veel reply'' s

zOO moeilijk kan het tog neit zijn

[NMe]

Er zal vast wel een manier zijn om op te vragen of een mail verzonden is. Is het dan zo moeilijk om op basis daarvan te disconnecten, een andere server te kiezen en daarmee connecten, en dan nogmaals verzenden? Heb je al eens naar TNMSMTP gezocht in de help?

En topics omhoog schoppen binnen 24 uur wordt hier niet gewaardeerd. Zie ook de forum FAQ.

[Verwijderd]

Verwijderd schreef op dinsdag 18 januari 2005 @ 18:51:Delphi 5 heeft een component genaamd NMSMTP waarmee je heel makkelijk e-mails kunt verzenden als je inlogt bij een bepaalde server. ...

Noot: De Netmaster-componenten zitten vol met bugs. (Tenminste, destijds).
Bij de laatste versie van Delphi worden ze niet meer meegeleverd.
Gebruik liever de Indy-componenten.. Deze zijn vrij compleet en 'gratis'.

[Verwijderd]

Bovendien: de Indy componenten blocken (werken synchroon), terwijl de Netmaster componenten dat niet doen (werken asynchroon).

Nou kun je zeggen dat niet blocken fijner is omdat je applicatie dan niet `lijkt te hangen'^[1], maar blockende componenten programmeren vele malen fijner. Verder is het bij Indy zo dat als een actie niet lukt, er dan een exception gegooid wordt.

De retry logica met TIdSMTP komt er ongeveer zo uit te zien:

Delphi:

hostlist[0] := 'my.server.nl';
hostlist[1] := 'other.server.nl';
// ... meer initialisatie, array initialisatie is natuurlijk niet compleet.

i := 0;
success := false;
while (not success) and (i < Length(hostlist)) do
try
  { Probeer te verzenden naar deze host }
  IdSMTP1.Host := hostlist[i];
  IdSTMP1.Send(mymessage);

  { Zenden is gelukt, stop met de lus }
  success := true;
except
  { Zenden naar deze host is mislukt, probeer de volgende }
  on E : EIdException do 
  begin
    Log(E.Message);
    i := i + 1;
  end; 
end;

if not success then raise Exception.Create('Mailservers uitgeput -- verzenden mislukt!');

_{[1] Ter remedie heeft Indy daarvoor TAntiFreeze}

[ Voor 3% gewijzigd door Verwijderd op 18-01-2005 23:13 ]

[LangTall]

Via het event 'OnFailure' kan je eea sturen als het verzenden niet lukt. Is dat misschien een optie?

[Ruben314199]

Noot: De Netmaster-componenten zitten vol met bugs. (Tenminste, destijds).
Bij de laatste versie van Delphi worden ze niet meer meegeleverd.
Gebruik liever de Indy-componenten.. Deze zijn vrij compleet en 'gratis'.

Geheel meer eens. NIET GEBRUIKEN die zooi van Netmasters. Er zijn wel updates voor, maar die zijn niet gratis, ook niet voor geregistreerde gebruikers van Delphi 5 zoals ik destijds.
De componenten van Indy zijn daarintegen wel goed en ook rijkelijk voorzien van voorbeelden. Je kunt ze vinden op:
http://www.indyproject.org. Zoals je begrijpt raad ik je ten sterkste aan ten minste op de link te klikken.....

[Creepy]

Verwijderd schreef op dinsdag 18 januari 2005 @ 21:16:
WoOW lkkr veel reply'' s

zOO moeilijk kan het tog neit zijn

Het "kicken" van je topic topic mag eigenlijk pas na 24 uur. Niet iedereen zit elk uur op GoT dus kan het best eens een dag duren voordat je een reply krijgt.

Daarnaast is het inderdaad zo moeilijk niet. De HELP van Delphi is erg uitgebreid. Selecteer het component, druk op F1 en sta verbaasd Of zet je cursor op een classnaam (TObject etc) en druk daar op F1).

Het checken of een mail is verzonden is echt wel uit de help te halen. Daarnaast is je topicstart aan de magere kant. Ik mis wat je zelf al hebt geprobeerd en wat daar niet mee lukte (en op inzet ben je al vaker gewezen!). Zie ook P&W FAQ - De "quickstart"

[ Voor 3% gewijzigd door Creepy op 19-01-2005 09:02 ]