VPF::Как посмотреть письмо *.EML в TWebBrowser?

User32

Дата 5.3.2009, 11:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Неполучается просмотреть письмо *.EML как есть в TWebBrowser из TStringStream.
Причём если его локально сохранить и загрузить так:

Код


procedure TMainForm.Button5Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then Exit else
  WebBrowser1.Navigate(OpenDialog1.FileName);
end;

То всё отображается.
А если так, то ерунда получается

Код


function TMainForm.LoadFromStream(const AStream: TStream): HRESULT;
begin
  if not Assigned(WebBrowser1.Document) then WebBrowser1.Navigate('about:blank');
// AStream.Seek(0, soFromBeginning); 
 AStream.Seek(0, 0);
 Result := (WebBrowser1.Document as  IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;

procedure TMainForm.ListView1Click(Sender: TObject); // Read mail body!
var
//  Buffer: pointer;
  X: longint;
  sStream: TStringStream;
  mMsg: WideString;
begin
  if ListView1.Selected = nil then Exit else
  begin
    Screen.Cursor := crHourGlass;
    RichEdit1.Clear;
    sStream := TStringStream.Create('');
    X := Poe5_MessageInfo(MessageList.Items[ListView1.Selected.Index])^.Position;
    Read_OE_Message2(DBX_File, X, sStream);
    Read_OE_Message( DBX_File, X, mMsg); //debug 2!!!
    sStream.Position := 0;
    RichEdit1.Lines.BeginUpdate;
    RichEdit1.Lines.LoadFromStream(sStream);

    LoadFromStream(sStream); //ВОТ ТУТ ГРАБЛИ!!!

    RichEdit1.Lines.EndUpdate;
    sStream.Free;
    Button1.Enabled := (Trim(RichEdit1.Text) <> '');
    Screen.Cursor := crDefault;
  end;
end;

Snowy

Дата 5.3.2009, 13:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код

RichEdit1.Lines.LoadFromStream(sStream);
    sStream.Position := 0;
    LoadFromStream(sStream);

User32

Дата 5.3.2009, 13:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Snowy @ 5.3.2009, 13:41)

Код

RichEdit1.Lines.LoadFromStream(sStream);
    sStream.Position := 0;
    LoadFromStream(sStream);

Нет, позиция тут не причём.
загвоздка где в другом... а где ни как не соображу.

И что это за класс такой Internet Explorer_Server
см. вложение, там два варианта того что оображается в WebBrowser1 и WebBrowser2

Это сообщение отредактировал(а) User32 - 5.3.2009, 14:30

Присоединённый файл ( Кол-во скачиваний: 10 )

35265346437.GIF 27,74 Kb

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