Program pocztowy - pobieranie tresci

[mentalmesh]

Witam.
Zaczynam pisac program pocztowy, korzystam z Buildera 2009 i Indy 10.
Czy moze mi ktos napisac jak pobrac tresc i zalacznik wiadomosci?
Doszukalem sie informacji pod Delphi ale nie wszystko udalo mi sie przelozyc na C++Builder.
Jak sprawdzic ktora czesc jest Text a ktora Attachment?
Bardzo prosze o kawalek kodu ktory to realizuje, do tej pory pobralem naglowki z IdMessage ale nie moge odzyskac tresci
Z gory dziekuje za pomoc.

[Miroo_007]

TIdMessage:

• TIdMessage->Body – zawiera tresc przesyÅ‚anej wiadomosci
• TIdMessage->CharSet – okresla sposób kodowania znaków w wiadomosci
• TIdMessage->ContentType – okresla typ wiadomosci
• TIdMessage->Date – zawiera informacje o dacie wysÅ‚ania wiadomosci
• TIdMessage->From – zawiera adres nadawcy wiadomosci
• TIdMessage->Recipients – zawiera adres odbiorcy wiadomosci

TIdPOP3:

• TIdPOP3->Host - okresla adres serwera
• TIdPOP3->Password - okresla hasÅ‚o
• TIdPOP3->Port - okresla port, na którym program bedzie Å‚aczyÅ‚ sie z serwerem
• TIdPOP3->Username – okresla login użytkownika.
• bool TIdPOP3->Connected() - okresla czy nawiazano poÅ‚aczenie
• void TIdPOP3->Connect() - próbuje nawiazac poÅ‚aczenie z serwerem
• int TIdPOP3->CheckMessages() - zwraca liczbe wiadomosci w skrzynce
• void TIdPOP3->Disconnect() - konczy poÅ‚aczenie z serwerem.
• bool TIdPOP3->Retrieve(const int MsgNum, TIdMessage AMsg)– pobiera wiadomosc o wskazanym indeksie i umieszcza w zmiennej AMsg

Program sprawdza, pobiera jedna wiadomość oraz wszystkie załączniki do tej wiadomości.
Należy zwrócić uwagę na problem z logowaniem się do serwera Gmail. Ponieważ ten serwer posiada szyfrowanie SSL ale ten problem został omówiony tutaj:

Kod: Zaznacz cały

