MasteringVFP/2/4/5

出自VFP Wiki

（修訂版本間差異）
跳轉到: 導航, 搜尋
(→附註)
小 (revert)
 
（1個中途的修訂版本沒有顯示）

在2005年3月22日 (二) 01:04的最新修訂版本

目錄

TRY...CATCH...FINALLY 命令 (8.0 新增)

用途

提供一個結構來處理執行一個程式碼區塊時可能發生的錯誤和異常。

語法

TRY
[ tryCommands ]
[ CATCH [ TO !VarName ] [ WHEN lExpression ]
[ catchCommands ] ]
[ EXIT ]
[ THROW eUserExpression ]
[ FINALLY
[ finallyCommands ] ]
ENDTRY

參數

TRY

  • 指出 TRY...CATCH...FINALLY 結構的開始。

tryCommands

  • 指定可能發生錯誤的陳述式。
  • 如果發生錯誤，Visual !FoxPro 儲存一個 Exception 物件參照至 !VarName 記憶體變數中。程式執行直接到 CATCH 陳述式。
  • 如果沒有發生錯誤，程式執行到 FINALLY 陳述式。

CATCH

  • 指明處理錯誤的 CATCH 區塊的開始。
  • 若 CATCH WHEN 求值結果為 .T. (真)時，可以指定一個不帶參數的 CATCH 陳述式。
  • 只有當一個錯誤在那個方法程序的 TRY 區塊中發生以及在方法程序中的程式碼導致例外的時候，CATCH 敘述式會被呼叫。
  • 如果另外的方法程序是從此 TRY 區塊裡面呼叫而導致一個錯誤時，Error 事件對那個方法程序來處理此錯誤。
  • 這行為發生是因為另一個方法程序可以直接或從一個不包含 TRY...CATCH...FINALLY 結構之不同的方法程序來呼叫。
  • 下列範例舉例說明這行為：
x = NEWOBJECT("myClass")
x.myMethod()
DEFINE CLASS myClass AS Session OLEPUBLIC
　PROCEDURE myMethod
　　myMethod3()　　　　 && Error 事件處理錯誤。
　　TRY
　　　THIS.myMethod2()
　　　myMethod3()　　　 && CATCH 處理這個錯誤。
　　CATCH TO oErr
　　　? "Catch:",oErr.!ErrorNo
　　FINALLY
　　ENDTRY
　ENDPROC
　PROCEDURE myMethod2
　　x = y　 && y 變數不存在。
　　　　　　&& Error 事件處理這個錯誤。
　ENDPROC
　PROCEDURE Error(nError, cMethod, nLine)
　　? "Error:",nError
　ENDPROC
ENDDEFINE
PROCEDURE myMethod3
　x = y
ENDPROC

TO !VarName

  • 指定一個用於儲存 Exception 物件參照至可選用的記憶體變數，它在 TRY 區塊中發生錯誤時會自動建立。
!VarName 只能是一個簡單的記憶體變數，不能是物件屬性參照。
  • 可以在 TRY...CATCH...FINALLY 結構中明確地設定 !VarName 為任何值。只要另一個 CATCH 敘述式沒有被執行(重設定 !VarName 為 NULL)，該值不會改變。
  • !VarName 可以為 local(區域)、public(公共) 或 private(私有) 作用域，這取決於變數先前是如何定義的。
如果 !VarName 在之前沒有定義，那麼它是 private。
建立的 Exception 物件與 !VarName 具有相同的作用域。當 !VarName 超出作用域、被釋放或重設定時，Exception 物件也被釋放。
  • 當一個 CATCH TO !VarName 子句執行時，雖然 !VarName 保留它的作用域，Visual !FoxPro 總是設定 !VarName 記憶體變數為一個新的 Exception 物件而不管它早先的設定。因此，!VarName 的內容總是被覆蓋而不管它先前的參照。
  • 如果存在一個 WHEN 子句，而且它的求值為假 (.F.) 時，Visual !FoxPro 釋放 Exception 物件並重設定 !VarName 為 NULL。
你可以用 VARTYPE() 函數測試是否 !VarName 被設定為一個類型或是 NULL。

WHEN lExpression

  • 指定一個可選用的在程式遇到 CATCH 敘述式是被求值的表達式。為了使相應的 catchCommands 執行，該表達式的值必須為真 (.T.)。
  • lExpression 參數可以包含一個 參照到 !VarName 的 Exception 物件，這樣你就可以檢查錯誤結果並處理它。

