604
社区成员
发帖
与我相关
我的任务
分享*****如何在程序中嵌入TC ???******
最近我在做一个 "C语言上机考试系统"
其中要实现一个功能:
嵌入TC -----
1. 学生作题得时候可以根据要求在一个编辑区(比如 m_le 控件内)录入他得源程序.
2. 可以进行编译,连接 如果出错 ,则把原来在 TC环境下显示的出错提示显示在
一个控件内.
3. 如果无错误则可以把运行结果显示在另外的一个控件内.
希望大家多多帮助,分不够可以再加!
其中要实现一个功能:
嵌入TC -----
1. 学生作题得时候可以根据要求在一个编辑区(比如 m_le 控件内)录入他得源程序.
2. 可以进行编译,连接 如果出错 ,则把原来在 TC环境下显示的出错提示显示在
一个控件内.
3. 如果无错误则可以把运行结果显示在另外的一个控件内.
希望大家多多帮助,分不够可以再加!
...全文
请发表友善的回复…
发表回复
shuihersina 2003-09-14
- 打赏
- 举报
哪位老兄做过类似的东西呀
Jonea 2003-09-14
- 打赏
- 举报
//Run TC
Run("tc name > c:\temp.txt")
//Read Temp
integer li_FileNum
String ls_read
Long ll_FileLength
ll_FileLength = FileLength("C:\temp.txt")
li_FileNum = FileOpen("C:\temp.txt",StreamMode!,Read!)
IF ll_FileLength< 32767 THEN
FileRead(li_FileNum, ls_read)
END IF
//result
IF not isNull(ls_read ) THEN
//..........
//exp: mle_1.text = ls_read
END IF
Run("tc name > c:\temp.txt")
//Read Temp
integer li_FileNum
String ls_read
Long ll_FileLength
ll_FileLength = FileLength("C:\temp.txt")
li_FileNum = FileOpen("C:\temp.txt",StreamMode!,Read!)
IF ll_FileLength< 32767 THEN
FileRead(li_FileNum, ls_read)
END IF
//result
IF not isNull(ls_read ) THEN
//..........
//exp: mle_1.text = ls_read
END IF
鸡翅多 2003-09-13
- 打赏
- 举报
哈哈，那估计你要好好看看TC的HELP了， dajianshi(拔剑四顾心茫然)说的是把TC的命令行方式的程序的输出内容重定向到一个文件里，而不是默认的屏幕上，然后你去读那个文件里的内容显示给你的用户，如果编译没有错误的话，你就调用link把那个东东编译成可执行文件，然后用RUN命令来调用刚才编译好的那个可执行文件就可以达到你的要求了
xisat 2003-09-13
- 打赏
- 举报
嗯,想想
先帮你顶
先帮你顶
shuihersina 2003-09-13
- 打赏
- 举报
我自己顶！！！
佣工7001 2003-09-12
- 打赏
- 举报
tc 命令参数 >文件名
shuihersina 2003-09-12
- 打赏
- 举报
楼上的大哥能说具体一点么？
Jonea 2003-09-12
- 打赏
- 举报
可以把TC输出信息用管道命令写入一个文本文件
然后在PB中读取这个文本文件
然后在PB中读取这个文本文件
shuihersina 2003-09-12
- 打赏
- 举报
我是新手，请大家说得详细一点，不要一两句话就把我给“枪毙”了
