Question : Le contenu de DBGrid dans l'email

Bonjour, le

I ont un ensemble de données avec des données sur ma forme a créé la manière suivante : le
->a DBGrid1 sur le myform avec l'ensemble de point d'émission de propriété à DataSource1.
->a DataSource1 avec l'ensemble d'ensemble de données de propriété ClientDataset1 au
->a ClientDataSet avec l'ensemble de ProviderName de propriété à XMLTransformProvider1.
et l'Active de propriété à True.
->a XMLTransformProvider1 avec l'ensemble de nom de fichier de propriété à un xml-filename.
->and un DBNavigator avec l'ensemble de point d'émission de propery à DataSource1.
->and j'ai placé les 3 colonnes : « décollement », le « TM » et (dt=date, tm=time, et val=value)
comme champs de persistend dans le DBGrid. le

Now j'ai fait un bouton qui ouvre un client d'email standard. Que j'ai le put
in la code-section. Mais j'ai besoin du contenu des dbgrid copié au corps-section
of l'email. Qui sait que la réponse et est disposée à m'aider ?

Greetings, Peter Kiers
class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 :

>procedure " de l'id= " codeSnippet757752 de

class= de

Réponse : Le contenu de DBGrid dans l'email

vous pouvez employer les fonctions de Geert_Gruwez ou d'Epasquier, mais je devine qu'il échouera sur la fonction de ShellExecute, en raison de trop de caractère et caractères spéciaux.

Dans la mesure où je sais vous avez installé le JCL - > vous pouvez employer son unité de JclMAPI comme ceci :

utilisations
  JclMAPI ;

procédé TForm1.Button1Click (expéditeur : TObject) ;
variété
  strEmail, strSubject : corde ;
  s : corde ;
  i : Nombre entier ;
commencer
  strEmail : = « [email protected] » ;
  strSubject : = « votre sujet » ;

  la fonction de Geert_Gruwez d'utilisation de // ou la fonction d'Epasquier pour produire du corps
  s : = '' ;
  pour I : = 0 à la table. Fields.Count-1 font
    s : = s + format (« % de 20h20 s », [table. Fields.Fields [I]. Légende]) ;
  s : = s + #13#10 + DupeString (« - », 21*table. Fields.Count) + #13#10 ;
  tandis que pas table. L'EOF font
  commencer
    pour I : = 0 à la table. Fields.Count-1 font
      s : = s + format (« % de 20h20 s », [table.fields. Met en place [I] .AsString]) ;
    s : = s + #13#10 ;
    table. Après ;
  extrémité ;

  JclSimpleSendMail (strEmail, '', strSubject, s) ;
extrémité ;