websnap.txt

大量Delphi开发资料

在IDE環境中切換到 Preview 也會出現這個錯誤.


>謝謝code6421...經重新安裝 Delphi 6後已可執行PreView 功能
>但是執行 Web App Debugger 時,點選
>Default URL http://localhost:1024/ServerInfo.ServerInfo時
>確始終無法開啟網頁,不知是甚原因,請教各位.....
>我的版本是 version 6.0[Build 6.190] Update Pack 1
>作業系統是Win 98 謝謝

這是WebAppDebugger 的Bug,使用IE 輸入http://localhost:1024 就可以了.

也是不行,出現同樣訊息
重新Compiler DELPHI6/Source/Internet/ServerInfo.dpr
完成後複製到DELPHI6/Bin 下,執行她一次,再試試,也是一樣


>這是WebAppDebugger 的Bug,使用IE 輸入http://localhost:1024 就可以了.
>也是不行,出現同樣訊息
>重新Compiler DELPHI6/Source/Internet/ServerInfo.dpr
>完成後複製到DELPHI6/Bin 下,執行她一次,再試試,也是一樣

請教各位,使用IE 輸入http://localhost:1024 出現
Exception EOleException in module SERVERINFO.EXE at 0005B17A
發生非預期的錯誤
該作何調整呢??
拜託! 拜託!


※ 引述《premio》於 11/28/2001 10:46:21 發表之銘言：
如果以D6 UPD1 重新編譯ServerInfo 後,會產生錯誤,
這是D6 Variant Bug,需要修改部份的原始碼才行,
目前需用舊版的ServerInfo.exe 代替(近日才在Borland 站上看到...).

你的問題可能是平台問題,我的電腦中已無98,所以無法做近一步的測試,

--------------------------------------------------------------------------------

※ 引述《Davi》於 11/25/2001 14:34:32 發表之銘言：
>ApplicationAdapter 元件中AdapterField 中的FieldName 已設為 TODAY 且相對之程式碼亦如同您之範例加入,不知還有那裡沒設定好?? 謝謝!
>以 Application.Today.Value 顯示今天日期,為何在 Web App Debugger 顯示
>Error[0]: 'Application.TODAY.Value' 不是一個物件
>在IDE環境中切換到 Preview 也會出現這個錯誤.

Application.Title 這個Script可以正常顯示嗎?
若可以,應該是Script 與程式碼的問題.
若不行,應該是環境的問題.


※ 引述《tom2071hk》於 12/04/2001 14:55:17 發表之銘言：
>當執行Code4621君大作的第十二章時,出現out of list index bound錯誤,請問是否以下procedure中的Value:=TDataSetAdapterField(Sender).ActionValue.Values[0]有問題?
>多謝各位的幫助!
>
>procedure TdmData.AdaptOrderNoGetValue(Sender: TObject; Field: TField;
>var Value: Variant);
>begin
>if Assigned(TDataSetAdapterField(Sender).ActionValue) and
>FIsPostBack then
>Value:=TDataSetAdapterField(Sender).ActionValue.Values[0]
>else
>Value:=Field.Value;
>end;

整個程式應該是這樣吧

if FIsPostBack and Assigned((Sender as TDataSetAdapterField).ActionValue) and
((Sender as TDataSetAdapterField).ActionValue.ValueCount > 0) then
    Value:=(Sender as TDataSetAdapterField).ActionValue.Values[0]
else
    Value:=Field.Value;

PS: 你看的很快哦,加油 :)


※ 引述《Davi》於 12/04/2001 14:51:53 發表之銘言：
>再請問code6421先生,依 WebSnap 大作,測試進階資料庫網頁設計時 在 MAsterDetailEdit Module 於AdpaterPageProducer Page Designer 可看到正確之資料及表格但在 preview 卻無法看到結果,是什麼地方未設定呢 ?

請查對Script 頁,是否正確的產生Script,或是查對HTML 頁中的HTML 是否
與AdapterPageProducer Page Designer 中的HTML 頁相同.

>還有 commandbutton 為什麼獨獨 Cancel 及 apply 無法顯示而其他 Button 又正常, 可否再幫忙解決 , 謝謝 !

MasterDetailEdit 有權限的控管,無權限者會無法編修資料.


※ 引述《unite》於 12/04/2001 16:45:16 發表之銘言：
>>Inside WebSnap 已經決定不公佈了,相信會有人寫的比我好!
>>另所有文章已刪除,請勿再浪費時間連結.
>>
>
>既然Code6421兄决定不公布Inside WebSnap的文章，那么能不能简单介绍一下 Inside WebSnap 是什么东东？

