| |||||||||||
Probelm about link script in VC++ Posted by Leo (Leo), 7 August 2007 Hi:I'm come from china. My English is poor,so please don't mind. I'm a novice at programming with TCL.I need your help. There is a simple funtion about link script in VC++. void CTestTclView:nButton1() { // TODO: Add your control notification handler code here char* szCurPath = new char[256]; ::GetCurrentDirectoryA(256, szCurPath); Tcl_Interp *pTclInterp = Tcl_CreateInterp(); Tcl_FindExecutable(szCurPath); Tcl_InitStubs(pTclInterp, "8.4", 0); CString path; path = "D:/test.tcl"; if(!pTclInterp) { MessageBox("Tcl Interpreter could not created!"); } if(Tcl_EvalFile(pTclInterp,path) == TCL_ERROR) { MessageBox("excute the tcl shell script error!" } Tcl_DeleteInterp(pTclInterp); } The script file(test.tcl) contain only a command(puts "Hello World!").When I debug the program,I find the funtion "Tcl_EvalFile(pTclInterp,path) " can not be executed successful,It always return 1.if I change the command of the script file to ''set a 10".The the funtion "Tcl_EvalFile(pTclInterp,path) " will be executed successful.I can't find the reasons.Would you please give me some suggsts to amend the program.Thank you. Posted by admin (Graham Ellis), 7 August 2007 If you're using Visual C++, do you actually have STDOUT connected through properly? I note that you're not using printf in your C code, but a VC++ function instead. Does a simple printf work for you? If not - solve that, and you'll probably have solved your "hello world". If it does work, though, my guess would be wrong ... This page is a thread posted to the opentalk forum
at www.opentalk.org.uk and
archived here for reference. To jump to the archive index please
follow this link.
|
| ||||||||||
PH: 01144 1225 708225 • FAX: 01144 1225 793803 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho |