線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1761
推到 Plurk!
推到 Facebook!

請問Intraweb中的Form如何控制UserSession中的物件

答題得分者是:ttnnrsseb
frappe
中階會員


發表:88
回覆:114
積分:95
註冊:2008-10-21

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-10-19 14:46:00 IP:122.146.xxx.xxx 訂閱

我有uses UserSessionUnit, 但是程式碼按 . 跳不出SessionUnit裡面的物件,而且不能compile


[code delphi]
unit frmMAIN1;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
FMTBcd, DB, SqlExpr, Controls, IWVCLBaseControl, IWBaseControl,
IWBaseHTMLControl, IWControl, IWCompButton, IWGrids, IWDBGrids, IWWebGrid,
IWDBAdvWebGrid;

type
TfrmMAIN = class(TIWAppForm)
TIWDBAdvWebGrid1: TTIWDBAdvWebGrid;
IWDBGrid1: TIWDBGrid;
IWButton1: TIWButton;
procedure IWButton1Click(Sender: TObject);
public
end;

implementation
uses
UserSessionUnit;


{$R *.dfm}
procedure TfrmMAIN.IWButton1Click(Sender: TObject);
begin
IWUserSession.sql.Open;
IWUserSession.clnt.Open;
end;
initialization
TfrmMAIN.SetAsMainForm;
end.

[/code]
編輯記錄
frappe 重新編輯於 2010-10-19 00:47:44, 註解 無‧
ttnnrsseb
中階會員


發表:31
回覆:77
積分:51
註冊:2004-11-22

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-11-10 09:56:13 IP:220.229.xxx.xxx 訂閱
hi,
uses 的地方是UserSessionUnit,呼叫它的元件時是UserSession,看看是不是這個問題。

implementation
uses UserSession.CS_web.Host := '127.0.0.1';
UserSession.CS_web.Active := true;
end;

編輯記錄
ttnnrsseb 重新編輯於 2010-11-09 18:58:14, 註解 無‧
ttnnrsseb 重新編輯於 2010-11-09 18:58:57, 註解 無‧
frappe
中階會員


發表:88
回覆:114
積分:95
註冊:2008-10-21

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-01-24 11:08:25 IP:122.146.xxx.xxx 訂閱

我找到問題了, 原來ServerController也要一起引用才可以

UserSessionUnit, ServerController;
{$R *.dfm}

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
UserSession.CS_web.Port := 9901;
UserSession.CS_web.Active := true;
end;

系統時間:2024-12-04 1:51:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!