Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с почтой, Отправка и получение файлов 
:(
    Опции темы
BeKToP
Дата 6.2.2009, 21:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Здравствуйте. Пишу программу, она посылает и принимает почту (пользуюсь IdPOP3, IdSMPT, IdMESSAGE) не могу найти как прикрепить файл. 
PM MAIL WWW ICQ   Вверх
Alca
Дата 7.2.2009, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50
TIdAttachment  smile 
Код

procedure TForm1.Button1Click(Sender: TObject);
var
IdAttachment1:TIdAttachment;
begin
IdSMTP1.Host:='smtp.port.net';
IdSMTP1.Username:='[email protected]';
IdSMTP1.Password:='*******';
IdSMTP1.Connect(60000);
//
IdMessage1.CharSet:='UTF-8';
IdMessage1.ContentTransferEncoding:='8bit';
IdMessage1.ContentType:='text/plain'; // Письмо в текстовом виде
IdMessage1.Subject:=AnsiToUTF8('Пересылка письма'); // Тема письма
IdMessage1.Recipients.EMailAddresses:='grig @mail.ru'; // EMail- Кому
IdMessage1.From.Name:=AnsiToUTF8('ОАО ГРИГ'); // От кого - будет в списке писем "от кого"
IdMessage1.From.Address:='[email protected]'; // EMail-От кого;
IdMessage1.Body.Add(AnsiToUTF8('Пересылка письма удалась!'));
//присоединяем файл
IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts, 'e:\файл.txt');
IdAttachment1.FileName:=AnsiToUTF8(att.FileName);
IdAttachment1.ContentType:='Content-Type: text/plain; charset="UTF-8"';

IdSMTP1.Send(IdMessage1);
if IdSMTP1.Connected then IdSMTP1.Disconnect;
end;

P.S. Какой дебилдер?

Это сообщение отредактировал(а) Alca - 7.2.2009, 12:31


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Dmi3ev
Дата 7.2.2009, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
вот так прикрепляются и отправляются:
Код

//...
if (ListBox1->Items->Count>0)
 {
  //...
  for (int i=0; i<ListBox1->Items->Count; i++)
   {
    //...
     new TIdAttachment(IdMessage1->MessageParts, ListBox1->Items->Strings[i]);
     IdSMTP1->Send(IdMessage1);
    //...
    }
  }
//...

а в ListBox вот так добавляются имена файллов:
Код

void __fastcall TForm1::Button3Click(TObject *Sender)
{
 if (OpenDialog1->Execute())
  {
   Button3->Enabled=false;
   if (OpenDialog1->FileName!="")
    {
     ListBox1->Items->Add(OpenDialog1->FileName);
     OpenDialog1->FileName="";
    }
  }
 Button3->Enabled=true; 
}



--------------------
PM MAIL   Вверх
Alca
Дата 7.2.2009, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50
А если девилдер 2009?  smile 


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Dmi3ev
Дата 7.2.2009, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Цитата

А если девилдер 2009? 

я про 6 писал...  smile 


--------------------
PM MAIL   Вверх
Dmi3ev
Дата 8.2.2009, 03:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
вот в шестерке так:
Код

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1->Caption="Отправить";

Form1->IdSMTP1->UserId="dmi3ev";
Form1->IdSMTP1->Password="000000";//пароль
Form1->IdSMTP1->Host="smtp.mail.ru";// сервер
Form1->IdSMTP1->Port=2525;//для smtp.mail.ru, это значение необходимо уточнять (обычно оно просто 25)
Form1->IdSMTP1->AuthenticationType=atLogin;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdSMTP1->Connect();//соединяемся
IdMessage1->Body->Text="Привет, я тебе файл прислал!";//текст письма
IdMessage1->From->Text="[email protected]";//от кого
IdMessage1->Recipients->EMailAddresses="[email protected], [email protected]";//список получателей
IdMessage1->Subject="Проверка";//тема

new TIdAttachment(IdMessage1->MessageParts, "D:\\power.txt");//прикрепляем файл
IdSMTP1->Send(IdMessage1);//отправляем
IdSMTP1->Disconnect();//рвем соединение
}
//---------------------------------------------------------------------------

