|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 WEBDEZIGN FORMULAIRE
 Information sur la source
 Description
Salut à tous Bon cette source n'a rien d'exceptionnel mais mine de rien elle est bien pratique. c'est un générateur de formulaire. pour stocker les infos des TEdit, TLabeledEdit, TComboBox, TColorBox, je fait une boucle avec chacun des composants, rien de nouveau aussi mais cette technique est vraiment utile quand on c'est l'utiliser. Ensuite une fois les infos édité on sauvegarde dans un fichier WDF (ini) et on envoie un mail au WebMaster. @++
 Source
- {—————————————————————————————————————————————————————————————————————————}
- { Génére un formulaire *.WDF [F9] }
- {—————————————————————————————————————————————————————————————————————————}
- procedure Twin.Button1Click(Sender: TObject);
- var
- Edit: tedit;
- LabelEdit: TLabeledEdit;
- ComboBox: TComboBox;
- ColorBox: TColorBox;
- a, b, c, d: integer;
- email, destinataire, sujet, messge, filelier: string;
- begin
- if savedialog1.Execute then begin
- win.Caption := savedialog1.FileName;
- ini := tinifile.Create(savedialog1.FileName);
- try
- for a := 0 to componentcount - 1 do
- if components[a] is tedit then begin
- edit := tedit(components[a]);
- ini.WriteString('Edit', edit.Name, edit.Text);
- end;
- for b := 0 to componentcount - 1 do
- if components[b] is TLabeledEdit then begin
- LabelEdit := TLabeledEdit(components[b]);
- ini.WriteString('LabelEdit', LabelEdit.Name, LabelEdit.Text);
- end;
- for c := 0 to componentcount - 1 do
- if components[c] is TComboBox then begin
- ComboBox := TComboBox(components[c]);
- ini.WriteString('ComboBox', ComboBox.Name, ComboBox.Text);
- end;
- for d := 0 to componentcount - 1 do
- if components[d] is TColorBox then begin
- ColorBox := TColorBox(components[d]);
- ini.WriteString('ColorBox', ColorBox.Name, inttostr(colorbox.Selected));
- end;
- finally
- ini.Free;
- end;
- end;
- memo.Lines.LoadFromFile(savedialog1.FileName);
- destinataire := webmaster.Text;
- filelier := savedialog1.FileName;
- if filelier = '' then begin
- filelier := Opendialog1.FileName;
- if filelier = '' then begin
- filelier := Win.Caption;
- end;
- end;
- sujet := 'Demande de site de ' + nom_client.Text + ' ' + prenom_client.Text;
- messge := 'Si vous avez des questions n''hésité pas.' + '%0D%0A' + '%0D%0A' + 'Le reste du message est généré automatiquement, donc ne l''effacé pas !!' + '%0D%0A' + '%0D%0A' + '[Edit]' + '%0D%0A' + 'adress2_client=' + adress2_client.text +
- '%0D%0A' + 'des1_site=' + des1_site.text + '%0D%0A' + 'des2_site=' + des2_site.text +
- '%0D%0A' + '[LabelEdit]' + '%0D%0A' + 'nom_client=' + nom_client.text + '%0D%0A' + 'prenom_client=' + prenom_client.text +
- '%0D%0A' + 'adress_client=' + adress_client.text + '%0D%0A' + 'code_postal_client=' + code_postal_client.text +
- '%0D%0A' + 'ville_client=' + ville_client.text + '%0D%0A' + 'tel_client=' + tel_client.text + '%0D%0A' + 'mail_cliient=' + mail_cliient.text +
- '%0D%0A' + 'adress_ftp=' + adress_ftp.text + '%0D%0A' + 'login_ftp=' + login_ftp.text + '%0D%0A' + 'pass_ftp=' + pass_ftp.text +
- '%0D%0A' + 'nom_site=' + nom_site.text + '%0D%0A' + 'domaine_site=' + domaine_site.text + '%0D%0A' + 'webmaster=' + webmaster.text +
- '%0D%0A' + '[ComboBox]' + '%0D%0A' + 'type_site=' + type_site.text + '%0D%0A' + 'style_site=' + style_site.text +
- '%0D%0A' + 'style_menu_site=' + style_menu_site.text + '%0D%0A' + '[ColorBox]' + '%0D%0A' + 'color_principal=' + inttostr(color_principal.selected) +
- '%0D%0A' + 'color_police=' + inttostr(color_police.selected);
- email := 'mailto:' + destinataire + '?subject=' + sujet + '&body=' + messge + '&file=' + filelier;
- ShellExecute(Handle, 'open', PChar(email), nil, nil, SW_SHOW);
- end;
{—————————————————————————————————————————————————————————————————————————}
{ Génére un formulaire *.WDF [F9] }
{—————————————————————————————————————————————————————————————————————————}
procedure Twin.Button1Click(Sender: TObject);
var
Edit: tedit;
LabelEdit: TLabeledEdit;
ComboBox: TComboBox;
ColorBox: TColorBox;
a, b, c, d: integer;
email, destinataire, sujet, messge, filelier: string;
begin
if savedialog1.Execute then begin
win.Caption := savedialog1.FileName;
ini := tinifile.Create(savedialog1.FileName);
try
for a := 0 to componentcount - 1 do
if components[a] is tedit then begin
edit := tedit(components[a]);
ini.WriteString('Edit', edit.Name, edit.Text);
end;
for b := 0 to componentcount - 1 do
if components[b] is TLabeledEdit then begin
LabelEdit := TLabeledEdit(components[b]);
ini.WriteString('LabelEdit', LabelEdit.Name, LabelEdit.Text);
end;
for c := 0 to componentcount - 1 do
if components[c] is TComboBox then begin
ComboBox := TComboBox(components[c]);
ini.WriteString('ComboBox', ComboBox.Name, ComboBox.Text);
end;
for d := 0 to componentcount - 1 do
if components[d] is TColorBox then begin
ColorBox := TColorBox(components[d]);
ini.WriteString('ColorBox', ColorBox.Name, inttostr(colorbox.Selected));
end;
finally
ini.Free;
end;
end;
memo.Lines.LoadFromFile(savedialog1.FileName);
destinataire := webmaster.Text;
filelier := savedialog1.FileName;
if filelier = '' then begin
filelier := Opendialog1.FileName;
if filelier = '' then begin
filelier := Win.Caption;
end;
end;
sujet := 'Demande de site de ' + nom_client.Text + ' ' + prenom_client.Text;
messge := 'Si vous avez des questions n''hésité pas.' + '%0D%0A' + '%0D%0A' + 'Le reste du message est généré automatiquement, donc ne l''effacé pas !!' + '%0D%0A' + '%0D%0A' + '[Edit]' + '%0D%0A' + 'adress2_client=' + adress2_client.text +
'%0D%0A' + 'des1_site=' + des1_site.text + '%0D%0A' + 'des2_site=' + des2_site.text +
'%0D%0A' + '[LabelEdit]' + '%0D%0A' + 'nom_client=' + nom_client.text + '%0D%0A' + 'prenom_client=' + prenom_client.text +
'%0D%0A' + 'adress_client=' + adress_client.text + '%0D%0A' + 'code_postal_client=' + code_postal_client.text +
'%0D%0A' + 'ville_client=' + ville_client.text + '%0D%0A' + 'tel_client=' + tel_client.text + '%0D%0A' + 'mail_cliient=' + mail_cliient.text +
'%0D%0A' + 'adress_ftp=' + adress_ftp.text + '%0D%0A' + 'login_ftp=' + login_ftp.text + '%0D%0A' + 'pass_ftp=' + pass_ftp.text +
'%0D%0A' + 'nom_site=' + nom_site.text + '%0D%0A' + 'domaine_site=' + domaine_site.text + '%0D%0A' + 'webmaster=' + webmaster.text +
'%0D%0A' + '[ComboBox]' + '%0D%0A' + 'type_site=' + type_site.text + '%0D%0A' + 'style_site=' + style_site.text +
'%0D%0A' + 'style_menu_site=' + style_menu_site.text + '%0D%0A' + '[ColorBox]' + '%0D%0A' + 'color_principal=' + inttostr(color_principal.selected) +
'%0D%0A' + 'color_police=' + inttostr(color_police.selected);
email := 'mailto:' + destinataire + '?subject=' + sujet + '&body=' + messge + '&file=' + filelier;
ShellExecute(Handle, 'open', PChar(email), nil, nil, SW_SHOW);
end;
 Conclusion
