Problème pour développer un service

Version imprimable

Bonjour,
Je tente de transposer un code vers un service.
J'observe que je dois modifier certains algorithmes comme par exemple:

Code:

1
2
renamefile('ok.ini','nok.ini');
renamefile(PChar(ExtractFilePath(ParamStr(0)))+'ok.ini',PChar(ExtractFilePath(ParamStr(0)))+'nok.ini');

J'ai par contre encore un problème avec une tentative d'envoi d'email:
Ce code n'est pas accepté:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
var
  //FileNames : string;
  Result : boolean;
begin
  try
    Result := False;
    //Setup SMTP smtphost, emailport, mailfrom, mailto, mailsubj, mailbody
    SMTP := TIdSMTP.Create(nil);
    SMTP.Host := smtphost;
    SMTP.Port := StrToInt(emailport); //Default email port
    MailMessage.From.Address := mailfrom;
    MailMessage.Recipients.EMailAddresses := mailto+','+mailcc;
    MailMessage.Subject := mailsubj;
    MailMessage.Body.Text := mailbody;
 
    //Send email
    try
      try
        SMTP.Connect;
        SMTP.Send(MailMessage);
        Result := True;
      except
        on E:Exception do
        begin
          ShowMessage('Cannot send E-Mail: ' + E.Message);
          Result := False;
        end;
      end;
    finally
      if SMTP.Connected then SMTP.Disconnect;
  end;
  except
    on E : Exception do
    begin
      ShowMessage('Error in the function SendEmailDelphi: ' + E.Message);
      Result := False;
    end;
  end;

J'ai tenté l'appel de cette procédure dans le service:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
    SMTP: TIdSMTP;
    MailMessage: TIdMessage;
  //FileNames : string;
  Result : boolean;
begin
  try
    Result := False;
    //Setup SMTP smtphost, emailport, mailfrom, mailto, mailsubj, mailbody
    SMTP := TIdSMTP.Create(nil);
    SMTP.Host := smtphost;
    SMTP.Port := StrToInt(emailport); //Default email port
    MailMessage.From.Address := mailfrom;
    MailMessage.Recipients.EMailAddresses := mailto+','+mailcc;
    MailMessage.Subject := mailsubj;
    MailMessage.Body.Text := mailbody;
 
    //Send email
    try
      try
        SMTP.Connect;
        SMTP.Send(MailMessage);
        Result := True;
      except
        on E:Exception do
        begin
          ShowMessage('Cannot send E-Mail: ' + E.Message);
          Result := False;
        end;
      end;
    finally
      if SMTP.Connected then SMTP.Disconnect;
  end;
  except
    on E : Exception do
    begin
      ShowMessage('Error in the function SendEmailDelphi: ' + E.Message);
      Result := False;
    end;
  end;

