|
begin process at 2008 09 06 22:39:09
Derniers logiciels
|
Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
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 de la même categorie
Commentaires
Discussions en rapport avec ce code source
|
CalendriCode
| | | L | M | M | J | V | S | D |
| 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 | | | | | |
|
Téléchargements
Logiciels à télécharger sur le même thème :
|
|