Setting the property to true (which is what you're doing) basically causes this to be undone after the dialog is dismissed.Sorry about "kiosk" I was looking at the whole thread to understand. String value1112 = GetVar("aaaa") // may break down thisįrom this point on any relative paths you use are going to use that new directory. Show(str, "TCL_Init Error", .OK, .Error) String str = GetVar("errorInfo", TCL_GLOBAL_ONLY) String.Format(" set platform_path \n", interp) String.Format(" rename exit exit_std \n") + StrPreScript = String.Format("rename puts puts_std \n") + String app_path_change = app_path.Replace('\\', '/') String tcl = app_path + tcl_lib_path = tcl.Replace('\\', '/') Tcl_SetServiceMode(0) //#define TCL_SERVICE_NONE 0 Show("Can not Create Interp", "Tcl_CreateInterp Error", .OK, .Error) Public void Tcl_FindExecutable(string path) Return Tcl_GetVar(interp, name, varType) Public string GetVar(string varName, int varType) GCHandle gch = GCHandle.Alloc(sbytes, GCHandleType.Pinned) Int ilen = d.GetByteCount(schars, 0, script.Length, true) ĭ.GetBytes(schars, 0, script.Length, sbytes, 0, true) Script.CopyTo(0, schars, 0, script.Length) int aa = TclAPI.Tcl_SetVar(interp, varName, varValue, 0) Int aa = Tcl_SetVar(interp, name, value, 0) Public void SetVal(string varName, string varValue) Public static extern void Tcl_SetServiceMode(int mode) Ĭhar schars = new char Public static extern void Tcl_FindExecutable(char arg0) Public static extern int Tcl_SetVar(IntPtr interp, char varName, char varValue, int flags) Public static extern string Tcl_GetVar(IntPtr interp, char varName, int flags) Public static extern int Tcl_SetObjResult(IntPtr interp, IntPtr objPtr) Public static extern IntPtr Tcl_NewBooleanObj(int value)
Public static extern IntPtr Tcl_NewDoubleObj(double value) Public static extern IntPtr Tcl_NewIntObj(int value) Public static extern IntPtr Tcl_NewStringObj(String bytes, int length) Public static extern IntPtr Tcl_CreateObjCommand(IntPtr interp, IntPtr cmdName, Tcl_ObjCmdProc proc, IntPtr clientData, IntPtr deleteProc) Public static extern IntPtr Tcl_CreateCommand(IntPtr interp, String cmdName, Tcl_ObjCmdProc proc, IntPtr clientData, IntPtr deleteProc) Public static extern String Tcl_GetStringFromObj(IntPtr tclObj, ref int length) Public static extern String Tcl_GetStringResult(IntPtr interp) Public static extern IntPtr Tcl_GetObjResult(IntPtr interp) Public static extern int Tcl_EvalObjEx(IntPtr interp, IntPtr obj, int flags) Public static extern int Tcl_EvalFile(IntPtr interp, string fileName) Public static extern int Tcl_Eval(IntPtr interp, byte script) Public static extern int Tcl_DeleteInterp(IntPtr interp) Public static extern int Tcl_Init(IntPtr interp) Public static extern IntPtr Tcl_CreateInterp() Public unsafe delegate int Tcl_ObjCmdProc(IntPtr clientData, IntPtr interp, Int32 objc, byte** argv) Private const int TCL_NAMESPACE_ONLY = 2 Private void button1_Click(object sender, EventArgs e) OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" OpenFileDialog1.InitialDirectory = "c:\\" OpenFileDialog openFileDialog1 = new OpenFileDialog()
#Activetcl 8.6.10 install
I would confirm that all your paths are correct when referencing files within the code that no longer works.ġ VS2010 C# ,Create a windowns form application Ī Copy the install path/lib/tcl8.6 to this application debug folderī Copy the install path/bin/tcl86.dll to this application debug folderĤ Debug/Run this app,it may break down in the class TCLAPI999 TclInterpreter() GetVar() Ignored and the working directory is always restored. Starting with Vista this property is effectively Setting the property to true (which is what you're doing) basically causes this to be undone after the dialog is dismissed. When you use OFD to select a file it changes the working directory of the process to whatever folder the selected file was in.įrom this point on any relative paths you use are going to use that new directory. I believe this was aĬhange between XP and Vista which may explain why you're seeing a difference now. The only thing that remotely stands out in your OFD code is the fact that you're restoring the directory when you're done. Not even doing anything with the results) then it should be harmless. Since that code isn't doing anything but displaying a dialog box (you're You said that if that call doesn't occur then your code works fine.
As Kristin mentioned, we cannot help with the TCL stuff.
0 kommentar(er)
