VPF::В чем смотреть текст письма - Форум программистов

ZBugz

Дата 11.4.2012, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 6
Всего: 6

Всем привет.
Есть почтовик, получаю письма, смотрю в TRichEdit, на даже там то грузяться картинки, то машатбирование не то, то еще что то...
Подскажите, в чем лучше просматривать письма ?

RelictOs

Дата 11.4.2012, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: 1

TWebBrowser наверное

ZBugz

Дата 12.4.2012, 06:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 6
Всего: 6

Цитата(RelictOs @ 11.4.2012, 20:29)

TWebBrowser наверное

Да он тут как то бесполезен.
А переводить ради него тело письма в html, это как наверное неправильно, потому что то тут с форматированием проблемы могут быть наверное...
Хотя я может и не прав.

В любом случае мне бы пример бы тогда smile

RelictOs

Дата 12.4.2012, 09:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: 1

Код


uses
 ...SHDocVw, ActiveX;

......

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;

  if Assigned(WebBrowser.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        sl.Text := HTMLCode;
        sl.SaveToStream(ms);
        ms.Seek(0, 0);
        (WebBrowser.Document as
          IPersistStreamInit).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;

......

procedure TForm1.Button1Click(Sender: TObject);
var
 intIndex : integer;
begin
idPOP31.Host := 'pop.mail.ru';
idPOP31.Username := 'log';
idPOP31.Password := 'pass';
idPOP31.Connect(-1);   //Подключение

idPop31.Retrieve(232,Msg); //Загрузка письма по номеру

for intIndex := 0 to Pred(Msg.MessageParts.Count) do //Загрузка письма в браузер
begin
  if not (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
   if Msg.MessageParts.Items[intIndex] is TIdText then
    WB_LoadHTML(Webbrowser1,TIdText(Msg.MessageParts.Items[intIndex]).Body.Text);
end;
end;

Это сообщение отредактировал(а) RelictOs - 12.4.2012, 09:00

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »