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

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

Delphi->EMAIL [D5, 2000, XP]

lorn ©   (2006-10-25 18:04:00) 

Доброго времени суток мастера
ситуация в следующем надо написать прогу для отправки почты через веб интерфейс
создал html форму
<!-- HTML форма ввода пароля -->
<HTML>
<HEAD>
<TITLE>Авторизация доступа</TITLE>
</HEAD>
<BODY>

<table border="10">
<tr>
<td><FORM method="POST" action=" http://localhost/cgi/pr.dll">
Введите пароль:
<input type="text" name="mail" size=20>
<input type="submit" value="послать">
<input type="reset" value="Очистить"></td>
</tr>
</FORM>
</BODY>
</HTML>

далее сделал isapi приложение на форме web module 2компонента -page procedure и  nmsmtp
такой код
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
 const TagString: String; TagParams: TStrings; var ReplaceText: String);
 var data:Tstrings;
begin
if TagString = 'mail' then
 begin

  data:=request.ContentFields;
  ReplaceText:=data.Values[TagString];

with NMSMTP1 do
 begin
   Host := 'smtp.mail.ru';
   UserID := '___Nikolay';
   Connect;

   PostMessage.FromAddress := 'lorn@mail.ru';
   PostMessage.ToAddress.Text := data.Values[TagString];
   PostMessage.Body.Text := 'Текст письма';
   PostMessage.Subject := 'Тема письма';
   SendMail;
 end;

 end;

end;

ввсё это крутится на iis server
вобщем адрес почты как параметр передаётся но не выполняется код с smtp
что делаю не так и как это исправить
заранее спасибо

---

lorn   (2006-10-25 18:50:00) [1]

ну  и хер с вами зотые  рыбки
еб№тесь сами до посинения в своём синем море

---

Ketmar   (2006-10-25 18:44:00) [2]

>[6] lorn 25-Oct-2006, 18:24
>Ketmar не придерайся к словам
а ведь и вправду [3]... %-(

---

Anatoly Podgoretsky   (2006-10-25 18:42:00) [3]

Он правильно сказал.
Спасибо что предупредил.

---

lorn   (2006-10-25 18:24:00) [4]

Ketmar не придерайся к словам
подскажи если знаеш - как такой трабл решить
заранее спасибо

---

DVM   (2006-10-25 18:23:00) [5]

> а как быть

Indy или WinSock напрямую

---

Ketmar   (2006-10-25 18:22:00) [6]

>[3] lorn 25-Oct-2006, 18:18
>а как быть
прежде всего -- избавиться от nmsmtp.

>подскажи дураку
что ж ты раньше-то не сказал? а я уже ответ настукал...
но если уверен, что дурак, то больше не буду: зачем на дурака время тратить?

---

lorn   (2006-10-25 18:18:00) [7]

а как быть
подскажи дураку

---

Ketmar   (2006-10-25 18:16:00) [8]

nmsmtp? на сервере? ужос. спрячь, пока не поздно, и никому не показывай. и больше никогда так не делай. ибо глючище.

---

lorn   (2006-10-25 18:14:00) [9]

ну забыл ещё дописать
procedure TWebModule1.WebModule1aiParseFileAction(Sender: TObject;
 Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content :=  PageProducer1.Content
end;

---

Наверх