void __fastcall TForm1::Button1Click(TObject *Sender) {
     IdPOP31->Host = pop3.wp.pl;
     IdPOP31->Port = 110;  //110 jest bez szyfrowania SSL
     IdPOP31->Username = uzytkownik;
     IdPOP31->Password = password;
     try {
          IdPOP31->Connect(-1);  }
     catch(Exception &e) {   }
     if(IdPOP31->Connected()) {
           int ilosc_maili = IdPOP31->CheckMessages();
           if(ilosc_maili > 0) {
                 IdPOP31.Retrieve(1, IdMessage1);
                 for(int i=0; i < IdMessage1->MessageParts->Count; i++) {
                      if(IdMessage1->MessageParts->Items[i]->DisplayName=="TIdAttachment") {
                              TIdAttachment *zal = (TIdAttachment*)IdWiadomosci->MessageParts->Items[i];
                              zal->SaveToFile("C:\\Zalaczniki\\zalacznik.txt");
                      }
                 }
           }
           IdPOP31->Disconnect();
     }

[mentalmesh]

Dzieki wielkie

[mentalmesh]

Jesli zamiast TIdAttachment wstawie TIdText to chyba powinien mi zwrocic tresc, ale kod:

if(IdMessage1->MessageParts->Items[i]->DisplayName=="TIdText")
{

zm_tresc= IdMessage1->MessageParts->Items[i]->ToString();
}

tego nie realizuje... zm_tresc (AnsiString) ma zawartosc "TIdText" a nie rzeczywista tresc wiadomosci.

Z gory dziekuje za odpowiedz.

[Miroo_007]

Od momentu wykonania instrukcji:

Kod: Zaznacz cały

IdPOP31->Retrieve(1, IdMessage1);

wiadomość (oraz jej treść) jest przechowywana w obiekcie IdMessage1. Aby otrzymać treść wiadomości należy wykonać taki kod:

Kod: Zaznacz cały

zm_tresc = IdMessage1->Body;

P.S. Zadawaj pytania tylko na forum.

[mentalmesh]

staram sie wstawic to na LV wiec wykonuje kod:

Kod: Zaznacz cały

TListItem *Temp = ListView1->Items->Add();
  Temp->Caption = IdMessage1->From->Text;
  Temp->SubItems->Add(IdMessage1->Subject);
  Temp->SubItems->Add(IdMessage1->Date);
  Temp->SubItems->Add(IdMessage1->Body->Text);
  Temp->SubItems->Add(IdMessage1->ContentType);
  Temp->SubItems->Add(i);

Po uzyciu IdMessage1->Body->Text w przypadku wiadomosci wysylanych z Outlook Express wstawia mi w tresci:
This is a multi-part message in MIME format. (i dwa kwadraciki - zawsze wyswietla na koncu dwa kwadraciki)
jesli wysylam wiadomosci z programu na IdSMTP: wywietla tresc + dwa kwadraciki.
ContentType odpowiednio dla obu wiadomosci to 1. multipart/alternative i 2. text/plain

Jesli uzyje IdMessage1->Body->ToString() w tresci wyswietla: "TStringList", nie zaleznie od zrodla wiadomosci.

Co zrobic zeby pobieral tresc nie zaleznie od jej typu i nie wywalal kwadracikow na koncu?

[Miroo_007]

Zapewne chodzi o kodowanie.

• TIdMessage->CharSet – okresla sposób kodowania znaków w wiadomosci

Musisz się po prostu pobawić z różnym ustawianiem kodowania.

P.S. Używaj znaczników do określania kodu (Code) oraz innych. To czyni tekst bardziej czytelnym.

[mentalmesh]

Witam,
Nadal nie moge wyswietlic tresci typu MIME. Sprawdzalem CharSet i wymusilem zmiane typu w ContentType ale nadal albo ignoruje cala tresc albo wyswietla wspomniany wczesniej komunikat: This is a multi-part message in MIME format.

IdMessage1->Body->Text dziala tylko i wylacznie w przypadku zwyklego tekstu, do tej pory nie udalo mi sie dokonac skutecznej konwersji z typu multipart/alternative.
Ma ktos jeszcze jakis pomysl jak to zrobic?
Z gory dzieki za poswiecony czas.

[Cyfrowy Baron]

Funkcja ToString() konwertuje nazwę klasy obiektu na wartość typu String. Nie ma tutaj zastosowania, więc zapomnij o niej.

Tutaj masz wszystko na ten temat:

[mentalmesh]

dzieki wielkie, zapoznam sie z zawartoscia pliku wstepnie go przejrzalem i juz chyba wiem o co chodzilo tylko musze to sprawdzic empirycznie.
Dzieki raz jeszcze za pomoc.

[mentalmesh]

wiem juz o jaka linijke chodzi, ale builder (wersja 2009) sie pluje na niej (to linijka z pdf'a ktory byl podlinkowany):

Kod: Zaznacz cały

    TIdText  *IdText = (TIdText*)IdMessage1->MessageParts->Items[i];


a konkretnie wywala bledy:
E2451 Undefined symbol 'TIdText'
E2451 Undefined symbol 'IdText'
E2188 Expression syntax

i nie wiem czemu? powinienem dodac jakis plik naglowkowy?
Z gory dzieki za odpowiedz

[Witold]

powinienem dodac jakis plik naglowkowy?

Wg helpa "IdText" w BCB pewnie #include <IdText.hpp>

[mentalmesh]

dzieki, ja sprawdzilem IdText.h - wszystkie pliki wstawiane domyslnie maja h a nie hpp ale jednak wymaga IdText.hpp.
Teraz odzyskuje tresc - nawet 2 razy na e-mail
Dziekuje wszystkim za pomoc.
Pozdrawiam