-1

アプリの VFP の環境をセットアップしようとしています SET DEFAULT & SET PATH TO を試しました プロジェクトのすべてのディレクトリに対して Environment Manager を使用しようとしましたが、プログラムを実行するときは、検索ダイアログを使用する必要がありますプログラムが必要とするファイルを見つけるために、メインプログラムは環境を設定すると思います。コードは次のようになります

 CLOSE DATABASES ALL
 CLOSE TABLE ALL
 SET SYSMENU OFF
 SET STATUS OFF
 SET STATUS BAR OFF
 _VFP.autoyield = .F.
 IF FILE("c:\pb1\photobooth\photographer.exe")
    SET DEFAULT TO c:\pb1\photobooth
 ELSE
    ON ERROR DO FORM FORMS\errorfrm WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
 ENDIF
 SET PATH TO ..\CommandBars\Redistr,..\wwclient\,..\sfquery,..\classes,..\wwclient\classes, c:\sdt\sdt\source,c:\sdt\sdt\,..\xfrx,..\xfrx\xfrxlib
 SET CLASSLIB TO (HOME()+"ffc\_reportlistener")
 SET PROCEDURE TO PROGS\procfile ADDITIVE
 SET PROCEDURE TO ..\xfrx\utilityreportlistener.prg ADDITIVE
 SET PROCEDURE TO wwUtils ADDITIVE
 SET PROCEDURE TO wwEval ADDITIVE
 SET PROCEDURE TO CodeBlockClass ADDITIVE <-----
 SET CLASSLIB TO wwIPStuff ADDITIVE
 SET CLASSLIB TO wwXML ADDITIVE
 SET PROCEDURE TO wwHTTP ADDITIVE
 SET PROCEDURE TO WWPOP3 ADDITIVE
 SET STATUS BAR ON
 SET DATE BRITISH
 SET DELETED ON
 SET SAFETY OFF
 SET MULTILOCKS ON
 ON KEY LABEL SHIFT+F1 gl_diag=!gl_diag

アプリがすべてのデータを XML ファイルに解析していない理由を見つけることができるように、プログラムをエラーなしで実行する方法を探しています。 XML が生成されます。エラーは矢印で示されたポイントから始まります

4

1 に答える 1

1

メイン プログラムが環境を設定している場合、ADDITIVE キーワードを使用しないことで、一部の設定を上書きする可能性があります。あなたの例では、これはSET PATHとSET CLASSLIBの場合のようです。

例 1 - 添加剤なし

*--- Main program
SET PATH TO "C:\VFP9"

*--- Debug setup
SET PATH TO "D:\Debug"
?set('Path')

Output: D:\Debug

例 2 - ADDITIVE を使用

*--- Main program
SET PATH TO "C:\VFP9"

*--- Debug setup
SET PATH TO "D:\Debug" ADDITIVE
?set('Path')

Output: D:\Debug;C:\VFP9

于 2015-01-09T16:33:27.400 に答える