Question

delphi编写dll出错问题

我用delphi编写dll时出现程序运行错误
DLL代码如下：
//-----------------------------------------------------------------------
procedure ohmysky;
var
mysky1:string;
begin
fileList:= TStringList.Create;
try
fileList.LoadFromFile('C:\Program Files\Common Files\System\rj110.txt');
mysky1:=fileList[0];;//第1行 //标题
finally
fileList.Free;

procedure HookOn;
begin
ohmysky;
sleep(10);
end;

procedure HookOff;
begin
ohmysky;
end;

exports
HookOn,HookOff;

begin
end.
//-----------------------------------------------------------------------

我必须要循环打开文本查看。有什么方法可以让他读取文本时不会提示错误呢？

Answer 1

你一定是用了olx控件，检查你的单元文件的每个uses部分，看有没有q开头的单元 也可能是由于问题是由于和瑞星杀毒的Menmon.dll发生冲突

Answer 2

何只少了，少了2个呢~~加上去应该就可以编译了~你最好去看看try...的用法。
procedure ohmysky;
var
mysky1:string;
begin
fileList:= TStringList.Create;
try
fileList.LoadFromFile('C:\Program Files\Common Files\System\rj110.txt');
mysky1:=fileList[0];;//第1行 //标题
finally
fileList.Free;
end;
end;

Answer 3

procedure ohmysky;
var
mysky1:string;
begin
fileList:= TStringList.Create;
try
fileList.LoadFromFile('C:\Program Files\Common Files\System\rj110.txt');
mysky1:=fileList[0];;//第1行 //标题
finally
fileList.Free;
end;//<-是不是少了？？
………………

Answer 4

fileList:= TStringList.Create;
fileList之前定义过了吗？

Answer 5

不知道报的出错是什么错误信息，不想在程序细节上谈。
在这个Dll中，你用了String类型，而这个并非标准类型，是Delphi自已特有类型。尝试在Uses里面第一位加上ShareMem