iwunit1.pas

来自「Delphi 应用举例」· PAS 代码 · 共 53 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWCompMemo, Classes, Controls,
  IWControl, IWCompButton,IWServer, IWClientSideDatasetBase,
  IWClientSideDataset, IWCompDynamicChart, IWDynGrid;

type
  TformMain = class(TIWAppForm)
    IWButton1: TIWButton;
    IWMemo1: TIWMemo;
    IWDynamicChart1: TIWDynamicChart;
    IWClientSideDataset1: TIWClientSideDataset;
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
var s:Tstream;
begin
  //s:=GIWServer.ResourceAsStream('IW_JS_IWChart') ;
  //s:=GIWServer.ResourceAsStream('IW_JS_IWCommon') ;
  //s:=GIWServer.ResourceAsStream('IW_JS_IWCL') ;
  //s:=GIWServer.ResourceAsStream('IW_JS_IWCSData') ;
  s:=GIWServer.ResourceAsStream('IW_JS_IWExplorer') ;
  IWMemo1.Lines.LoadFromStream(s);

  {
  <script language=Javascript src="/js/IWChart.js_5.0.43"></script>

  <script language=Javascript src="/js/IWCommon.js_5.0.43"></script>

  <script language=Javascript src="/js/IWCL.js_5.0.43"></script>

  <script language=Javascript src="/js/IWCSData.js_5.0.43"></script>

  <script language=Javascript src="/js/IWExplorer.js_5.0.43"></script>
  }
end;



end.