mais sans résultat :-(
Je ne sais pas non plus comment déboguer un service, sauf en l'installant pour le tester... si vous avez des suggestions...
Merci d'avance ;-)
PhilLu

14/08/2016, 22h29
Andnotor

Citation:

Envoyé par PhilLU

Ce code n'est pas accepté
J'ai tenté l'appel de cette procédure dans le service (...) mais sans résultat :-(

Et si tu énumérais les erreurs retournées, peut être que ça aiderait :aie:
15/08/2016, 10h14
PhilLU

Salut AndNotOr,
Je n'ai aucun message d'erreur :(
Malheureusement l'email n'est pas envoyé.
Le même code dans un exe fonctionne parfaitement :calim2:
Pour le reste du service j'ai du modifier du code (voir exemple dans mon post précédent)
Merci pour tes idées...
15/08/2016, 13h37
Andnotor

Un ShowMessage dans un service, ça ne va pas le faire.
Écris dans un fichier ou génère un événement Service1.LogMessage().
15/08/2016, 21h10
PhilLU

Bonsoir,
Oui, j'y ai pensé, mais en supprimant ces messages, pas mieux :-(
15/08/2016, 21h44
Andnotor

Citation:

Envoyé par Andnotor

Écris dans un fichier ou génère un événement Service1.LogMessage().
15/08/2016, 21h51
Cirec

comme je te l'ai déjà dit sur l'autre forum ... ton TIdMessage n'est pas créé
de ce fait ton message ne peut pas être envoyé
15/08/2016, 23h32
Jipété

Yop !

Citation:

Envoyé par Cirec

comme je te l'ai déjà dit sur l'autre forum ... ton TIdMessage n'est pas créé
de ce fait ton message ne peut pas être envoyé

Citation:

Envoyé par PhilLU

Le même code dans un exe fonctionne parfaitement :calim2:

:koi:
16/08/2016, 00h06
Cirec

oui j'ai lu ...

si les objets sont déposés sur une fiche alors oui ça fonctionne mais là ce n'est pas le cas !
un objet déclaré localement qui n'est pas créé ne peut pas fonctionner c'est la base.

regarde le code qui est appelé dans le service et dit moi comment et ou le TIdMessage est créé ?

De fait Cirec a parfaitement raison.
Ce code fonctionne maintenant parfaitement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure emailSend(Sender: TObject);
begin
    //Setup SMTP smtphost, emailport, mailfrom, mailto, mailsubj, mailbody
    SMTP := TIdSMTP.Create(nil);
    SMTP.Host := smtphost;
    SMTP.Port := StrToInt(emailport);
    MailMessage := TIdMessage.Create(nil);
    MailMessage.From.Address := mailfrom;
    MailMessage.Recipients.EMailAddresses := mailto+','+mailcc;
    MailMessage.Subject := mailsubj;
    MailMessage.Body.Text := mailbody;
    //Send email
      try
        SMTP.Connect;
        SMTP.Send(MailMessage);
      except
         // Log blabla
      end;
      if SMTP.Connected then
      begin
      SMTP.Disconnect;
    MailMessage.free;
    SMTP.free;
      end;
end;

Merci pour vos réponses ;-)
:ccool:
PhilLu

17/08/2016, 19h00
PhilLU

Bonsoir,
Et bien voilà, le service fonctionne parfaitement sur ma machine (Windows 7 SP1). (installation via /INSTALL)
Losque je tente de l'installer sur Win server 2008, je reçois un message application CRASH avec le code d'erreur 0eedfade.
:weird:
J'ai trouvé à ce sujet des montagnes de posts dans tous les sens, même un bug de XE2 sp4!!!
Le problème est que je ne possède pas de serveur 2008 pour tester :calim2:
Si quelqu'un à une piste...
Merci pour vos suggestions :merci:
17/08/2016, 23h54
Jipété

Citation:

Envoyé par PhilLU

Et bien voilà, le service fonctionne parfaitement sur ma machine (Windows 7 SP1). (installation via /INSTALL)

Citation:

Envoyé par PhilLU

De fait Cirec a parfaitement raison.
Ce code fonctionne maintenant parfaitement:

Donc quand tu écrivais le 15 à 10 h 14

Citation:

Envoyé par PhilLU

Le même code dans un exe fonctionne parfaitement :calim2:

ce n'était pas vrai, c'est bien ça ?

Citation:

Envoyé par PhilLU

Si quelqu'un à a (du verbe avoir -- sans accent) une piste...

Ouais : tu fais comment pour l'installer, alors ? Elle vient d'où, cette erreur ? Relis-toi :

Citation:

Envoyé par PhilLU

Lorsque je tente de l'installer sur Win server 2008, je reçois un message application CRASH avec le code d'erreur 0eedfade.
[...]
Le problème est que je ne possède pas de serveur 2008 pour tester

:koi:
18/08/2016, 08h15
skywaukers

Bonjour,

Citation:

Envoyé par PhilLU

Bonsoir,
Losque je tente de l'installer sur Win server 2008, je reçois un message application CRASH avec le code d'erreur 0eedfade.

Une différence qu'il peut y avoir entre ton PC et un serveur c'est les droits surement bien plus stricts sur le serveur. Regarde éventuellement le code que tu exécute au démarrage si il n'y aurait pas une ou des opérations qui pourraient avoir besoin de droits élevés ou qui tentent d'écrire là où ce n'est pas permis. Essaye d'attribuer un compte d'exécution ayant le maximum de droits pour voir si le message persiste.

@++
Dany
18/08/2016, 09h54
SergioMaster

Bonjour,

je bute sur un problème similaire ou presque (aucun message d'erreur) sur un serveur windows 2012 R2
pour moi il s'agit d'un problème de configuration SMTP ou du pare feu du dit serveur. Pour écarter la piste d'une erreur de programmation de mon service, j'ai repris le même code dans un exe et l'envoi échoue sans lever aucune erreur :aie: :arf:

Citation:

Envoyé par SergioMaster

Bonjour,

je bute sur un problème similaire ou presque (aucun message d'erreur) sur un serveur windows 2012 R2
pour moi il s'agit d'un problème de configuration SMTP ou du pare feu du dit serveur. Pour écarter la piste d'une erreur de programmation de mon service, j'ai repris le même code dans un exe et l'envoi échoue sans lever aucune erreur :aie: :arf:

Salut SergioMaster,
Dans mon cas, l'envoi d'un email est occasionnel, hors le crash à lieu à l'installation, ou enfin quasi directement...
dès son lancement, le service scanne des adresse IP pour récupérer des données de la première ligne de la page web trouvée... et boucle avec un intervalle de 1 minute.
(IPProbe étant l'adresse IP)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 for I := 1 to NProbe do begin Fs := TFileStream.Create(ExtractFilePath(ParamStr(0))+'temp.log', fmCreate); try DownloadHTTP('http://'+IPProbe[i-1], TStream(Fs)); // except end; Fs.Free; assignfile(Mem1, ExtractFilePath(ParamStr(0))+'temp.log'); reset(mem1); readln(mem1,S1); closefile(Mem1); //...ici j'exploite S1... end;
...avec l'exe, aucun problème??? :calim2:
Comme c'est un service, je n'ai pas envie d'exploiter "except"...
Aussi le service marche sur ma machine à merveille :weird:
:koi:
Toujours sur la piste d'une solution... ;)
Merci pour ton aide...
Phil

MonObjet.create try finally

Bonjour

Par principe chaque fois que c'est possible
Code:

1 2 3 4 5 6 7 MonObjet :=TMonObjet.create try //mon code de la mort finally MonObjet.free end;
Ainsi quoi qu'il arrive mon objet est libéré, c'est d'autant plus important qu'on travaille sur du mail en réseau qui peux ne pas aboutir pour tout un tat de bonnes et mauvais raisons.

Crldt
Citation:
Envoyé par PhilLU
De fait Cirec a parfaitement raison.
Ce code fonctionne maintenant parfaitement:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 procedure emailSend(Sender: TObject); begin //Setup SMTP smtphost, emailport, mailfrom, mailto, mailsubj, mailbody SMTP := TIdSMTP.Create(nil); SMTP.Host := smtphost; SMTP.Port := StrToInt(emailport); MailMessage := TIdMessage.Create(nil); MailMessage.From.Address := mailfrom; MailMessage.Recipients.EMailAddresses := mailto+','+mailcc; MailMessage.Subject := mailsubj; MailMessage.Body.Text := mailbody; //Send email try SMTP.Connect; SMTP.Send(MailMessage); except // Log blabla end; if SMTP.Connected then begin SMTP.Disconnect; MailMessage.free; SMTP.free; end; end;
Merci pour vos réponses ;-)
:ccool:
PhilLu