关于我的ASP组件(100分)

  • 主题发起人 主题发起人 吗啡
  • 开始时间 开始时间

吗啡

Unregistered / Unconfirmed
GUEST, unregistred user!
我在DELPHI中做了一个ASP组件,这个组件是取得注册表中的联接字的,
但是,读取注册表的时候出错,不知道是为什么,读出来的字符串总是
空字符(什么都没有),但是程序中的注册表的目录是存在,而且,该
目录下的键值也存在,因为我已经将该段程序单独拿出来运行过了。难
道在ASP组件里面不可以使用TREGISTRY?不可能吧!!!

var
Reg: TRegistry;
ConStr: string;
begin
Result := False;
// Response.Write('SQLCONNECTION = [' + GetExampleStr + ']');
reg := TRegistry.Create;
Response.Write('Created !');
try
reg.RootKey := HKEY_CURRENT_USER;
Response.Write('Set root key !');
reg.OpenKey('/software/winning/erp2', True);
Response.Write('Open key !');
try
// ConStr := reg.ReadString('ConnectionString');
ConStr := reg.ReadString('RemoteName');
Response.Write('Read key - ConStr!' + '[' + ConStr + ']');
except
ConStr := '(error)';
Response.Write('Key error !');
end;
finally
reg.Free;
end;
Response.Write(ConStr);
// Response.Write('SQLCONNECTION = [' + ReadMyReg('ConnectionString') + ']');
{ with OpenSQL('select password from userinfo where usercode = ''' + s_Code + '''') do
begin
try
if RecordCount > 0 then if FieldByName('password').AsString = s_Password then Result := True;
finally
Free;
end;
end;}
end;
 
请看 http://www.delphibbs.com/delphibbs/dispq.asp?lid=632765
 
组件好像不能操作注册表吧
 
用 RegOpenReadOnly 代替了 RegOpen
 
多人接受答案了。
 
后退
顶部