Форум по Delphi программированию - Показать сообщение отдельно

Страдалецъ · #3 22.06.2014, 00:09

А вот так не устроит?

Код:

unit Unit27;

interface

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

type
  TForm27 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  HtmTemplate: String = '<html><body style="margin:0">%s</body></html>';

var
  Form27: TForm27;

implementation

uses ActiveX, IOUtils, Types;

{$R *.dfm}

procedure TForm27.Button1Click(Sender: TObject);
Var
  Htm: TStringStream;
  HtmBody: TStringList;
  Dir: TDirectory;
  Files: TStringDynArray;
  i: Integer;
begin
 WebBrowser1.Navigate('about:blank');
 Htm := TStringStream.Create;
 HtmBody := TStringList.Create;
 Files := Dir.GetFiles('D:\Install\GlyFx\BigPicture\', '*.png');
 for i := 0 to Length(Files) - 1
 do begin
    if ExtractFileExt(Files[i]) = '.png'
    then HtmBody.Add('<img src="' + Files[i] + '">');
    if i = 30 then Break;
    end;
 Htm.WriteString(Format(HtmTemplate, [HtmBody.Text]));
 Htm.Position := 0;
 (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(Htm));
 HtmBody.Free;
 Htm.Free;
end;

end.