invert napisał(a):czy mam to zapisywać poprzez ListView czy tez przez Memo np z użyciem SaveDialog.
invert napisał(a):Jak zrobić aby wiadomosc w html wyswietlała sie w MEMO?
wargo napisał(a):Savedialog wyświetla tylko okienko i zwraca odpowiednie parametry np. ścieżka. Możesz połączyć te dwie możliwości.
wargo napisał(a):Nie ma takiej możliwości. W memo możesz mieć tylko czysty tekst.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
}
Darek_C++ napisał(a):Co do formatu EML, to jest to format pliku Outlook'a, zawierający jakieś tam formatowanie. Żeby zapisać cokolwiek w tym formacie, trzeba najpierw rozpracować, czyli zapoznać się ze sposobem formatowania tegoż pliku i stworzyć algorytm zapisujący pliki w takimże formatowaniem. Nie znam tego modelu formatowanie i nie znam żadnej biblioteki, która by udostępniała takież formatowanie.
Możesz równie dobrze stworzyć własny format pliku zawierający takie formatowanie jakie sam wymyślisz i zapisywać wiadomości w tym formacie.
Nie jest tak, ze wszystkie programy pocztowe zapisują wiadomości z wykorzystaniem formatu Outlook'a, np. Thunderbird wykorzystuje własne, zupełnie inne formatowanie pliku.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
}
X-Account-Key: account2 |
Udało mi się zapisać ListView do pliku txt, ale jak juz go przekształcę na eml to w programie pocztowy nic nie jest wyświetlane. Teraz jak pobrać ten nagłówek
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TStringList *tmp = new TStringList;
__int16 x = ListView1->ItemIndex;
if(x < 0) return;
tmp->Add(ListView1->Items->Item[x]->Caption);
// dalsza częśc zależy od liczby kolumn w ListView1
tmp->Add(ListView1->Items->Item[x]->SubItems->Strings[0]);
tmp->Add(ListView1->Items->Item[x]->SubItems->Strings[1]);
// wstawienie pustej lini
tmp->Add("");
// dodawanie zawartości obiektu Memo1
tmp->Add(Memo1->Lines->Text);
if(SaveDialog1->Execute())
{
tmp->SaveToFile(SaveDialog1->FileName);
}
delete tmp;
}
//---------------------------------------------------------------------------
CppWebBrowser->Navigate(WideString("about:blank")); // wypełnienie kontrolki pustą stroną.
TMemoryStream *stm = new TMemoryStream();
Memo1->Lines->SaveToStream(stm);
IPersistStreamInit *psi;
stm->Seek(0, 0);
TStreamAdapter *sa = new TStreamAdapter(stm, soReference);
if(SUCCEEDED(CppWebBrowser->Document->QueryInterface(IID_IPersistStreamInit, (void **)&psi)))
psi->Load(*sa);
delete stm;
Użytkownicy przeglądający ten dział: Brak zalogowanych użytkowników i 0 gości