呵...這是好久前的事了,當初是因為某種原因決定不再寫文章了,
但後來還是耐不住手癢 :)
Inside WebSnap 是第一篇的延伸,
討論的80% 以上的WebSnap 內部運作,如Dispatcher 流向,
Module 之間的關聯,各Interface 之間的合作方式,
以及如何運用現行的WebSnap 架構加上Client-Side Script,
Validator,DHTML,Applet 等元件支援,讓設計網頁變的更簡單,
目前此篇文章預計在明年初完成,當然! 我得先不玩三國志才行 ;)
(正努力用孟獲統一中國中.......)

--------------------------------------------------------------------------------

在第十一章最后由一个页面是在DataSetAdapter中添加过滤条件，是通过RedirectToPageName把参数传递过来的，文章中使用DefaultAction进行处理（TFilterGrid.AdaptDefaultExecute(Sender: TObject; Params: TStrings);），其中的Params是上一页传递过来的可以直接使用，但是不符合要求，当点击下一页时过滤条件就没有作用了，不知是什么原因?
还有如果要把过滤条件写在WebPageModuleBeforeDispatchPage中的话，那Params這個參數應該如何使用呢?


※ 引述《Davi》於 12/20/2001 16:21:25 發表之銘言：
>請問在WebSnap 程式中如何將資料表內之使用者資料load至 WebUserList之UserItems,
>以及若要如一般 Windows Application 一樣對各個子功能做權限控管時,WebUserList之UserItems其AccessRights如何使用 ? 謝謝 !

將資料讀入WebUserList 是較沒效率的用法,
你應該利用WebUserList 所提供的事件來
處理驗證的動作.

文章中雖然沒有使用資料庫中的資料來驗證使用者,
但是原理是相同的,你可以參考文章中的用法.
權限管理在文章中討論的並不多,建議你看看文章附
的範例程式,裡面應該有你想要的資訊.

--------------------------------------------------------------------------------

※ 引述《hzpengyou》於 01/22/2002 15:45:55 發表之銘言：
>Code6421 先生您好，看了您寫的WebSnap開發指南，真是獲益良多，
>但是在實踐時還是遇到很多問題。
>1.我在使用IIS瀏覽了ISAPI的應用程序之後，DLL就不能更新了，不知有什麽好方法，
>如果解決不到此問題，Web Application好像沒什麽意義了。
>2.我使用Login功能時，Login驗證總是不能通過(沒反應)，(我使用的不是Web App ExE
>應用程序)，不知如何使用Session信息。
>希望能解答以上問題，謝謝。

我帮他回答吧，你只需重新启动World Wide Web Publishing Service就可以了，
当然你重新启动计算机也是可以的，呵呵呵，
session需要有 sessionService这个组件。


※ 引述《hzpengyou》於 01/22/2002 16:27:05 發表之銘言：
將服務中的WWW 關閉再重新啟動即可,
或是找一個ISAPI Manager(名稱我忘了...)程式.

確定你的WebAppModule 中有SessionService 元件,
確定瀏覽器的Cookie 打開,
確定使用DLL or Shared Module.

--------------------------------------------------------------------------------
>我的Login問題還是沒有解決，我按照code6421先生的方法，但是好像無效。不知什麽原因，請指教！！！！！！！

在 Home Page 如係使用 EndUserAdapter 請改為 EndUserSessionAdapter 應該就可以才對.

--------------------------------------------------------------------------------
你可以到下面這個網址下載元件回來，可以對算是Websnap會員、session功能
的加強版，特別是對將會員資料存在資料庫的專案特別適用！
http://www.used-disks.com/Programming/Pascal/Components/WebSnap/

--------------------------------------------------------------------------------

>如何使得一個AdaptActionButton能夠跳轉到多個頁面？
>ActionButton只能指定一個PageName。我想了兩個方法：
>一是在Action的OnGetParams事件中加入參數，然後在它的OnExcute事件中根據此參數的值跳轉到不同頁面。
>一是在Action的OnGetParams事件中直接修改ActionButton的PageName。
>但上面兩個方法我都沒法實現，請哪位高明指點一下，是不是還有其他好方法？

uses
     ...,SiteComp;

procedure THome.AdapterActionBeforeGetResponse(Sender: TObject;
Params: TStrings; var Handled: Boolean);
begin
    // to url
    SafeRedirect(WebContext.Response,'http://www.borland.com');
    // to page name
    // DispatchPageName('NewWin',WebContext.Response,[dpPublished]);
    Handled:=True;
