| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отправка почты

Страницы:   < 1 2 >

Андрей Алекс. ©   (2008-11-20 14:23:00) 


sendmail.Host := 'mail.rambler.ru';
sendmail.AuthenticationType:=atLogin;
sendmail.Username:='frikov';
sendmail.Password:='147852';
sendmail.Connect;
// memo1.Lines.Add(sendmail.ReadLn(#$A,-1,-1));
sendmess.From.Name := 'frikov@ramvler.ru';
sendmess.Subject:= 'Fr1Koff';
sendmess.Body.SetText('HAHA');
sendmess.Body.Insert(0, 'Yesy IZ Delphi');
sendmess.Recipients.EMailAddresses:='frikov@rambler.ru';
sendmail.Send(sendmess);
sendmail.Disconnect;



пишет ошибку

5.1.8 <>: Sender Address rejected: Envelope from do not macth authentication data; check your settings

---

Сергей М.   (2008-11-21 10:36:00) [1]

function ExportAsDelimitedText(DS: TDataSet; Delimiter: Char = #9): String;
var
i: Integer;
sl: TStrings;
s: String;
begin  
sl := TStringList.Create;
try
 DS.First;
 while not DS.Eof do begin
   s := '';
   for i := 0 to DS.Fields.Count - 1 do
     s := s + Delimiter + DS.Fields[i].AsString;
      sl.Add(s);
   DS.Next;
 end;
 Result := sl.Text;
finally
 sl.Free;
end;
end;
..
sendmess.Body.Text := ExportAsDelimitedText(MyTableComponent, '|');

---

Андрей Алекс.   (2008-11-21 10:33:00) [2]

всё равно приходит пустая накладная

sendmess.Body.Text := ExportAsDelimitedText(Table3, '|');

---

Сергей М.   (2008-11-21 10:16:00) [3]

> Андрей Алекс.   (21.11.08 10:04) [33]


Охх.. Сам не ведаешь что творишь ..

function ExportAsDelimitedText(DS: TDataSet; Delimiter: Char = #9): String;
var
i: Integer;
sl: TStrings;
s: String;
begin  
sl := TStringList.Create;
try
  DS.First;
  while not DS.Eof do begin
    s := '';
    for i := 0 to DS.Fields.Count - 1 do
      s := s + Delimiter + DS.Fields[i].AsString;
    DS.Next;
  end;
  Result := sl.Text;
finally
  sl.Free;
end;
end;
..
sendmess.Body. Text:= ExportAsDelimitedText(MyTableComponent, '|');

---

Андрей Алекс.   (2008-11-21 10:04:00) [4]

> function ExportAsDelimitedText(DS: TDataSet; Delimiter:
> Char = #9): String;

поменял на
function ExportAsDelimitedText(DS: TDataSet; Delimiter: Char = #9): PAnsiChar;


Result := sl.Text;

поменял на
  Result := sl.GetText;

теперь просто приходит пустое сообщение

---

Сергей М.   (2008-11-20 19:31:00) [5]

> Андрей Алекс.   (20.11.08 17:19) [29]


Пример дан для изучения, а не для тупого передирания.
Тряси бубен - выбора у тебя, похоже, нет)

---

Palladin   (2008-11-20 18:06:00) [6]

это непреодолимая засада :)

---

KilkennyCat   (2008-11-20 18:01:00) [7]

это вопрос?

---

Андрей Алекс.   (2008-11-20 17:19:00) [8]

[Error] Unit1.pas(474): Incompatible types: 'String' and 'PAnsiChar'

вот что в итоге

---

Сергей М.   (2008-11-20 16:51:00) [9]

> Пример
>
> |1|Танк|1|20000|20000
> |2|Самолет|2|15000|30000
> |3|Ракета|3|5000|15000


Украинский султан пишет письмо грузинскому султану ?)

---

Сергей М.   (2008-11-20 16:32:00) [10]

function ExportAsDelimitedText(DS: TDataSet; Delimiter: Char = #9): String;
var
 i: Integer;
 sl: TStrings;
 s: String;
begin  
 sl := TStringList.Create;
 try
   DS.First;
   while not DS.Eof do begin
     s := '';
     for i := 0 to DS.Fields.Count - 1 do
       s := s + Delimiter + DS.Fields[i].AsString;
     DS.Next;
   end;
   Result := sl.Text;
 finally
   sl.Free;
 end;
end;
..
sendmess.Body.SetText(ExportAsDelimitedText(MyTableComponent, '|'));


---

Андрей Алекс.   (2008-11-20 16:15:00) [11]

1. Таблица Парадокс
2. Структура |Номер|Наименование|Кол-во|Цена|Сумма

Пример

|1|Танк|1|20000|20000
|2|Самолет|2|15000|30000
|3|Ракета|3|5000|15000

за пример пожалуста не судите

---

Сергей М.   (2008-11-20 16:13:00) [12]

Ну как что ?

Цитирую тебя:


> добавить данные из таблицы


Что там у тебя за "таблица" - это одному тебе известно)

---

Андрей Алекс.   (2008-11-20 16:10:00) [13]

ууу... а что подразумеваятса под слова что она представляет.

---

Сергей М.   (2008-11-20 16:08:00) [14]

Так это ты самдолжен реализовать, в зависимости от того что из себя представляет МояТаблица..

---

Андрей Алекс.   (2008-11-20 16:07:00) [15]

ExportAsTSV в поисковике даже нигде нету и делфи говорит что не определен

---

Сергей М.   (2008-11-20 16:02:00) [16]

var
 MyTableData: String;
..
MyTableData := ExportAsTSV(МояТаблица);
sendmess.Body.SetText(MyTableData);



---

Андрей Алекс.   (2008-11-20 15:56:00) [17]

> 1. Выполнить тем или иным образом экспорт содержимого таблицы
> в набор данных в формате CSV или TSV.
>
> 2. Передать результат экспорта параметром в метод SetText


про это

---

Сергей М.   (2008-11-20 15:54:00) [18]

> про это


Про что конкретно ?

---

Palladin   (2008-11-20 15:54:00) [19]

про что "это" ?

---

Андрей Алекс.   (2008-11-20 15:52:00) [20]

а почитать дето есть про это

---

Страницы:   < 1 2 >

Наверх