VPF::TWebBrowser - не отображает картинки

Teleport

Дата 1.5.2009, 16:28 (ссылка)

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

Загрузка ...

Опытный

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

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

Создаю отчет в виде html-странички. Вот таким образом гружу html-код в TWebBrowser:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, ActiveX, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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
 otchet: string;
begin
otchet:=
'<html xmlns="http://www.w3.org/1999/xhtml">' +
'<head> '+
'<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />'+
'<title>Документ без названия</title>' +
'</head>'+
'<body>'+
'<b><font color = "red">Поле1</b><br>'+
'<img src= "1.bmp">' +
'</body>'+
'</html>';

WB_LoadHTML(WebBrowser1, otchet);
end;

end.

Картинка не отображается. Лежит картинка рядом с exe. Как отобразить?

--------------------

Crw

Дата 1.5.2009, 19:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

Попробовать указать полный путь к файлу картинки.

Teleport

Дата 1.5.2009, 19:30 (ссылка)

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

Загрузка ...

Опытный

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

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

2 Crw - блин... smile

заменил строку на

Код


'<img src="' + ExtractFilePath(Application.ExeName) + '\1.bmp">' +

Спасибо.

Это сообщение отредактировал(а) Teleport - 1.5.2009, 19:32

--------------------

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