end;

--------------------------------------------------------------------------------

※ 引述《Davi》於 01/21/2002 14:57:25 發表之銘言：
>請問在WebSnap程式中若修改一 DataSet 之際欲同時修改另一 DataSet, 在第一個DatasetAdapter 之 ActionEditAfterExecute Event 中設定另一 DatasetAdapter.Mode =amEdit 時可同時進入修改模式,唯在執行第一個 DataSet Apply 時如何讓第二個 DataSet 也同時執行 Apply Action ? 謝謝 !
>

在第一個DataSetAdapter.ActionApplyAfterExecute 中,直接操作
第二個DataSet 來處理,跳過DataSetAdapter,這是較簡單的方式.
也就是說使用一個DataSetAdapter 連結兩個DataSet,
在文章中後段的TDateTime 就使用類似的方法.


※ 引述《Davi》於 01/24/2002 15:30:20 發表之銘言：
>※ 引述《code6421》於 01/22/2002 21:40:34 發表之銘言：
>若第二個 DataSet 係以 AdapterFieldRecord 形式處理每次只處理一筆記錄,則可直接在ActionApplyAfterExecute 中直接處理,唯若是以 AdapterGrid 方式處理時 DataSet 又如何處理呢 ? 可否協助解決, 謝謝 !
>

我看不太懂...^^||
除了使用虛擬欄位之外,你也可以利用Join 來解決這個問題.
PS: 自從裝了Visual Stuido.NET 之後,我的ADO 怪怪的,無法在WebSnap 中使用 :(


--------------------------------------------------------------------------------
※ 引述《raindot》於 01/23/2002 16:44:52 發表之銘言：
>我开发的是ISAPI，经常出现内存溢出的情况，需要重新启动World Wide Web Publishing Service才行，请您们告诉我是怎么回事儿好吗？谢谢。

去Borland網站看一下，11月公佈了此問題，後續有些補救的辦法。
Unofficial WebSnap updates and bug fixes
http://community.borland.com/article/0,1410,27949,00.html

除了這些之外,其它還有一些與Variant 相關的問題,
加上Visual Studio .NET 之後,問題更嚴重了 :(
希望會在Update Pack 2 解決.

--------------------------------------------------------------------------------

>>將寫好的WebSnap程式（.DLL）不能使用，出現如下提示：
>>Internal Application Error
>>Object factory for class TWebResponseWrapper missing
>>請問是什麽原因？如何解決？
>
>See Deploy.txt.
>请问：Deploy.txt在哪？如何使用？能详细点吗？
Delphi6 目錄下.

--------------------------------------------------------------------------------

※ 引述《lj100》於 01/30/2002 21:08:59 發表之銘言：
>WebSnap中有打印报表的方法吗？
沒有,你可以利用HTML Report or QuickReport 來建立報表再輸出成HTML 顯示於網頁上.

使用DHTML Menu Builder 產生出來的網頁必須將dhtml_menu.js 分發至同
一目錄下,我在CGI 測試下很正常.
使用WebAppDebuger 則需注意路徑的對應,在文章與DELPHI On-Line HELP
有相關的資訊.

--------------------------------------------------------------------------------

再請問在 JavaScript 中是否不可直接使用由 Websnap 產生之 Wrapper 全域變數,
如下之 Script 會產生"語法錯誤" 之訊息,若是則要如何動態結合各 page function 而產生動態功能表? 謝謝 !

e = new Enumerator(Pages)
s = ''
s1= ''
c = 0
if (EndUser.Logout.Enabled)
{
    s =  'Logout';    
    s1= EndUser.Logout.AsHREF;
    oMenu.makeMain(0,0,s,s1)
}
if (EndUser.LoginForm.Enabled)
{
    s =  'Logint';    
    s1= EndUser.LoginForm.AsHREF;
    oMenu.makeMain(0,0,s,s1)
}

--------------------------------------------------------------------------------
>我先用除錯方式開發Web Application
>開發完成後想放在Web Server運行
>請問各位如何把websnap由除錯轉為ISAPI或CGI
>先謝謝幫忙!

1.建立一個新專案,選擇你想要的Server Type
2.除了Main Form 之外,將其它的Units 加入這個專案中.
3.編譯.

--------------------------------------------------------------------------------

我使用websnap（xmlbroker和intxpageprocedure）做的isapi程序，在除错exe方式下，通过web appdebugger访问时总时有时无的出现：“xmlrowset没定义”之类错误，但在真正的dll方式下（IIS），没有这样的问题，请问什么原因？