Вопрос : Содержание DBGrid в электронная почта

Hi,

I имеет один dataset с данными на моей форме создало следующий дорогу:
->a DBGrid1 на myform с комплектом DataSource свойства к DataSource1.
->a DataSource1 с комплектом DataSet свойства к ClientDataset1
->a ClientDataSet с комплектом ProviderName свойства к XMLTransformProvider1.
и Active свойства к True.
->a XMLTransformProvider1 с комплектом FileName свойства к xml-filename.
->and DBNavigator с комплектом DataSource propery к DataSource1.
->and я устанавливал 3 колонки: «dt», «tm» и «val» (dt=date, tm=time, и val=value)
как поля persistend в DBGrid.

Now я делал кнопку раскрывает стандартного клиента электронная почта. Что я имею put
in Код-раздел. Но мне нужно содержание dbgrid скопированное к телу-section
of электронная почта. Знает ответ и охотно готов помочь мне?

Greetings, Питер Kiers
class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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

>procedure TMainForm.Button1Click " class= " id= " codeSnippet757752

class=

Ответ : Содержание DBGrid в электронная почта

вы можете использовать функции Geert_Gruwez или Epasquier, но я угадываю он потерпит неудачу на функции ShellExecute, из-за слишком много характера и специальных символов.

Насколько я знаю вы устанавливали JCL - > вы можете использовать свой блок JclMAPI как это:

пользы
  JclMAPI;

процедура TForm1.Button1Click (прислужник: TObject);
var
  strEmail, strSubject: шнур;
  s: шнур;
  iий: Интежер;
начните
  strEmail: = «[email protected]»;
  strSubject: = «ваш вопрос»;

  функция Geert_Gruwez пользы // или функция Epasquier для того чтобы произвести тело
  s: = '';
  для I: = 0 к таблице. Fields.Count-1 делает
    s: = s + форма («%20: 20s», [таблица. Fields.Fields [I]. Титр]);
  s: = s + #13#10 + DupeString («-», 21*table. Fields.Count) + #13#10;
  пока не таблица. Eof делает
  начните
    для I: = 0 к таблице. Fields.Count-1 делает
      s: = s + форма («%20: 20s», [table.fields. Fields [I] .AsString]);
    s: = s + #13#10;
    таблица. Затем;
  конец;

  JclSimpleSendMail (strEmail, '', strSubject, s);
конец;