Export as HTML5 JScript

[Menant.D]

Hello,

I have a problem when I want to export my TeeTree as HTML 5 JScript :

Code: Select all

[423A3B38]{Tee924.bpl  } Vcltee.Chart.TChartWalls.GetVisible + $0
[500978FD]{rtl240.bpl  } System.SysUtils.FloatToDecimal (Line 17146, "System.SysUtils.pas" + 58) + $0
[5009789B]{rtl240.bpl  } System.SysUtils.FloatToDecimal (Line 17106, "System.SysUtils.pas" + 18) + $0
[50096C2B]{rtl240.bpl  } System.SysUtils.FloatToText (Line 14853, "System.SysUtils.pas" + 49) + $0
[50096CD2]{rtl240.bpl  } System.SysUtils.FloatToText (Line 14928, "System.SysUtils.pas" + 124) + $0
[50096C89]{rtl240.bpl  } System.SysUtils.FloatToText (Line 14881, "System.SysUtils.pas" + 77) + $0
[50064271]{rtl240.bpl  } System.MoveRecord (Line 32432, "System.pas" + 114) + $F
[50064473]{rtl240.bpl  } System.MoveArray (Line 32810, "System.pas" + 42) + $8
[5005A1A8]{rtl240.bpl  } System.@FreeMem (Line 4662, "System.pas" + 20) + $0
[50065316]{rtl240.bpl  } System.DynArraySetLength (Line 34217, "System.pas" + 104) + $13
[500653B9]{rtl240.bpl  } System.@DynArraySetLength (Line 34288, "System.pas" + 3) + $0
[50158E82]{rtl240.bpl  } System.Classes.TStringList.SetCapacity (Line 7186, "System.Classes.pas" + 5) + $F
[50158D11]{rtl240.bpl  } System.Classes.TStringList.InsertItem (Line 7130, "System.Classes.pas" + 11) + $4
[50158853]{rtl240.bpl  } System.Classes.TStringList.AddObject (Line 6932, "System.Classes.pas" + 9) + $B
[501587F9]{rtl240.bpl  } System.Classes.TStringList.Add (Line 6919, "System.Classes.pas" + 1) + $4
[43247B14]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.AddHeader + $594
[43247B27]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.AddHeader + $5A7
[5005A1A8]{rtl240.bpl  } System.@FreeMem (Line 4662, "System.pas" + 20) + $0
[50061A39]{rtl240.bpl  } System.@UStrArrayClr (Line 24361, "System.pas" + 16) + $0
[432487E2]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.AddHeader + $1262
[5005A1A8]{rtl240.bpl  } System.@FreeMem (Line 4662, "System.pas" + 20) + $0
[50061A39]{rtl240.bpl  } System.@UStrArrayClr (Line 24361, "System.pas" + 16) + $0
[4324DB79]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.AddHeader + $65F9
[5005A18C]{rtl240.bpl  } System.@GetMem (Line 4614, "System.pas" + 20) + $0
[4324CBE7]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.AddHeader + $5667
[4324EBED]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.AddHeader + $766D
[4324F32B]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.AddStrings + $4F
[4324FA13]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.JScript + $33
[4324FA9F]{TeeImage924.bpl} Vcltee.Teejavascript.TJavascriptExportFormat.SaveToStream + $7
[1C30AB50]{TeeUI924.bpl} Vcltee.Teeexport.TTeeExportFormat.SaveToFile + $64
[1C30AC0E]{TeeUI924.bpl} Vcltee.Teeexport.TTeeExportFormat.SaveToFile + $2
[1C30952F]{TeeUI924.bpl} Vcltee.Teeexport.TTeeExportFormBase.SavePictureToFile + $53
[1C30A8CA]{TeeUI924.bpl} Vcltee.Teeexport.TTeeExportFormBase.CreateTempFile + $BA
[1C30B4B7]{TeeUI924.bpl} Vcltee.Teeexport.TTeeExportFormBase.BPreviewClick + $1B
[50AA4097]{vcl240.bpl  } Vcl.Controls.TControl.Click (Line 7429, "Vcl.Controls.pas" + 9) + $8
[50AC9A36]{vcl240.bpl  } Vcl.StdCtrls.TCustomButton.Click (Line 5434, "Vcl.StdCtrls.pas" + 3) + $2
[50ACA544]{vcl240.bpl  } Vcl.StdCtrls.TCustomButton.CNCommand (Line 5895, "Vcl.StdCtrls.pas" + 1) + $D
[50AA3B2A]{vcl240.bpl  } Vcl.Controls.TControl.WndProc (Line 7313, "Vcl.Controls.pas" + 91) + $6
[50AA8675]{vcl240.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10143, "Vcl.Controls.pas" + 158) + $6
[50AC96E0]{vcl240.bpl  } Vcl.StdCtrls.TButtonControl.WndProc (Line 5271, "Vcl.StdCtrls.pas" + 13) + $4
[50AA3764]{vcl240.bpl  } Vcl.Controls.TControl.Perform (Line 7091, "Vcl.Controls.pas" + 10) + $8
[50AA87DB]{vcl240.bpl  } Vcl.Controls.DoControlMsg (Line 10212, "Vcl.Controls.pas" + 12) + $11
[50AA9267]{vcl240.bpl  } Vcl.Controls.TWinControl.WMCommand (Line 10487, "Vcl.Controls.pas" + 1) + $5
[50AA3B2A]{vcl240.bpl  } Vcl.Controls.TControl.WndProc (Line 7313, "Vcl.Controls.pas" + 91) + $6
[50AA8675]{vcl240.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10143, "Vcl.Controls.pas" + 158) + $6
[50AA7C94]{vcl240.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9850, "Vcl.Controls.pas" + 3) + $6
[50170C64]{rtl240.bpl  } System.Classes.StdWndProc (Line 17178, "System.Classes.pas" + 8) + $0
[50AA8786]{vcl240.bpl  } Vcl.Controls.TWinControl.DefaultHandler (Line 10184, "Vcl.Controls.pas" + 30) + $19
[50AA44EC]{vcl240.bpl  } Vcl.Controls.TControl.WMLButtonUp (Line 7562, "Vcl.Controls.pas" + 1) + $6
[50AA3B2A]{vcl240.bpl  } Vcl.Controls.TControl.WndProc (Line 7313, "Vcl.Controls.pas" + 91) + $6
[50AA7E83]{vcl240.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9906, "Vcl.Controls.pas" + 1) + $9
[50AA8675]{vcl240.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10143, "Vcl.Controls.pas" + 158) + $6
[50AC96E0]{vcl240.bpl  } Vcl.StdCtrls.TButtonControl.WndProc (Line 5271, "Vcl.StdCtrls.pas" + 13) + $4
[50AA7C94]{vcl240.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 9850, "Vcl.Controls.pas" + 3) + $6
[50170C64]{rtl240.bpl  } System.Classes.StdWndProc (Line 17178, "System.Classes.pas" + 8) + $0
[50BEFFDD]{vcl240.bpl  } Vcl.Forms.TApplication.CancelHint (Line 11363, "Vcl.Forms.pas" + 6) + $D
[50BEEC6F]{vcl240.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10534, "Vcl.Forms.pas" + 23) + $1
[50BEECB2]{vcl240.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10564, "Vcl.Forms.pas" + 1) + $4
[50BEA1E2]{vcl240.bpl  } Vcl.Forms.TCustomForm.ShowModal (Line 7315, "Vcl.Forms.pas" + 33) + $5
[4397C45F]{TeeTree2D24Tee9.bpl} Treeed.ShowTreeExport + $6B
[1CFE2D9B]{DclTree2D24Tee9.bpl} Treereg.TTreeCompEditor.ExecuteVerb + $B3
[525BEC3A]{vcldesigner240.bpl} VCLSurface.TVclDesignSurface.ComponentVerb (Line 2847, "VCLSurface.pas" + 3) + $B
[50BD28FE]{vcl240.bpl  } Vcl.Menus.TMenuItem.Click (Line 2541, "Vcl.Menus.pas" + 19) + $8
[50BD403C]{vcl240.bpl  } Vcl.Menus.TMenu.DispatchCommand (Line 3482, "Vcl.Menus.pas" + 5) + $4
[50BD52AE]{vcl240.bpl  } Vcl.Menus.TPopupList.WndProc (Line 4643, "Vcl.Menus.pas" + 4) + $E
[50BD51FD]{vcl240.bpl  } Vcl.Menus.TPopupList.MainWndProc (Line 4618, "Vcl.Menus.pas" + 2) + $5
[50170C64]{rtl240.bpl  } System.Classes.StdWndProc (Line 17178, "System.Classes.pas" + 8) + $0
[50BEFFDD]{vcl240.bpl  } Vcl.Forms.TApplication.CancelHint (Line 11363, "Vcl.Forms.pas" + 6) + $D
[50BEEC6F]{vcl240.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 10534, "Vcl.Forms.pas" + 23) + $1
[50BEECB2]{vcl240.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 10564, "Vcl.Forms.pas" + 1) + $4
[50BEEFE5]{vcl240.bpl  } Vcl.Forms.TApplication.Run (Line 10702, "Vcl.Forms.pas" + 26) + $3

Is it possible to fix it ?

Thanks for your help.

[Yeray]

Hello,

Could you please arrange a simple example project we can run as-is to reproduce the problem here?
Thanks in advance.

[Menant.D]

Download the exe http://miv-soft.com/Project1.exe (click 2 times) and below the source code.

Code: Select all

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, Vcl.StdCtrls,
  VCLTee.TeEngine, VCLTee.Chart, TeeTree, VCLTee.TeeJavaScript, Vcl.ExtCtrls,
  VCLTee.TeeProcs;

type
  TForm1 = class(TForm)
    Tree1: TTree;
    Button4: TButton;
    TreeNodeShape1: TTreeNodeShape;
    procedure Button4Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
  TeeSaveToJavascriptFile(Tree1, 'temp.html');
end;

end.

[Yeray]

Hello,

I'm afraid TeeTree isn't implemented in HTML5/JavaScript so this export method doesn't work for it.
I've added it to the public tracker to be implemented in the future:
http://bugs.teechart.net/show_bug.cgi?id=1557

[Yeray]

Hello,

I've added it to the public tracker to be implemented in the future:
http://bugs.teechart.net/show_bug.cgi?id=1557

This is just to let you know we've implemented it so the next maintenance release will allow to export simple TTrees to javascript.