советы:
1) Текст письма лучше писать в RichEdit и тогда
Код

IdMessage1->Body->Text=RichEdit1->Text;

2) файлы лучше прикреплять с использованием ListBox, см. выше.
Это основы...



--------------------
PM MAIL   Вверх
Alca
Дата 9.2.2009, 10:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50
Меня интересует С++Builder 2009. Делаю так:
Код

void __fastcall TForm1::Button1Click(TObject *Sender) {
    IdSMTP1->AuthType = satDefault;
    IdSMTP1->Host     = L"192.168.1.48";
    IdSMTP1->Port     = 25;

    IdMessage1->Clear();

    IdMessage1->Recipients->EMailAddresses = L"[email protected]";        //EMail- Кому
    IdMessage1->From->Name                 = L"Serg";                //От кого - будет в списке писем "от кого"
    IdMessage1->From->Address              = L"[email protected]";        //EMail-От кого;
    IdMessage1->Subject                    = L"Пересылка письма";    //Тема письма
    IdMessage1->Body->Text                 = L"Пересылка письма удалась!";

    //аттач
    TIdAttachment *pAttach;
    TStringList *pHead = new TStringList;
    IdMessage1->DoCreateAttachment(pHead, pAttach);
    pAttach->FileName                             = L"Test.zip";
    ((TIdAttachmentFile*)pAttach)->StoredPathName = L"C:\\Test.zip";

    IdSMTP1->Connect();
    IdSMTP1->Send(IdMessage1);
    IdSMTP1->Disconnect();
}

Аттачмент (файл) содержит не то имя и не то расширение!!!
Вместо Test.zip получаю  ATT00074.dat. 
Если открыть этот аттач архиватаром, то все открывается номально - архив не битый.
Цель: получить правильное имя файла.



Это сообщение отредактировал(а) Alca - 9.2.2009, 13:27

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  AttScreen.PNG 11,06 Kb


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Dmi3ev
Дата 9.2.2009, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
а если попробовать для начала, как я сказал? глупо, конечно, но все же... для спокойствия...
Код

new TIdAttachment(IdMessage1->MessageParts, "D:\\power.txt");

или там такое нельзя делать? я просто в 2009 не работал, только качать собираюсь.

Добавлено через 2 минуты и 1 секунду
А еще попробуй не Indy юзать! такая же шняга?


--------------------
PM MAIL   Вверх
Alca
Дата 9.2.2009, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50
Цитата

Код

new TIdAttachment(IdMessage1->MessageParts, "D:\\power.txt");


Ты думаешь я не пробывал?  smile 
А
Цитата

 еще попробуй не Indy юзать! такая же шняга?

Хочу добить индейцев до конца, если не прокатит буду пробывать другое.

Это сообщение отредактировал(а) Alca - 9.2.2009, 13:57


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Dmi3ev
Дата 9.2.2009, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
так со всеми файлами, или только с zip?


--------------------
PM MAIL   Вверх
Alca
Дата 9.2.2009, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50
со всеми


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Dmi3ev
Дата 9.2.2009, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
как я и думал, это баг Indy. Нужно загрузить новенькое и установить.
чтобы не быть голословным, вот:
http://qc.codegear.com/wc/qcmain.aspx?d=66867

Удачи! за Indy водится такое... Я всегда с недоверием к этим вкладкам отношусь...  

Это сообщение отредактировал(а) Dmi3ev - 9.2.2009, 15:12


--------------------
PM MAIL   Вверх
Alca
Дата 9.2.2009, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50
Цитата

Нужно загрузить новенькое и установить

И протра..ся недельку.....  smile  smile 
Какие есть альтернативы инди для C++Builder 2009?

Это сообщение отредактировал(а) Alca - 9.2.2009, 19:02


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Dmi3ev
Дата 9.2.2009, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Код

Какие есть альтернативы инди для C++Builder 2009?

в шестерке есть NMSMTP и ... на FastNet



--------------------
PM MAIL   Вверх
Alca
Дата 9.2.2009, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50
Эт я знаю.


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

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

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

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

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

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

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


 




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


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

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