Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Принятие почты с помощью SMTP протокола 


Serg001   (2002-02-04 11:51) [0]

Подскажите люди добрые, как мне в Delphi пользоваться командами SMTP.



Serg001   (2002-02-04 11:55) [1]

Т.е. отправка почты.



Ghost.   (2002-02-04 11:55) [2]

Вот с помощью "SMTP протокола" ты почту принять неможешь никак :0)



Ghost.   (2002-02-04 11:57) [3]

Для этого полно компонентов и примеров и в самой делфи тоже



Serg001   (2002-02-04 12:09) [4]

>Ghost
Мне нужно отправлять с помощью "натуральных" команд SMTP,
HELO, MAIL и т.д.



Ghost.   (2002-02-04 12:13) [5]

Никаких проблем можешь почитать RFC ну если не хочешь первоисточник http://www.sources.ru/protocols/smtp_learning.shtml
тут очень понятно написано, я сам по этой инструкции начинал



Serg001   (2002-02-04 12:16) [6]

Спасибо, Ghost!



Serg001   (2002-02-04 12:20) [7]

>Ghost
Эту статью я уже читал, а как эти команды писать в делфях?



Ghost.   (2002-02-04 12:23) [8]

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



Serg001   (2002-02-04 12:30) [9]

>Ghost
А можешь дать небольшой примерчик?



Ghost.   (2002-02-04 12:39) [10]

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



Serg001   (2002-02-04 12:43) [11]

>Ghost
Видишь ли, я-начинающий, не мог бы ты объяснить попроще



Ghost.   (2002-02-04 13:02) [12]

Вот так там написанно
procedure TClientForm.SMTP_Interpreter(
CommandVerb : String;
CommandTail : String);
var
Response : String;
begin
if FDataFlag then begin
{ We should add storage here of course... }
{ SMTP data ends with a line having being a single dot }
if FCommand = "." then begin
Response := "250 Data received ok";
Socket.SendStr(Response + #13 + #10);
FDataFlag := FALSE;
end;
end
else begin
FDataFlag := FALSE;
if CommandVerb = "MAIL" then
Response := "250 Ok"
else if CommandVerb = "RCPT" then
Response := "250 Ok"
else if CommandVerb = "DATA" then begin
Response := "354 Send data now";
FDataFlag := TRUE;
end
else if CommandVerb = "HELO" then
Response := "250 Ok"
else if CommandVerb = "QUIT" then
Response := "221 Goodbye"
else
Response := "500 syntax error";

Socket.SendStr(Response + #13 + #10);
if CommandVerb = "QUIT" then
Socket.Close;
end;
end;




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.027 c
1-46432           Иван                  2002-04-02 21:51  2002.04.15  
отправка email


1-46341           Schummi               2002-04-02 07:44  2002.04.15  
Цвет в StringGrid


1-46415           Durak                 2002-04-02 17:32  2002.04.15  
Окно


1-46375           Тема                  2002-04-01 19:07  2002.04.15  
Какую книгу выбрать


1-46311           Алекс555              2002-04-03 12:37  2002.04.15  
Друзья, подскажите для чего нужны указатели, на простом примере