Передача данных из Delphi в HTML

const
  SrcPath = 'D:\Work\Cyberforum\10\mapz.html';
...
uses StrUtils;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  BPos,EPos: Integer;
begin
  SL := TStringList.Create;
  SL.LoadFromFile(SrcPath);
  BPos := Pos('radius:', SL.Text) + 7;
  EPos := PosEx('}', SL.Text, BPos);
  SL.Text := Copy(SL.Text, 1, BPos) + Edit1.Text + Copy(SL.Text, EPos, Length(SL.Text));
  SL.SaveToFile(SrcPath);
  WebBrowser1.Navigate('file:\\'+SrcPath);
  SL.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  SL: TStringList;
  BPos,EPos: Integer;
begin
  SL := TStringList.Create;
  SL.LoadFromFile(SrcPath);
  BPos := Pos('radius:', SL.Text) + 7;
  EPos := PosEx('}', SL.Text, BPos);
  Edit1.Text := Copy(SL.Text, BPos, EPos - BPos);
  SL.Free;
end;

L:= TStringList.Create();
L.Text :=   stringReplace(html, '$radius', IntToStr(Radius), [rfReplaceAll, rfIgnoreCase]);
WebBrowser1.Navigate(L.Text);
L.Free;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls, DB, ADODB, Grids, DBGrids, ComObj,
  TeeProcs, TeEngine, Chart, Series, OleCtrls, SHDocVw, StrUtils;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    TabSheet2: TTabSheet;
    Edit9: TEdit;
    Button2: TButton;
    Label9: TLabel;
    Button3: TButton;
    TabSheet3: TTabSheet;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button4: TButton;
    Button5: TButton;
    TabSheet4: TTabSheet;
    Chart1: TChart;
    Button6: TButton;
    Button7: TButton;
    Series1: TBarSeries;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Edit5: TEdit;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    WebBrowser1: TWebBrowser;
    Button12: TButton;
    Button13: TButton;
 
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
 
  private
    FIsStartPage: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
  SrcPath = 'D:\TVS_proga\map.html';
 
var
  Form1: TForm1;
  XlApp, WBook, WSheet: Variant;
  q, b, M, t, R, C1, C2, L, R1, E, P0: real;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  b := StrToFloat(edit5.Text);
  M := StrToFloat(edit3.Text);
  C1 := StrToFloat(edit1.Text);
  C2 := StrToFloat(edit2.Text);
  R := StrToFloat(edit4.Text);
  P0 := StrToFloat(edit6.Text);
  q := 44 * b;
  if C1 <= C2 then
  begin
    E := q * M;
  end
  else
  begin
    E := q * M * C2 / C1;
  end;
  R1 := R / exp((1 / 3) * ln((E / P0)));
  L := 100 * R1 * exp((1 / 3) * ln((E)));
  edit7.Text := FloatToStr(R1);
  Edit8.Text := FloatToStr(L);
  edit5.Text := FloatToStr(b);
  Edit9.Text := FloatToStrF((L) / 2, ffFixed, 9, 0);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    if (Trim(Edit1.Text) = '') or (Trim(Edit2.Text) = '') or (Trim(Edit3.Text) = '') or (Trim(Edit4.Text) = '') or (Trim(Edit5.Text) = '') or (Trim(Edit6.Text) = '') or (Trim(Edit7.Text) = '') or (Trim(Edit8.Text) = '') then exit;
    ADOQuery1.Insert;
    ADOQuery1.FieldByName('Концентрация горючего вещества в облаке ТВС').AsString := Edit1.Text;
    ADOQuery1.FieldByName('Стехиометрическая концентрация вещества в смеси с воздухом').AsString := Edit2.Text;
    ADOQuery1.FieldByName('Масса горючего вещества, содержащегося в облаке ТВС').AsString := Edit3.Text;
    ADOQuery1.FieldByName('Расстояние от центра облака ТВС').AsString := Edit4.Text;
    ADOQuery1.FieldByName('Корректировочный параметр B').AsString := Edit5.Text;
    ADOQuery1.FieldByName('Атмосферное давление').AsString := Edit6.Text;
    ADOQuery1.FieldByName('Безразмерное растояние').AsString := Edit7.Text;
    ADOQuery1.FieldByName('Параметрическое растояние').AsString := Edit8.Text;
    ADOQuery1.FieldByName('Элемент').AsString := ComboBox1.Text;
  except
    on e: Exception do
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  SL: TStringList;
  BPos,EPos: Integer;
begin
  SL := TStringList.Create;
  SL.LoadFromFile(SrcPath);
  BPos := Pos('radius:', SL.Text) + 7;
  EPos := PosEx('}', SL.Text, BPos);
  Edit9.Text := Copy(SL.Text, BPos, EPos - BPos);
  SL.Free;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT *Таблица');
  ADOQuery1.Active := True;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.DisableControls;
  try
    DBGrid1.DataSource.DataSet.First;
    while not DBGrid1.DataSource.DataSet.Eof
      do DBGrid1.DataSource.DataSet.Delete;
  finally
    DBGrid1.DataSource.DataSet.EnableControls;
  end;
  ShowMessage('Записи удалены');
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  XlApp := CreateOleObject('Excel.Application');
  XlApp.Visible := True;
  XlApp.Workbooks.Add;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
  Chart1.Series[0].Add(M, 'Масса горючего вещества');
  Chart1.Series[0].Add(L, 'Параметрическое растояние');
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
  Chart1.SeriesList[0].Clear;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i: integer;
