Accueil > > > WEBDEZIGN FORMULAIRE
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
Sources du même auteur
Sources de la même categorie
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
|
Derniers Blogs
[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|