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

Cliquez pour voir la capture en taille normale
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 !
  • exemple.wdfTélécharger ce fichier [Réservé aux membres club]572 octets
  • main.dfmTélécharger ce fichier [Réservé aux membres club]185 391 octets
  • main.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier8 771 octets
  • WebDezign_Formulaire.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier240 octets
  • WebDezign_Formulaire.resTélécharger ce fichier [Réservé aux membres club]81 680 octets
  • WebDezign_Formulaire-exeTélécharger ce fichier [Réservé aux membres club]637 952 octets

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de cantador le 27/05/2008 11:09:11

Bonjour craftsystem,

Une seule boucle est nécessaire.
La méthode FindComponent me semble plus adaptée..
->>> snippets

signaler à un administrateur
Commentaire de craftsystem le 27/05/2008 13:25:48

... Je vais regarder sa. Merci de l'info Cantador.

signaler à un administrateur
Commentaire de jackalunion le 22/06/2008 12:41:57 10/10

bien

Ajouter un commentaire

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


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 1,466 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.