Создание HTML страницы - Помощь студентам

Игорек89 · 17.12.2009, 14:10

Добрый день.
Есть проблемка <s>с телепортацией</s> с созданием HTML. На дельфи работать только начал.
Задача стоит такая:
При нажатие на кнопку в формочке создавать HTML страницу и заливать туда заранее написанный код.
Тоесть пользователь должен видеть уже готовую страничку у себя в браузера, когда нажмет кнопку.
ва! нет тега зачеркивания =(

Custer · 17.12.2009, 15:10

Лови...

Код:

unit Unit4;

interface

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

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

var
  Form4: TForm4;

implementation

uses ShellAPI;

{$R *.dfm}

resourcestring

  html_text =
    '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">' + #13#10 +
    '<html>' + #13#10 +
      '<head>' + #13#10 +
	      '<title>Моя страница</title>' + #13#10 +
      '</head>' + #13#10 +
      '<body>' + #13#10 +
      '</body>' + #13#10 +
    '</html>';

procedure TForm4.Button1Click(Sender: TObject);
var
  S: TStream;
begin
  S := TFileStream.Create('MyPage.html', fmCreate or fmShareDenyNone);
  try
    S.Write(html_text[1], Length(html_text));
  finally
    S.Free;
  end;
  ShellExecute(Handle, 'open', 'MyPage.html', nil, nil, SW_SHOW);
end;

end.

Игорек89 · 17.12.2009, 15:54

Спасибо большое!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нарезка страницы html :)	W0LF	Общие вопросы Delphi	3	17.12.2009 16:21
Разметка страницы Html	Новичок111111111	Помощь студентам	5	26.10.2009 18:18
Вывести ссылки из html страницы.	3dgraph	Общие вопросы .NET	5	30.07.2009 20:49
Парсинг HTML страницы	OkeaH	Работа с сетью в Delphi	1	19.01.2009 09:17
Html страницы	LineStown	Работа с сетью в Delphi	3	11.04.2007 13:16

17.12.2009, 14:10	#1
Игорек89 Новичок Джуниор Регистрация: 17.12.2009 Сообщений: 2	Создание HTML страницы Добрый день. Есть проблемка <s>с телепортацией</s> с созданием HTML. На дельфи работать только начал. Задача стоит такая: При нажатие на кнопку в формочке создавать HTML страницу и заливать туда заранее написанный код. Тоесть пользователь должен видеть уже готовую страничку у себя в браузера, когда нажмет кнопку. ва! нет тега зачеркивания =(

17.12.2009, 15:54	#3
Игорек89 Новичок Джуниор Регистрация: 17.12.2009 Сообщений: 2	Спасибо большое!