Меню сайта
Категории раздела
Тобольск [0]
ТГСПА [0]
Delphi [40]
Basic [0]
Разное [4]
Радио
ЧАТ
200
Облако тегов
Облако фото
Форум
  • композитная арматура (0)
  • Справедливо ли это???? (1)
  • Недвижимость в Тюмени (1)
  • Качество услуг и обслуживания (2)
  • строительный эксперт (0)
  • гид по Греции (0)
  • винные туры по Италии (0)
  • деревянные лестницы (0)
  • гид по Италии (0)
  • Разные поздравления (1)
  • Главная » 2011 » Май » 02
    //uses ...IdAttachmentFile; {indy 10.5.5; 10.5.7}
    ....
    var
    attach: TidAttachment; {indy 9.00.10}
    // attach: TIdAttachmentFile; {indy 10.5.5; 10.5.7}
    msg: tidmessage;

    begin
    // idSMTP1.AuthType:=satDefault; {indy 10.5.5; 10.5.7} // тпип авторизации

    idSMTP1.AuthenticationType:=atLogin; {indy 9.00.10} // тпип авторизации
    idSMTP1.Username:='xxxx'; // логин отправителя
    idSMTP1.Password:='****'; // пароль отправителя
    idSMTP1.Host:='smtp.mail.ru'; // хост mail.ru

     IdSMTP1.Port:=25; // порт mail.ru

    msg:=TIdMessage.Create(nil);

    msg .CharSet := 'UTF-8';
    msg .ContentTransferEncoding := '8bit';
    msg.ContentType:='text/plain';  // эту строчку добовлять в зависимости от того как будет работать сама программа

    msg.Body.Text := Memo1.Text;

    msg.Body.Add('Test'); // текст письма
    msg.Subject:='Test mail'; // Тема
    msg.From.Address:='xxxx@mail.ru'; // от кого отправляем письмо
    msg.From.Name:= ... Читать дальше »
    Категория: Delphi | Просмотров: 1055 | Добавил: SeM | Дата: 02.05.2011 | Комментарии (0)

    Поиск по сайту
    Календарь
    «  Май 2011  »
    ПнВтСрЧтПтСбВс
          1
    2345678
    9101112131415
    16171819202122
    23242526272829
    3031
    Новый Год
    Опрос
    Понравились фотографии Тобольска?


    Всего ответов: 14
    Всего голосовало: 14
    Обсудить на форуме
    Друзья сайта
    измерьте скорость интернета Яндекс.Метрика
    Проверить тИЦ и PR
    Статистика
    Погода
    Яндекс.Погода
    Коменнтарии

    Извиняюсь, заработал. Спасибо за урок biggrin

    Компонент не работает

    Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?

    у меня все работает!

    Нифига не робит...
    Кто знает как сделать чтобы на жесткий жертвы сохранял..
    ISQ 606017777

    FSDGHDFJHRG


    Отзывы Фото
    6 микр. Красивое место....

    Ершов ))))

    Старый музей но щас его перенесли...

    Фотография под горы smile

    Красивое фото!!! smile

    Copyright MyCorp © 2024