花落谁家，你作主！	盛大widget设计大赛英雄榜

求教:关于应用服务器返回字符值?

楼主njwlm（海王星）2002-01-15 08:58:08 在 Delphi / VCL组件开发及应用提问

我在开发三层结构中,要做一个用户登陆的校验功能,想调用应用服务器上的一个login的自定义函数,我想通过这个函数能返回用户的汉字名,不知对于返回的参数要选择何种类型的变量才能实现,还是根本就不能返回字符型变量?求教各位大侠! 问题点数：30、回复次数：10Top

1 楼lwm8246（lwm8246）回复于 2002-01-15 09:02:40 得分 20

olevaiant //让系统去转换Top

2 楼zds0707（周）回复于 2002-01-15 09:16:35 得分 5

client server(typLib) db
widestring bstr varcharTop

3 楼errorcode（errorcode）回复于 2002-01-15 09:24:41 得分 5

如果你的客户端使用Delphi编写，可以使用WideString
否则使用OleVariantTop

4 楼zws（）回复于 2002-01-15 13:17:27 得分 0

OleVariantTop

5 楼njwlm（海王星）回复于 2002-01-15 16:06:29 得分 0

可是这个olevariant如何才能转换成一个string?Top

6 楼njwlm（海王星）回复于 2002-01-15 16:10:08 得分 0

比如说在服务器端:result:='用户汉字名',
那么在客户端,form1.edit1.text:=comd1.appserver.login('username','password');
这样不行吧?
Top

7 楼njwlm（海王星）回复于 2002-01-15 16:14:58 得分 0

gz1Top

8 楼lwm8246（lwm8246）回复于 2002-01-15 16:44:35 得分 0

//appserver.login(var V:olevariant);

//client
var
v:olevariant;
begin
v := 'UserName';
xxxx.appserver.login(V)
if V='TRUE' then showMessage('ok') else showMessage('no');
end;

// Server:
procedure xxxxx.login(var V:olevariant)
begin
if V ='XXX' then V='TRUE' else V:='FALSE';
end;

Top

9 楼njwlm（海王星）回复于 2002-01-15 17:10:13 得分 0

谢谢诸位高手,给你们分Top

10 楼njwlm（海王星）回复于 2002-01-15 17:11:53 得分 0

aaTop