不行，COM中的建立特性的错误！上午太急了，快帮忙！ (110分)

上午问个问题，关于COM中输出参数的问题，以为解决了呢？
可是在COM中建立一个property，在程序中set后，可是怎么也得不到
它的值，到底怎样能够得到它的值呀，以及怎样建立它，我现在都有点糊涂了
请高手帮忙，就剩110了，都给你了
function Get_test: SYSINT; safecall;
procedure Set_test(Value: SYSINT); safecall;

function CheckLogon(const accountname, accountpass, rIp,
dbname: WideString; out logonId: WideString): WideString;
begin
set_test(2)
response.write (get_test)
response.end_
end
在DELPHI中都得不到这个值,得到的都是它的初始值，空或者0，怎么办？

Faint,你要在Com组件实现对象中定义一个私有域与特性相对应:
private
Ftest:SYSINT;
然后实现访问它的方法:
function Tmytest.Get_test: SYSINT;
begin
Result := Ftest;
end;

procedure Tmytest.Set_test(Value: SYSINT);
begin
if Ftest <> Value then
FTest := Value;
end;

呵呵，愚蠢，郁闷，龌龊，真笨，多谢兄台！