Discussion :

[pierrot67]

Bonsoir

Mon code ligne 6 deviens rouge à la compilation:

Code :

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

1
2
3
4
5
6
7
8
procedure TCourriel.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
if not (Edit1.Text='')
then TidAttachment.Create(IdMessage1.MessageParts,Edit1.Text);
end;
end.

Pourriez vous m'aider Merci.

[Pedro]

Mon code ligne 6 deviens rouge à la compilation:

Je ne l'avais jamais vu présenté comme ça
Quel est le message d'erreur?
Et est-ce que le code que tu donnes contient bien la ligne 6? En d'autres termes, montre la ligne ou le compilateur s'arrête...

[pierrot67]

Merci pour la réponse


message d'erreur :trop de paramêtre originaux.

Avertissement : Construction d'instance de TidAttachment Contenant la methode abstraite 'TidAttachment.OpenLoadStream'.

En rouge:

Code :

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

then TidAttachment.Create(IdMessage1.MessageParts,edit1.text);

[devyan]

Merci pour la réponse


message d'erreur :trop de paramêtre originaux.

...

En rouge:

Code :

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

then TidAttachment.Create(IdMessage1.MessageParts,edit1.text);

Là ça veut dire que TidAttachment.Create() attend moins de 2 paramètres

[pierrot67]

comment moins de 2 paramètres?

[devyan]

comment moins de 2 paramètres?

L'interface du constructeur de TidAttachment n'attend pas 2 paramètres comme dans ton appel. (ou alors ce n'est pas le code de la ligne 6 )

[pierrot67]

j'ai mis code de la ligne 6 pour t'indiquer ou il se trouve dans le code que j'affiche sur le forum.

[devyan]

Re-bonjour,

Peux-tu m'indiquer (avec l'aide des composants Indy) quelle est la décaration de la fonction Create du composant TIdAttachement ?

Je pense que le problème vens de là. Quels sont les paramètres attendus pas cette fonction ?

Je crois que dès que tu auras répondu cette question, tu auras en fait résolu ton problème

[pierrot67]

je pense que tu as raison je n'ai effectivement pas utilisé l'évenement OnCreateAttachement. si c'est de ça que tu parles.

[devyan]

je pense que tu as raison je n'ai effectivement pas utilisé l'évenement OnCreateAttachement. si c'est de ça que tu parles.

Non, je parle de la fonction Create(). Le constructeur de l'objet TidAttachement.

[rouxel1]

A mon avis ce qui ne convient pas est le 2ème argument.

La fonction renvoie probablement une collection qui doit etre stoquée dans

une matrice et non dans une simple variable comme le composant edit.

[pierrot67]

voila tout le code mais j'ai lu sur le net qu'il y avait eu un changement avec les composants indy 10.

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
procedure TCourriel.Button3Click(Sender: TObject);
begin
Close;
end;
 
procedure TCourriel.Button2Click(Sender: TObject);
begin
Screen.Cursor:=crHourGlass;
IdMessage1.Clear;
IdMessage1.From.Text :=Edit4.Text;
IdMessage1.ReplyTo.EMailAddresses:=Edit4.Text;
IdMessage1.Recipients.EMailAddresses:=edit3.text;
IdMessage1.Date:=Date;
IdMessage1.Subject:=edit2.text;
IdMessage1.Priority:=mpNormal;
IdMessage1.Body.Assign(Memo1.Lines);
if not (Edit1.Text='')
then Tidattachment.create(IdMessage1.MessageParts,edit1.text);
IdSMTP1.AuthType:=atdefault;
IdSMTP1.Host:='SMTP.free.fr';
IdSMTP1.Port:=25;
IdSMTP1.UserName:='xxxxx';
IdSMTP1.Password:='xxxxx';
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
Screen.Cursor:=crDefault;
Statusbar1.panels[0].text := 'le message à été envoyé';
end;
end;
 
procedure TCourriel.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
end;
 
end.

[Edit]
Bonjour

je voulais juste informer les personnes comme moi qui débutent et qui se retrouverons devant ce problème en ce qui concerne l'attachment dans un mail avec les composants indy10
ce n'est plus :

Code :

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

tidattchment.create (Idmessage.MessageParts,editx.text);

Mais :

Code :

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

tidattchmentfile.create (Idmessage.MessageParts,editx.text);

C'est en référence à l'exellent tuto sur le net. je pense que les débutants on tous tendance à le récupérer et si ils ont des composants indy10 il auront des problèmes d'attachment.

Merci.