Question

delphi7 编写activex控件，文件操作问题

用delphi7 写一个activex控件，想实现在html调用控件时，ocx将一个txt文件里的内容读出并赋值给一个变量。
变量定义部分：info: string;
过程定义部分：procedure Readinfo; safecall;
过程实现部分：
procedure Readinfo;
var
F:textfile;
begin
assignfile(F,'info.txt');
Reset(f);
Read(f,info);
closefile(f);
end;
大侠帮忙看看是哪里问题

Answer 1

应该是路径找不到，透过html远端抓档，路径格式也要用类似网路磁碟机的方式宣告，不然会抓到近端的档案。例如你指定到C槽抓，这C槽不是指server端的C槽，而是客户端的C槽。

追问

info.txt不是远端文件，就再本地，和ocx控件文件在同一个文件夹下面
info.txt ocx控件 html 这三个文件在同一个文件夹下面

追答

从提问看不出你遇到什麼问题？我猜应该是抓不到档案，在assignfile() 发生异常。
如果只是要排除掉这问题，可以加个
if ( FileExists( 'info.txt'))
...
来确认档案是否存在。
不过
档案在同个目录不代表它一定会优先往那目录找，你可以试著给它完整的路径试试看。