catchCommands

  • 指定當程式遇到相應的 CATCH 敘述式時要執行的敘述式。

THROW [ eUserExpression ]

  • 建立一個被 CATCH 陳述式接收的新 Exception 物件。
eUserExpression 參數指定一個任意類型的運算式並設定 Exception 物件的 !UserValue 屬性。
通常在一個 CATCH 區塊中用一個 THROW 子句來增強對一個更高級的錯誤處理程式的錯誤或異常。
你可以傳遞一個任意類型的物件，因為 Exception 的 !UserValue 只儲存物件參照。
  • 當你使用有 eUserExpression 參數的 THROW 子句時，Visual !FoxPro 設定 Exception 物件的 !ErrorNo 屬性值為 2071，相應於錯誤：User Thrown Error (錯誤 2071)。
如果您省略 eUserExpression 且 Exception 物件存在，Visual !FoxPro 增強原始的 Exception 物件。
如果 Exception 物件不存在，Visual !FoxPro 拋出一個新的、!ErrorNo 屬性值為 2071 的 Exception 物件。
    • 注意
你應該為 eUserExpression 傳遞一個值，它設定 Exception 物件的 !UserValue 屬性，因為它允許你鏈接多個 Exception 物件。
關於鏈接 Exception 物件的相關資訊，請參見範例。
  • 如果你不包括 eUserExpression，而且 THROW 子句增強對一個外部的 TRY...CATCH 區塊之 Exception 物件，相同的 Exception 物件由外部的 TRY...CATCH 區塊捕捉。
當使用在一個結構化異常處理程式中，由 ERROR()、MESSAGE( ) 和 AERROR( ) 函數所傳來的值總是不可靠的，如此你應該使用 Exception 物件來替代。
  • 你能在一個 TRY...CATCH...FINALLY 結構中呼叫來自任何的程式碼區塊。然而，你能任意在一個存在捕捉異常的程式碼之錯誤處理程式中使用 THROW。
你不能夠從命令視窗來呼叫 THROW。
    • 警告
呼叫在 TRY...CATCH...FINALLY 結構外的 THROW 命令以及沒有一個適當的錯誤處理程式會導致你的程式結束。
  • 如果當 THROW 是從一個 CATCH 或 FINALLY 區塊所呼叫時，一個外部的 TRY...CATCH 陳述式是有效的，Visual !FoxPro 在 CATCH TO 子句指定 !VarName 為對拋出的異常所產生的 Exception 物件之物件參照。
如果外部的 TRY...CATCH 陳述式是無效的，Visual !FoxPro 逐步上移異常到一個可能存在的 ON ERROR 或 ERROR 事件；否則，Visual !FoxPro 呼叫它的系統錯誤處理程式。
    • 注意
執行時期應用程式應該正確地封裝 THROW 陳述式到一個外部的 TRY...CATCH...FINALLY 結構中。
  • 如果你想重新拋出原始的由 CATCH TO !VarName 子句所捕捉到的異常，你可以呼叫 THROW !VarName 來重新拋出異常。
    • 注意
重新拋出原始的異常產生另一個新的 Exception 物件，在外部的 CATCH 陳述式中，有一個 !UserValue 屬性包含有原始異常的物件參照。
  • Visual !FoxPro 忽略任何出現在 CATCH WHEN eExpression 子句中的 THROW 陳述式。
  • 如果 THROW 在評估一個運算式遇到一個錯誤時，Visual !FoxPro 以平常的方式上移錯誤。

EXIT

  • 包括在一個 TRY、CATCH 或 FINALLY 區塊中來直接退出代碼區塊。
  • 如果 EXIT 出現在 TRY 或 CATCH 區塊中且 FINALLY 陳述式存在，程式再繼續執行 FINALLY 陳述式。
如果 EXIT 出現在 FINALLY 區塊中或如果 FINALLY 不存在，程式再繼續執行到下一個 ENDTRY 陳述式。

FINALLY

  • 指出 FINALLY 區塊的開始，在該區塊中你可以清除任何由 TRY 區塊分配的資源，除非使用了 CANCEL 和 QUIT 命令否則總是會執行該區塊中的程式碼。
  • 有關更多使用於 TRY...CATCH...FINALLY 結構中之命令的資訊，請參閱英文版的 Structured Error Handling (結構化錯誤處理)章節。

