Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Отправка почты из моей программы., Нужен практический совет. |
| Nik0La |
Сообщение
#1
|
|
Гость  |
Нужно отправить почту из моей программы. Я не задаюсь целью сделать почтовый клиент, нужен очень простой способ!
1) Порты в системе (Port[25]) и порты в сети совместимы? (ну и глупось..). 2) Я умею делать это через telnet. Но как передавать ему команды? exec('telnet.exe', 'o mail.comtv.ru 25');
(вроде умно).А дальше эмулировать прерывания от клавы, чтобы передать остальные параметры? (тупо). 3) Ваш вариант. |
 
|
|
| FreeMan |
Сообщение
#2
|
|
-  Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация:  4  |
3) используй сокеты. о их программинге в сети дофига можно нарыть если надо. там всё просто. несколько апишек, пара-тройка всего структур.
-------------------- бб
|
   |
|
| hiv |
Сообщение
#3
|
 Профи Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: 11 |
Цитата 1) Порты в системе (Port[25]) и порты в сети совместимы? (ну и глупось..). Это совершенно разные вещи! Цитата 2) Я умею делать это через telnet. Но как передавать ему команды? Не получится! Цитата 3) Ваш вариант. Проще использовать Delphi 7. Там добавляешь пару INDY-компонент: TIdSMTP и TIdMessage. Оформить можно как консольную программу которая отсылает письмо по данным, которые ты передашь ей через параметры. А потом запускай ее из своей программы: exec('yuor_program.exe', 'parameters');
-------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
|
|
|
| Guest |
Сообщение
#4
|
|
Гость |
Спасибо всем, посмотрю с сокетами(чего-то видел на pascal.sources.ru). Летом, может быть, поучу Delphi.
|
|
|
|
| Altair |
Сообщение
#5
|
 Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата Летом, может быть, поучу Delphi.  Простите а на чем вы хотите отправлять почту? FPC, TMT ... ? какой компилятор вы используете? -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| Nik0La |
Сообщение
#6
|
|
Гость |
Цитата Простите а на чем вы хотите отправлять почту? FPC, TMT ... ? какой компилятор вы используете? Хочу отправлять на BP7.1. Ну ... вроде хелп к соксам почитал, чё-то понял. Кстати, при открытии соединении на 25 порте через телнет(который в винде) и в моей проге серверу надо отправлять одинаковые строки? Или я опять ничего не понял.... |
|
|
|
| hiv |
Сообщение
#7
|
|
Профи Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: 11 |
Так и есть!
Отправляешь команды и получаешь ответы от сервера как в телнете. -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
|
|
|
| Nik0La |
Сообщение
#8
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Спасибо, люди! :zdorov: Получилось! Сегодня, 15.05.2005 в 15.59(сплошные пятёрки), я отправил письмо! :p9:В сентябре, когда я только начинал учить свой первый язык программирования, я и не надеялся на ТАКОЕ (ведь меньше года прошло).
Улыбка до ушей :D . ЗЫ: Кстати, сообщение было просто "hello", без "world".  Сообщение отредактировано: Nik0La - |
|
|
|
| klem4 |
Сообщение
#9
|
 Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
/offtop
Поздравляю :D выложи результат чтоли) заценим /offtop -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Nik0La |
Сообщение
#10
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Цитата(klem4 @ 15.05.05 17:15) /offtop Поздравляю :D выложи результат чтоли) заценим /offtop Поздравления принимаю. Ловите! Только это не почтовый клиент, это только небольшая процедура для совершенно другой программы. Так что адрес отправителя/получателя, и все настройки надо менять ручками в исходнике.  Ну времени совсем не было, честно-пречестно. :p2:Сообщение отредактировано: Nik0La - Прикрепленные файлы 
tcpeus.rar ( 14.79 килобайт )
Кол-во скачиваний: 227 |
|
|
|
| Nik0La |
Сообщение
#11
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Вот, кстати, хелп от Rob Morewood, из которого я брал процедуры.
Прикрепленные файлы
TCP_UNIT.RUS.rar ( 3.98 килобайт )
Кол-во скачиваний: 235 |
|
|
|
|
|
Текстовая версия | 18.04.2025 14:13 |