J'espère que le code sera bien formaté sinon veuillez m'excuser pour l'exécutable changer WebDezign_Formulaire-exe en WebDezign_Formulaire.exe
 Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
 Télécharger le zip
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Suppression mail [ par xt3 ]
Petite question toute bête. Est ce que quelqu'un saurait comment faire pour supprimer un e-mail directement sur un serveur pop? D'après m
progressbar et timer [ par guigui265 ]
Bonjour,j'ai sur mon formulaire un progressbar,un timer et un bouton,entre autres.Coomment faire pour que,sur le clic du bouton, la progressbar progre
IdMessage & IdPOP3 [ par Lelys ]
Bonjour ,Je suis en train de programmer un notificateur d'e-mail et j'ai un petit problème (enfin petit mais très embêtant pour un noti
Mail avec pièce jointe - Indy 10 [ par eldred ]
Bonjour, je voudrais envoyer un mail avec une pièce jointe avec Indy 10 et delphi 2005. J'aimerais le faire sous delphi 6 et Indy 8 ou 9 mais delphi 6
PB ajout Mails TStringList [ par trezeled ]
Bonjour,J'essaie de developper un envoi de mail.Pour cela je n'arrive pas à ajouter les adresses de destination a la propriété ToAdress qui est un TSt
Message, mail, non-coché par defaut [ par f0xi ]
salut,ce serait surper si, par defaut la case "M'envoyer un mail lorsqu'il y a une réponse à cette discussion." sous l'editeur de message du forum eta
adresse e-mail? [ par kabrisse ]
bonjour,je voudrais savoir si il existe un moyen de savoir à qui appartient une adresse e-mail sur laposte.net
retour a la ligne dans un mail avec client par defaut [ par blamme ]
Bonjour,Donc j'envoi un mail avec la commande shellexecute('handle' ,pchar('mailto:adr@mail.fr&subject=message&body=corp du message' ),'','',s
Server mail indy [ par 365tib ]
Vous n'auriez pas une idée de comment créer puis de faire fonctionner un server mail indy???Merci d'avance,365tib
Probleme de mail avec Outlook 2000 [ par blamme ]
Bonjour a tous,J'ai une petite question: j'ai creer un soft qui envoie des mails avec le client de messagerie par defaut grace a la commande: shellexe
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|