finallyCommands

  • 指定要在 FINALLY 區塊中執行的陳述式，這些陳述式在 TRY 區塊中沒有發現錯誤或是執行了 CATCH 中的陳述式後執行。

ENDTRY

  • 指出 TRY...CATCH...FINALLY 結構的結束。
每個 TRY...CATCH...FINALLY 結構必須以 ENDTRY 關鍵字結束。
與其它 Visual !FoxPro 控制項敘述式一樣，可以在前面加 && 符號來加入註釋到 ENDTRY 後面。
  • 如果在 TRY...CATCH...FINALLY 結構的尾端中沒有包括 ENDTRY 敘述式，當你編譯你的程式碼時 Visual !FoxPro 產生一個錯誤。
雖然你仍然可以執行你有編譯錯誤的程式碼，但你不能這樣做，因為程序執行到此處時 Visual !FoxPro 會停止回應。

附註

  • 建議 Try...Catch...Finally 應與 ON ERROR DO errhand WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( ) 指令配合使用，以便在程式執行時，能攔截到所有的錯誤訊息。
  • 就像在 Visual !FoxPro 中其他的錯誤處理程式，在 TRY...CATCH...FINALLY 異常處理程式中所發生的異常需設定 SET CONSOLE 命令為 ON。有關更多的資訊，請參閱 SET CONSOLE 命令。
  • 您不能夠明確地傳輸程式執行到一個 CATCH 或 FINALLY 程式碼區塊中。
  • Visual !FoxPro 決定變數的範圍是在一個程序化上而不是以區塊為基準。
也就是說，在 TRY 區塊中宣告的變數在同一個 TRY...CATCH...FINALLY 結構的 FINALLY 區塊中也是看得見的。
但是，在一個巢狀的結構中，在 TRY、CATCH 或 FINALLY 區塊中所宣告的變數是屬於區域範圍。
  • 您不應在 TRY 區塊內部初始化變數或設定條件代碼，因為不能保證代碼會執行。
如果一個錯誤出現在 TRY 區塊代碼中的特定列，所有在 TRY 區塊中後續的代碼將不會執行。
  • 任何發生在一個物件的 ERROR 事件中的錯誤是由該物件來處理的，而不是上移到 ON ERROR 常式或 TRY...CATCH...FINALLY 處理程式。
然而，您可以在 ERROR 事件中使用一個 TRY...CATCH...FINALLY 結構來找出來自一個 ERROR 事件的錯誤。有關更多的資訊，請參閱 ERROR 事件。
  • 在 CATCH 區塊中用 COMRETURNERROR() 函數結束所有進一步的處理並直接傳回程式控制到元件物件模型 (Component Object Model；COM) 用戶端。
因此，如果你有一個 FINALLY 區塊，它不會執行。有關更多的資訊，請參閱 COMRETURNERROR( ) 函數。
  • 避免在 TRY...CATCH...FINALLY 結構中使用 SET TEXTMERGE TO MEMVAR 命令，因為如果在陳述式中發生錯誤記憶體變數將變將會被遺失。
  • 可以在你的 TRY...CATCH...FINALLY 程式碼中用 SYS(2410) - 錯誤處理程式函數來檢測動作過程，例如：用一個 DO CASE 結構，藉由處理程式類型來處理異常。有關更多的資訊，請參閱 SYS(2410) - 錯誤處理程式。
  • 如果結構封裝正確，您可以使用 TRY...CATCH...FINALLY 和像 ON KEY LABEL 這樣的命令來處理出現在功能表和計時器事件中的錯誤。
