Discussion :

[PhilLU]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Andnotor]

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

[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
Pour le reste du service j'ai du modifier du code (voir exemple dans mon post précédent)
Merci pour tes idées...

[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().

[PhilLU]

Bonsoir,
Oui, j'y ai pensé, mais en supprimant ces messages, pas mieux :-(

[Andnotor]

Écris dans un fichier ou génère un événement Service1.LogMessage().

[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é

[Jipété]

Yop !

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é

Le même code dans un exe fonctionne parfaitement

[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éé ?

[PhilLU]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ;-)

PhilLu

[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.

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
Si quelqu'un à une piste...
Merci pour vos suggestions

[Jipété]

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

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

Donc quand tu écrivais le 15 à 10 h 14

Le même code dans un exe fonctionne parfaitement

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

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 :

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

[skywaukers]

Bonjour,

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

[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

[PhilLU]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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???
Comme c'est un service, je n'ai pas envie d'exploiter "except"...
Aussi le service marche sur ma machine à merveille

Toujours sur la piste d'une solution...
Merci pour ton aide...
Phil

[alheuredudejeuner]

Bonjour

Par principe chaque fois que c'est possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ;-)

PhilLu