iwunit1.pas

Delphi 应用举例

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, IWDBGrids, Classes, Controls,
  IWControl, IWGrids, IWCompEdit, IWClientSideDatasetBase,
  IWClientSideDatasetDBLink, IWCompRectangle, IWHTMLControls,
  IWClientSideDataset, IWCompLabel, IWCSStdCtrls, IWCompText, IWCompButton,
  IWLayoutMgr, IWLayoutMgrHTML, IWCompMemo, IWDBStdCtrls, IWExtCtrls,
  IWCompListbox, IWCompCheckbox;

type
  TformMain = class(TIWAppForm)
    IWEdit1: TIWEdit;
    IWButton1: TIWButton;
    IWMemo1: TIWMemo;
    IWButton2: TIWButton;
    IWCheckBox1: TIWCheckBox;
    IWText1: TIWText;
    procedure IWButton1Click(Sender: TObject);
    procedure IWEdit1Submit(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController,DatamoduleUnit;

procedure TformMain.IWButton1Click(Sender: TObject);
var i:integer;
begin
   //self.IWLabel1.Text:=self.IWEdit1.Text;
   self.IWMemo1.Clear;
   with webapplication.Request.ContentFields do begin
        for i:=0 to count -1 do
            IWMemo1.Lines.Add(names[i]+':'+values[names[i]])
   end;
  // IWMemo1.Text:=IWDBMemo1.Lines.Text
end;

procedure TformMain.IWEdit1Submit(Sender: TObject);
begin
   webapplication.ShowMessage('');
end;

procedure TformMain.IWButton2Click(Sender: TObject);
begin
   IWMemo1.Lines.Text:=self.hiddenParams.Values['IW_Action'] ;
   IWMemo1.Lines.Add('---------------');
   IWMemo1.Lines.Add(self.Params.Text);
   IWMemo1.Lines.Add('+++++++++++++++');
   IWMemo1.Lines.Add(self.hiddenParams.Text);
   //IWMemo1.Lines.Text:= ;
end;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
    self.HiddenParams.Add('a=b');
    self.HiddenParams.Add('aaa=bbb');
end;

end.