sendmail на делфи
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
sendmail на делфи - 2007-03-17 12:39:50.480000
|
|
|
sql~injector
Сообщений: 10
Оценки: 0
Присоединился: 2007-01-05 15:34:54.270000
|
короче. в делфи 7 (да и в борландовском C Builder) есть одна крутая штука как WebServerApp (запускается через file>new>other>Web Server Application). как в ней захреначить sendmail?
|
|
|
|
|
RE: sendmail на делфи - 2007-03-21 01:40:31.026666
|
|
|
Akvadiv
Сообщений: 3
Оценки: 0
Присоединился: 2007-02-24 05:03:40.286666
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress, IdPOP3;
type
TForm1 = class(TForm)
Button1: TButton;
IdSMTP1: TIdSMTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);
M.Body.Add('Типа первая строчка собщения');
M.Body.Add('Типа вторая строчка собщения');
M.From.Text := '"XXX" <XXXXX@XXX.XXX>';//отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := '"Test" <XXXXX@XXX.XXX>'; //Получатель
M.Subject := 'Tema'; //Тема письма
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'smtp.mail.ru';//smtp-сервер(на mail этот на другие смотри сам)
IdSMTP1.Username := 'XXX@XXX.XXX';
IdSMTP1.Password := 'XXX'; // - ну свой пароль я те не выдам :-Р
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
IdSMTP1.send(M);
end;
IdSMTP1.Disconnect;
end;
end.
|
|
|
|
|
RE: sendmail на делфи - 2007-03-21 08:04:40.436666
|
|
|
sql~injector
Сообщений: 10
Оценки: 0
Присоединился: 2007-01-05 15:34:54.270000
|
quote:
… Messages,…, Variants, Classes, Graphics, … Forms, Dialogs
а зачем так много в uses пихать? по моему часть всё-таки можно убрать =).
|
|
|
|
|
RE: sendmail на делфи - 2007-03-21 08:04:48.200000
|
|
|
sql~injector
Сообщений: 10
Оценки: 0
Присоединился: 2007-01-05 15:34:54.270000
|
благодарю =)…
|
|
|
|
|
RE: sendmail на делфи - 2007-03-21 17:28:41.916666
|
|
|
sql~injector
Сообщений: 10
Оценки: 0
Присоединился: 2007-01-05 15:34:54.270000
|
хорошо то хорошо… но всё-таки надобы это сделать не как обычное win-приложение, а как webserverapp (т.е. он должен работать как обычный скрипт на php или perl, по тому же принципу)
|
|
|
|
|
RE: sendmail на делфи - 2007-03-29 09:31:29.080000
|
|
|
sql~injector
Сообщений: 10
Оценки: 0
Присоединился: 2007-01-05 15:34:54.270000
|
блин… что все такие же ламеры как я?
|
|
|
|
|
RE: sendmail на делфи - 2007-03-30 22:23:15.113333
|
|
|
Anonimizer_me
Сообщений: 14
Оценки: 0
Присоединился: 2007-03-18 18:01:01.373333
|
Эти вещи не работаю как скрипты.. они юзверю на комп льются - потом выполняются
Это что-то типа ActiveX
так что если ты компилишь в Delphi а не в Kylix то чел зашедший на сайт с Linux не сможет этого увидеть.
Так что думай
|
|
|
|
|
|
