全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1434
推到 Plurk!
推到 Facebook!

在Service Application裏怎樣可以開啟一張form?

尚未結案
SuperLowB
初階會員


發表:96
回覆:77
積分:34
註冊:2003-06-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-16 17:03:54 IP:203.198.xxx.xxx 未訂閱
在Service Application裏怎樣可以當"啟動"後,可以開啟一張form?    我嘗過這樣寫,但都不能........
 
procedure TService1.ServiceCreate(Sender: TObject);
begin
  Application.CreateForm(TForm1,Form1);
  Form1.Show;
end;
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-06-16 18:03:24 IP:147.8.xxx.xxx 未訂閱
Just my experience: 1) your service need to be interactive with desktop 2) your service must be started after you have logged in 3) you can only show forms within your logged in session So I would suggest you should write a non-interactive service and create another helper application to configure your service (e.g. via socket, COM, etc).
SuperLowB
初階會員


發表:96
回覆:77
積分:34
註冊:2003-06-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-06-17 10:11:36 IP:203.198.xxx.xxx 未訂閱
不是很明白,因為我發現Delphi5裏有在按New時有Service和Service Application,即表示Service是不能有form的,但Service Application 是可以有form,是嗎?我理解有錯嗎? 請問有沒有範例?
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-06-17 11:14:37 IP:147.8.xxx.xxx 未訂閱
Service must be installed and run as a service while service application can work as a service and a standalone application.
scarfman
一般會員


發表:3
回覆:4
積分:1
註冊:2003-06-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-07-01 18:34:43 IP:211.23.xxx.xxx 未訂閱
在Delphi的Online Help裡,於TServiceApplication有如下的補充說明:    ********************************** Note: Do not add the Forms or HttpApp units to the uses list of the project, because those units declare conflicting Application variables of types TApplication and TWebApplication, respectively. ********************************** 根據以上的說明,應該可以判斷:如果你要Create一個Form,不可以直接拿你的Project的Application全域變數來用,因為一個Form一定會用到Delphi的Forms這個Unit,而Forms Unit裡有宣告一個Application全域變數,但其Application宣告跟TServiceApplication的Application宣告是完全不同的。所以如果你要Create一個Form,不能直接寫: Application.CreateForm(TForm1, From1); 因為這樣是用TServiceApplication的Application來Create Form,於是就會出問題啦! 至於要怎麼解決?我想,既然不能use Forms Unit,或許你可以寫個DLL將Form包在裡面,要用的時候再Load進來。試試看吧...
samho
一般會員


發表:10
回覆:19
積分:5
註冊:2002-12-13

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-07-04 16:58:17 IP:61.222.xxx.xxx 未訂閱
我是用BCB5 先create好一個aboutbox 再把把這個放在ServiceStrat那邊 AboutBoxForm = new TAboutBox(Svcmgr::Application); 記得結束Service要delete掉
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-07-15 20:41:08 IP:61.221.xxx.xxx 未訂閱
引言: 在Service Application裏怎樣可以當"啟動"後,可以開啟一張form? 我嘗過這樣寫,但都不能........
 
procedure TService1.ServiceCreate(Sender: TObject);
begin
  Application.CreateForm(TForm1,Form1);
  Form1.Show;
end;
SuperLowB 你好: 請參考以下的連結文章
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
lovejingtao
一般會員


發表:10
回覆:33
積分:13
註冊:2003-04-16

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-11-12 16:42:17 IP:220.173.xxx.xxx 未訂閱
有两种方法: 1:安装时必须选择"与桌面交互". 2:动态切换到桌面(服务实际上工作于WINLOGON桌面) 冷静的思考问题 充满激情的工作
系統時間:2024-11-23 7:23:50
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!