WEBDEZIGN FORMULAIRE

---

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

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.

@++

{—————————————————————————————————————————————————————————————————————————}
{    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;

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

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

• BLOQUER LE TASKMGR SANS CLÉ DE REGISTRE
• CRÉER UN INSTALLATEUR POUR VOS PROGRAMME
• INTERPRÉTEUR DE SYNTAXE
• SOUNDCRYPT
• KEYGENME PROTECTION

• GESTION DE CALENDRIER DYNAMIQUE
• APPARITION PROGRESSIVE D'UNE FENÊTRE
• UN CADRE CONTENANT UN NAVIGATEUR TYPE MAGNÉTOSCOPE
• LOGICIEL POUR GÉNÉRER UNE CLASSE DELPHI
• MODIFIER LA POSITION DE COMPOSANTS (GAUCHE, DROITE,CENTRER)

• MAIL INDY10: MULTIPART/RELATED MESSAGEPARTS
• MAILS AVEC INDY10 : CONTENTTYPE/CONTENTID/PARENTPART
• UN PETIT GÉNÉRATEUR DE FACTURES
• MAILS AVEC INDY10, RÉSOLUTION DU PROBLÈME LORSQUE CHARSET = UTF-8
• SMTPCLIENT ET SMTPMESS : COMPOSANTS POUR ENVOYER DES MAILS AU FORMAT MIME