begin
  i := combobox1.ItemIndex;
  case i of
    0: b := 1.05;
    1: b := 1;
    2: b := 1.04;
    3: b := 1.08;
    4: b := 1.07;
    5: b := 1.1;
    6: b := 1.03;
    7: b := 2.73;
    8: b := 1.05;
    9: b := 0.62;
    10: b := 1;
    11: b := 1;
    12: b := 1.04;
    13: b := 1;
    14: b := 0.66;
    15: b := 0.42;
    16: b := 0.38;
    17: b := 0.7;
    18: b := 0.34;
    19: b := 0.43;
    20: b := 1;
    21: b := 0.09;
    22: b := 1;
    23: b := 0.8;
    24: b := 0.42;
    25: b := 1.14;
    26: b := 0.53;
    27: b := 0.12;
    28: b := 0.23;
  end;
  edit5.Text := FloatToStr(b);
  if ComboBox1.ItemIndex = 0 then ComboBox1.Text := 'Пропан';
  if ComboBox1.ItemIndex = 1 then ComboBox1.Text := 'Гексан';
  if ComboBox1.ItemIndex = 2 then ComboBox1.Text := 'Бутан';
  if ComboBox1.ItemIndex = 3 then ComboBox1.Text := 'Этан';
  if ComboBox1.ItemIndex = 4 then ComboBox1.Text := 'Этилен';
  if ComboBox1.ItemIndex = 5 then ComboBox1.Text := 'Ацетилен';
  if ComboBox1.ItemIndex = 6 then ComboBox1.Text := 'Винилацетилен';
  if ComboBox1.ItemIndex = 7 then ComboBox1.Text := 'Водород';
  if ComboBox1.ItemIndex = 8 then ComboBox1.Text := 'Метилацетилен';
  if ComboBox1.ItemIndex = 9 then ComboBox1.Text := 'Окись этилена';
  if ComboBox1.ItemIndex = 10 then ComboBox1.Text := 'Бутилен';
  if ComboBox1.ItemIndex = 11 then ComboBox1.Text := 'Бутадиен';
  if ComboBox1.ItemIndex = 12 then ComboBox1.Text := 'Пропилен';
  if ComboBox1.ItemIndex = 13 then ComboBox1.Text := 'ШФЛУ';
  if ComboBox1.ItemIndex = 14 then ComboBox1.Text := 'Диметиловый эфир';
  if ComboBox1.ItemIndex = 15 then ComboBox1.Text := 'Винилхлорид';
  if ComboBox1.ItemIndex = 16 then ComboBox1.Text := 'Генераторный газ';
  if ComboBox1.ItemIndex = 17 then ComboBox1.Text := 'Метиламин';
  if ComboBox1.ItemIndex = 18 then ComboBox1.Text := 'Сероводород';
  if ComboBox1.ItemIndex = 19 then ComboBox1.Text := 'Этилхлорид';
  if ComboBox1.ItemIndex = 20 then ComboBox1.Text := 'Природный сжиженный газ';
  if ComboBox1.ItemIndex = 21 then ComboBox1.Text := 'Печной газ';
  if ComboBox1.ItemIndex = 22 then ComboBox1.Text := 'Циклопропан';
  if ComboBox1.ItemIndex = 23 then ComboBox1.Text := 'Этиламин';
  if ComboBox1.ItemIndex = 24 then ComboBox1.Text := 'Аммиак';
  if ComboBox1.ItemIndex = 25 then ComboBox1.Text := 'Метан';
  if ComboBox1.ItemIndex = 26 then ComboBox1.Text := 'Метилмеркаптан';
  if ComboBox1.ItemIndex = 27 then ComboBox1.Text := 'Метилхлорид';
  if ComboBox1.ItemIndex = 28 then ComboBox1.Text := 'Окись углерода';
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
  Edit6.Text := '';
  Edit7.Text := '';
  Edit8.Text := '';
  ComboBox1.Text := '';
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
  XlApp := CreateOleObject('Excel.Application');
  XlApp.Visible := True;
  WBook := XlApp.Workbooks.Open('D:\\Книга2.xlsx');
end;
 
procedure TForm1.Button10Click(Sender: TObject);
var
  a, b: Integer;
begin
  a := 1;
  XlApp := CreateOleObject('Excel.Application');
  WBook := XlApp.Workbooks.Open('D:\\Книга2.xlsx');
  WSheet := XlApp.Workbooks[1].WorkSheets[1];
  with DBGrid1 do
  begin
    DataSource.DataSet.First;
    for b := 0 to Columns.Count - 1 do
      WSheet.Cells[1, b + 1].Value := DBGrid1.Columns[b].Title.Caption;
    while not DataSource.DataSet.Eof do
    begin
      for b := 0 to (Columns.Count - 1) do
      begin
        WSheet.Cells[a + 1, b + 1].Value := Columns[b].Field.AsString;
      end;
      DataSource.DataSet.Next;
      Inc(a);
    end;
    DataSource.DataSet.EnableControls;
    XlApp.Visible := true;
  end;
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
  Form1.Close;
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
  FIsStartPage := True;
  Webbrowser1.Navigate('file:\\' + SrcPath);
  FIsStartPage := False;
end;
 
procedure TForm1.Button13Click(Sender: TObject);
var
  SL: TStringList;
  BPos,EPos: Integer;
begin
  SL := TStringList.Create;
  SL.LoadFromFile(SrcPath);
  BPos := Pos('radius:', SL.Text) + 7;
  EPos := PosEx('}', SL.Text, BPos);
  SL.Text := Copy(SL.Text, 1, BPos) + Edit9.Text + Copy(SL.Text, EPos, Length(SL.Text));
  SL.SaveToFile(SrcPath);
  WebBrowser1.Navigate('file:\\'+SrcPath);
  SL.Free;
end;
 
end.