下面範例說明 READ EVENTS 命令如何在一個 TRY...CATCH...FINALLY 結構中保持程式控制，因此可以捕捉功能表事件。
錯誤捕捉是由 TRY...CATCH...FINALLY 在呼叫堆疊的位置控制的。 
TRY
　DO myMenu.mpr
　DO FORM myForm
　myForm.!AddObject("tm1","mytimer")
　READ EVENTS
CATCH TO oException
　IF oException.!ErrorNo = 1
　ENDIF
FINALLY
　CLEAR EVENTS
ENDTRY
有關更多的資訊，請參閱 READ EVENTS 命令和 ON KEY LABEL 命令。
  • Visual !FoxPro 僅在單一的程式碼區塊中支援 Set Next Statement 除錯功能。例如：當執行 TRY 區塊中的程式碼時，你只能用 Set Next Statement 到另一 TRY 區塊中的另一行。你不能夠跳到在 CATCH 或 FINALLY 區塊中別的行。有關更多的資訊，請參閱除錯程式鍵盤快速鍵和功能表 (Debugger Keyboard Shortcuts and Menus)。
  • Visual !FoxPro 在以下條件下產生錯誤信息：
  1. 在 TRY...CATCH...FINALLY 結構中出現不相符或錯誤。
  2. 一個不能處理的異常發生。
  3. 一個不被允許的命令出現在一個 TRY、CATCH 或 FINALLY 區塊中的特定區塊。有關更多的資訊，請參閱結構化錯誤處理程式 (Structured Error Handling)。
  4. 一個使用者上拋錯誤發生。

範例

下列範例說明如何在巢狀的 TRY...CATCH 陳述式中使用 THROW 子句以及處理 Exception 物件： 

LOCAL x ,y ,result　&& 整數
LOCAL oErr , oErr1　&& Exception 物件
TRY
　 x = 1
　 TRY 
　　　USE nothing
　　　GO TOP
　　　y = nothing.col1
　 CATCH TO oErr 
　　　oErr.!UserValue = "巢狀的 CATCH 訊息：不能處理"
　　　?[：巢狀的 Catch！(無法處理：上拋至 oErr 物件上) ] 
　　　?[　內部 Exception 物件：]
　　　?[　錯誤：] + STR(oErr.!ErrorNo)
　　　?[　列數：] + STR(oErr.!LineNo)
　　　?[　訊息：] + oErr.Message
　　　?[　程序：] + oErr.Procedure
　　　?[　詳細資料：] + oErr.Details
　　　?[　堆疊層級：] + STR(oErr.!StackLevel)
　　　?[　列內容：] + oErr.!LineContents
　　　?[　!UserValue：] + oErr.!UserValue
　 THROW oErr
　 FINALLY
　　　?[：巢狀的 FINALLY 被執行]
　　　IF USED("nothing")
　　　　 USE IN nothing
　　　ENDIF
　 ENDTRY
　 result = x - y
CATCH TO oErr1
　 ?[：外部 CATCH！]
　 ?[　外部 Exception 物件：]
　 ?[　錯誤：] + STR(oErr1.!ErrorNo)
　 ?[　列數：] + STR(oErr1.!LineNo)
　 ?[　訊息：] + oErr1.Message
　 ?[　程序：] + oErr1.Procedure
　 ?[　詳細資料：] + oErr1.Details
　 ?[　堆疊層級：] + STR(oErr1.!StackLevel)
　 ?[　列內容：] + oErr1.!LineContents
　 ?[　->!UserValue becomes inner exception THROWn from nested TRY/CATCH ]
　 ?[　　 錯誤：] + STR(oErr1.!UserValue.!ErrorNo)
　 ?[　　 訊息：] + oErr1.!UserValue.Message
　 ?[　　 程序：] + oErr1.!UserValue.Procedure
　 ?[　　 詳細資料：] + oErr1.!UserValue.Details
　 ?[　　 堆疊層級：] + STR(oErr1.!UserValue.!StackLevel)
　 ?[　　 列內容：] + oErr1.!UserValue.!LineContents
　 ?[　　 !UserValue：] + oErr1.!UserValue.!UserValue
　 result = 0
FINALLY
　 ?[：FINALLY 陳述式被執行]
ENDTRY
RETURN result

下列範例顯示如何去連結 Exception 物件： 

TRY
　 TRY
　　　x = y　　&& y 變數不存在造成一個錯誤。
　 CATCH TO oException2
　　　THROW CREATEOBJECT("myException")
　 ENDTRY
CATCH TO oException1
ENDTRY

? 2, oException2.!ErrorNo, oException2.!UserValue
? 1, oException1.!ErrorNo, oException1.!UserValue.!UserValue

DEFINE CLASS myException AS Exception
!UserValue = "我自定的錯誤處理程式"
PROCEDURE Init
　 STRTOFILE("一個錯誤發生在：" + TRANSFORM(DATETIME()) + CHR(13),"c:\errs.log",.T.)
ENDPROC
ENDDEFINE
取自"http://wiki.sunyear.com.tw/index.php?title=MasteringVFP/2/4/5"