VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 27|回复: 14

再问winsock问题!

[复制链接]

1

主题

6

帖子

7

积分

新手上路

Rank: 1

积分
7
发表于 2020-1-30 03:20:01 | 显示全部楼层 |阅读模式
按照下面的例子我死活无法实现发送文字!

一、在窗口中添加WINSOCK控件:
  在应用中新开一个窗口,在窗口画板中点击controls-->OLE菜单项,弹出Insert object窗口,
单击Insert control标签,从列表框中双击选定Microsoft Winsock control,将winsock的图标贴在窗口上。
  在程序中该控件名称定为winsock_a(甲方)和winsock_b(乙方)。

  二、设置信息输入输出文本框:
  在窗口中增加一个按钮cb_1,两个单行文本框sle_1,sle_2,分别用于输入要发送的字符串和接受对方发送的字符串。

  三、设置通讯协议:WINSOCK控件允许用户以UDP和TCP两种协议中任选一种进行通讯。
  1、UDP协议设置:UDP协议是一种无连接的通讯协议,在通讯之前,需要绑定remotehost和remoteport属性,如果需要双向通讯,还要设置localport属性。
  在甲方(本机地址为:134.1.1.1)窗口的Open事件中加入如下语句:
  winsock_a.object.protocol=1 //winsock通讯协议设为UDP协议
  winsock_a.object.remotehost="134.1.1.2" //对方的ip地址
  winsock_a.object.remoteport=6000 //对方的winsock通讯端口号
  winsock_a.object.localport=6001 //本机的winsock通讯端口号
  winsock_a.object.bind //绑定通讯协议
  在乙方(本机地址为:134.1.1.2)窗口的Open事件中加入如下语句:
  winsock_b.object.protocol=1 //winsock通讯协议设为UDP协议
  winsock_b.object.remotehost="134.1.1.1" //对方的ip地址
  winsock_b.object.remoteport=6001 //对方的winsock通讯端口号
  winsock_b.object.localport=6000 //本机的winsock通讯端口号
  winsock_b.object.bin //绑定通讯协议
  2、TCP协议设置:TCP协议在通讯前需要进行连接。
  在甲方(作为服务器端)窗口的Open事件中加入如下语句:
  winsock_a.object.protocol=0 //winsock通讯协议设为TCP协议
  winsock_a.object.localport=6001 //本机的winsock通讯端口号
  winsock_a.listen() //启动监听
  在甲方winsock_a控件的Connectionrequest事件中加入如下语句:
  //接受到对方的连接请求后
  if winsock_a.object.state<>0 then
    winsock_a.close()
  end if
  winsock_a.accept(requestID) //建立直接连接
  //requestID是Connectionrequest事件自己的参数
  在乙方(作为客户端)窗口的Open事件中加入如下语句:
  winsock_b.object.protocol=0 //winsock通讯协议设为TCP协议
  winsock_b.object.remotehost="134.1.1.2" //对方的ip地址
  winsock_b.object.remoteport=6000 //对方的winsock通讯端口号
  winsock_b.connect() //发出连接请求
  3、无论采用哪种协议,都要在窗口的Close事件中加入如下语句:
  if winsock_a/*或winsock_b*/.object.state< >0 then
    winsock_a.close()
  end if
  否则可能第二次使用时发生异常问题。

  四、开始通讯
  在按钮cb_1(caption属性设为‘发送’)的click事件中加入如下语句:
  winsock_a/*或winsock_b*/.object.send (sle_1.text)
  在winsock_a/*或winsock_b*/控件的dataarrival事件中加入如下语句:
  //接受到对方数据后
  string datastr1 winsock_a/*或winsock_b*/.object.getdata (ref datastr1) sle_2.text=datastr1 //将数据字符串显示在文本框中。

总是提示“error calling extenal object function senddata ……”
send,senddata我都试过了,send提示没有此函数。senddata提示上面的错误,好像senddata函数没有申明!tcp/ip,UDP模式我都试过了,不行啊!请大侠指点啊!

回复

使用道具 举报

0

主题

21

帖子

18

积分

新手上路

Rank: 1

积分
18
发表于 2020-6-18 16:00:02 | 显示全部楼层
按钮cb_1

any a
a = sle_1.text
winsock_b.object.senddata (a)
回复

使用道具 举报

0

主题

21

帖子

18

积分

新手上路

Rank: 1

积分
18
发表于 2020-6-18 19:45:01 | 显示全部楼层
winsock_b.object.remotehost="134.1.1.2" //对方的ip地址
winsock_b.object.remoteport=6000

为了对应,上边的要改成
winsock_b.object.remotehost="127.0.0.1" //对方的ip地址
winsock_b.object.remoteport=6001
回复

使用道具 举报

1

主题

6

帖子

7

积分

新手上路

Rank: 1

积分
7
 楼主| 发表于 2020-7-9 03:30:02 | 显示全部楼层
楼上的,你的办法我也试了,效果……

用winsock控件做过局域网聊天程序的朋友指点一二!~
回复

使用道具 举报

0

主题

1

帖子

2

积分

新手上路

Rank: 1

积分
2
发表于 2020-8-3 13:45:01 | 显示全部楼层
到网上搜一下winsock.pbl就全明白了,pb的OLE?唉...
回复

使用道具 举报

1

主题

9

帖子

9

积分

新手上路

Rank: 1

积分
9
发表于 2020-8-4 13:00:01 | 显示全部楼层
Winsock我用过呀,可以用的,你试试区分大小写吧.
现在不用PB,机上连PB都没装,也懒得看源程序了
回复

使用道具 举报

1

主题

9

帖子

9

积分

新手上路

Rank: 1

积分
9
发表于 2020-8-8 01:45:01 | 显示全部楼层
在窗口上放winsock控件名字叫Winsock1

IF Winsock1.Object.State <> 0 THEN RETURN -1

Winsock1.Object.Connect( ip,端口)
//IF NOT wf_Reply_Success() THEN RETURN 1 //wf_Reply_Success 等待对方的返回,这里省略
//这里加延时语句,因为连接要时间
if Winsock1.Object.State > 0 //如果连接成功 State 应该是=1
Winsock1.Object.SendData( "hello")

Winsock1.Object.Close()
回复

使用道具 举报

1

主题

6

帖子

7

积分

新手上路

Rank: 1

积分
7
 楼主| 发表于 2020-8-8 15:45:01 | 显示全部楼层
心系部落 你的方法好像不能实现双工啊,能实现QQ那样的聊天功能吗?
回复

使用道具 举报

0

主题

5

帖子

5

积分

新手上路

Rank: 1

积分
5
发表于 2020-8-8 16:30:01 | 显示全部楼层
用ole写不够稳定吧,干脆用c写个dll负责收发得了
回复

使用道具 举报

1

主题

9

帖子

9

积分

新手上路

Rank: 1

积分
9
发表于 2020-8-8 21:45:02 | 显示全部楼层
如果你不用ole,你可以用pb以前提供的一个winsock类库 winsock.pbl ! www.pdriver.com 上有
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2020|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表