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

关于拨号程序的问题，在线等待，急！！200分

楼主xiaobzg（小兵张嘎）2002-11-23 14:05:16 在 PowerBuilder / 基础类提问

我在使用API(rasdials)在PB中进行拨号操作遇到了问题
1、在2000下正常，在98下提示623错误号，而且拨号设备一切正常，通过windows自带的拨号程序可以使用
2、在98中我在拨号连接中添加了一个我的连接后，有的机器就可以正常拨号，有的机器还是不行，而在2000下不用建就可以直接连接拨号
请问大家什么原因？高手帮忙，在线等待问题点数：200、回复次数：17Top

1 楼sinkiangscorpio（诸葛军师）回复于 2002-11-23 14:28:54 得分 100

§1.2.1 要注意的问题
要声明一个gb_has_connected的boolean变量，否则在NT环境下会不停地检查当前连接状态，甚至在n_ras_pro被释放之后！

§1.2.2 对象n_ras_pro的Of_dial()函数
. . . . . .

ulong ll_Notifier = 4294967295 //等于0xFFFFFFFF<WINAPI定义>

. . . . . .

gb_has_connected = false //允许进入do... while循环，读取现在的连接状态

SetNull( ls_Null )

lstr_RDP.dwSize = 1052

lstr_RDP.szEntryName = gs_connection_name; //这是在win98/winNT环境下的拨号连接的名称

lstr_RDP.szPhoneNumber = as_entry; //电话号码

lstr_RDP.szCallbackNumber[1] = Char(0)

lstr_RDP.szUserName = as_User

lstr_RDP.szPassword = as_Pass

lstr_RDP.szDomain = '*'

il_RasCon = 0

ll_Ret = RasDialA( ls_Null, ls_Null, lstr_RDP, ll_Notifier, ai_hWnd, il_RasCon )
Top

2 楼xiaobzg（小兵张嘎）回复于 2002-11-23 14:40:39 得分 0

lstr_RDP.szEntryName = gs_connection_name; //这是在win98/winNT环境下的拨号连接的名称

是在window环境下手动建立的例如（我的连接）的连接？Top

3 楼myclife（反方向的钟）回复于 2002-11-23 15:51:47 得分 20

没用过，是不是连接参数有差异？？？Top

4 楼xiaobzg（小兵张嘎）回复于 2002-11-23 15:59:15 得分 0

帮忙upTop

5 楼sinkiangscorpio（诸葛军师）回复于 2002-11-23 16:27:08 得分 0

ws_rasdialparms lstr_rdp
string ls_Null
long ll_ret
ulong ll_notifier = 4294967295
ws_rasstatus lstr_rcs
integer rascs_done=8192
integer li_ok

setnull(ls_null)

lstr_rdp.dwsize=1052
lstr_rdp.szentryname=""
lstr_rdp.szphonenumber=as_entry
lstr_rdp.szcallbacknumber[1]=char(0)
lstr_rdp.szusername=as_user
lstr_rdp.szpassword=as_pass
lstr_rdp.szdomain='guohao'

il_Rascon=0
ll_ret=RasDialA(ls_null,ls_null,lstr_rdp,ll_notifier,ai_hWnd,il_Rascon)

if ll_ret=0 then
lstr_RCS.usize=60
do
li_ok=RasGetConnectStatusA(il_Rascon,lstr_RCS)
yield()

// loop while lstr_RCS.uError=0 and lstr_RCS.RasConnstatus<>RASCS_done
loop while lstr_RCS.RasConnstatus<=17 or lstr_RCS.RasConnstatus=8192
end if

if lstr_RCS.RasConnstatus=8193 and lstr_RCS.uError=676 then
telnet_shuaxin.cb_2.triggerevent(clicked!)
messagebox("没有应答","本机电话外线被占用或远程服务器正忙~n请稍后再拨")
elseif lstr_RCS.RasConnstatus=8193 and lstr_RCS.uError=678 then
telnet_shuaxin.cb_2.triggerevent(clicked!)
messagebox("没有应答","远程服务器没有开通,不响应~n请与管理员联系")
elseif lstr_RCS.RasConnstatus=8193 and lstr_RCS.uError=680 then
telnet_shuaxin.cb_2.triggerevent(clicked!)
messagebox("错误","无拨号音,~n请检查电话线是否接上")
elseif lstr_RCS.RasConnstatus=8193 and lstr_RCS.uError=630 then
telnet_shuaxin.cb_2.triggerevent(clicked!)
messagebox("错误","无拨号音,~n请检查调制解调器是否打开")
elseif lstr_RCS.RasConnstatus=8193 and lstr_RCS.uError=631 then
messagebox("挂机","已由人工挂断电话")
elseif lstr_RCS.RasConnstatus=8193 then
telnet_shuaxin.cb_2.triggerevent(clicked!)
messagebox("拨号上网错误","错误号为:"+string(lstr_RCS.uError)+"~请再试一次如还不行请找管理员")
end if

return ll_ret
Top

6 楼ldy（罗大佑）回复于 2002-11-23 16:29:15 得分 10

对不起，我没做过拨号的程序。帮不了你
：（Top

7 楼flyhot（阳光清晨）回复于 2002-11-23 16:33:57 得分 10

up!Top

8 楼888888888888（888888888888）回复于 2002-11-23 16:36:28 得分 10

我想是机器的原因，多换几台机子试试。在配置Top

9 楼xiaobzg（小兵张嘎）回复于 2002-11-23 16:41:33 得分 0

谢谢大家支持

ll_ret=RasDialA(ls_null,ls_null,lstr_rdp,ll_notifier,ai_hWnd,il_Rascon)

返回错误号623不知道是什么错误？Top

10 楼xiaobzg（小兵张嘎）回复于 2002-11-23 16:42:53 得分 0

不是机器的问题，我换了几台，98下都是返回623错误
内猫和外猫都是这样，郁闷中……Top

11 楼pufan（）回复于 2002-11-23 18:14:23 得分 10

没做过拨号,帮你up一下吧.Top

12 楼sinkiangscorpio（诸葛军师）回复于 2002-11-24 14:44:48 得分 10

lstr_rdp.szentryname=""
设置成空不可以吗?我也没有作过Top

13 楼banalman（IT解放者）回复于 2002-11-24 15:19:26 得分 10

帮你upTop

14 楼hzhxxx（程序方程）回复于 2002-11-25 08:28:46 得分 10

没做过拨号,帮你up一下吧.

我回去查一下资料!Top

15 楼killerdanny（堕落的瓦拉斯塔兹）回复于 2002-11-25 10:28:46 得分 10

把你的MAIL留下来。我给你一个程序。Top

16 楼xiaobzg（小兵张嘎）回复于 2002-12-17 08:46:04 得分 0

sunhao@big-china.comTop

17 楼sinkiangscorpio（诸葛军师）回复于 2002-12-17 09:43:12 得分 0

最后怎么解决的Top