F
free_knight
Unregistered / Unconfirmed
GUEST, unregistred user!
在写三层的应用程序服务器时，发现一个怪问题，
在服务器端不管是读还是写注册表都不成功。
但是同一段代码考到一般的一个应用程序里就成功了，这是什么原因？
代码如下：
function TPassWord.GetDemoCount: Integer;
var
Reg:TRegistry;
f:Integer;
s:String;
begin
f:=0;
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER_Key;
if Reg.OpenKey('/Software/Test',False) then
begin
if Reg.ValueExists('abc') then
begin
s:=Reg.ReadString('abc');
f:=StrToInt(S);
end;
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
Result:=f;
可不管键值是什么，都返回 0.
在服务器端不管是读还是写注册表都不成功。
但是同一段代码考到一般的一个应用程序里就成功了，这是什么原因？
代码如下：
function TPassWord.GetDemoCount: Integer;
var
Reg:TRegistry;
f:Integer;
s:String;
begin
f:=0;
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER_Key;
if Reg.OpenKey('/Software/Test',False) then
begin
if Reg.ValueExists('abc') then
begin
s:=Reg.ReadString('abc');
f:=StrToInt(S);
end;
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
Result:=f;
可不管键值是什么，都返回 0.
]