Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как из ДЛЛ отправить сообщение на e-mail? 
V
    Опции темы
ZLOvar
Дата 19.9.2010, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: 1
Всего: 1
Доброго времени суток. Появилась необходимость отправить сообщение из динамической библиотеки, собственно, как это сделать?  smile 
Всем заранее спасибо за ответ! 
--------------------
Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)
PM MAIL WWW   Вверх
bems
Дата 19.9.2010, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Примерно так же, как и из єкзешника. А в чем проблема возникает?


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ZLOvar
Дата 19.9.2010, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: 1
Всего: 1
bems, 
Ну я обычно пользуюсь компонентом из Indy для отправки сообщений, а в длл их ведь не засунить? Или я не прав?
--------------------
Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)
PM MAIL WWW   Вверх
xkor
Дата 19.9.2010, 23:16 (ссылка) | (голосов:5) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 8.1.2007
Где: Питер

Репутация: 2
Всего: 4
мда, вот к чему приучает кидание компонентиков на формы мышкой.., народ и подумать боится ручками подключить нужный модуль и написать создание и инициализацию компонента...
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
bems
Дата 20.9.2010, 03:51 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Ах вот что это за сообщение. В длл можно сделать датамодуль, но лучше просто вручную создавать нужные компоненты, как советует xkor


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ZLOvar
Дата 20.9.2010, 08:46 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: 1
Всего: 1
Цитата(bems @  20.9.2010,  03:51 Найти цитируемый пост)
вручную создавать нужные компоненты

А без компонентов никак? Кстати, значок  smile  не просто так прилеплен   smile 

Это сообщение отредактировал(а) ZLOvar - 20.9.2010, 08:46
--------------------
Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)
PM MAIL WWW   Вверх
Snowy
Дата 20.9.2010, 08:56 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484
Код
uses    
   ..., IdSmtp, IdMessage, ...    

function SendMail(Host:String;AdressTo:String;Subject:String;txt:String;FileAttach:String):Boolean;
var    
  SMTP:TIDSMTP;    
  Msg:TIDMessage;    
begin    
  SMTP:=TIDSMTP.Create(nil);    
  SMTP.Host:=Host;
  Msg:=TIdMessage.Create(nil);    
  Msg.ReplyTo.EMailAddresses:='[email protected]';    
  Msg.From.Name:='Test Sender';    
  Msg.Recipients.EMailAddresses:=AdressTo;    
  Msg.Subject:=Subject;    
  Msg.Body.Text:=Text;    
  If FileExists(FileAttach) then    
     TIDAttachment.Create(Msg.MessageParts, FileAttach);
  try
    SMTP.Connect;    
    SMTP.Send(Msg);
    Result:=true;
  except 
    Result:=False;
  end;
  SMTP.Disconnect;    
  SMTP.Free;    
  Msg.Free;    
end;
PM MAIL   Вверх
Akella
Дата 20.9.2010, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
Цитата(ZLOvar @  20.9.2010,  08:46 Найти цитируемый пост)
Кстати, значок  smile  не просто так прилеплен   smile 

Неужели в интернете НЕТ примеров???? Да уж... 
PM MAIL   Вверх
ZLOvar
Дата 20.9.2010, 18:45 (ссылка) | (голосов:4) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: 1
Всего: 1
Цитата(Akella @  20.9.2010,  16:53 Найти цитируемый пост)
Неужели в интернете НЕТ примеров???? Да уж...  

Времени нет искать. 
Snowy, вам огромное спамибо за пример! РАБОТАЕТ!  smile  smile 
--------------------
Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)
PM MAIL WWW   Вверх
Akella
Дата 25.9.2010, 12:39 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
Цитата(ZLOvar @  20.9.2010,  18:45 Найти цитируемый пост)
Времени нет искать. 

Ну ты и наглый. А ждать пока ответят есть? Хоть бы промолчал
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0580 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.