iwunit1.~pas

来自「IntraWeb.Develop.Sample」· ~PAS 代码 · 共 32 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Classes, Controls, IWControl,
  IWCompLabel;

type
  TformMain = class(TIWAppForm)
    IWLabel1: TIWLabel;
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController, IWInit, HTTPApp;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
  iwLabel1.Caption:='URL='+RWebApplication.Request.URL+'<br>'+
                    'PathInfo='+RWebApplication.Request.PathInfo+'<br>'+
                    'From='+RWebApplication.Request.From+'<br>'+
                    'Host='+RWebApplication.Request.Host;
end;

end.