在PB中使用WINSOCK控件[1]

在WINDOWS应用程序中 处理实时通讯最常用到的还是MICROSOFT公司提供的WINSOCK控件 笔者因为实际应用的需要 琢磨出了WINSOCK控件在PB中的应用方法

下面以一个简单程序为例 说明WINSOCK控件在PB中的使用

一 在窗口中添加WINSOCK控件

在应用中新开一个窗口 在窗口画板中点击controls >OLE菜单项 d出Insert object窗口 单击Insert control标签 从列表框中双击选定Microsoft Winsock control 将winsock的图标贴在窗口上

在程序中该控件名称定为winsock_a（甲方）和winsock_b（乙方）

二 设置信息输入输出文本框

在窗口中增加一个按钮cb_ 两个单行文本框sle_ sle_ 分别用于输入要发送的字符串和接受对方发送的字符串

三 设置通讯协议

WINSOCK控件允许用户以UDP和TCP两种协议中任选一种进行通讯

UDP协议设置 UDP协议是一种无连接的通讯协议 在通讯之前 需要绑定remotehost和remoteport属性 如果需要双向通讯 还要设置localport属性

在甲方（本机地址为 ）窗口的Open事件中加入如下语句

winsock_a object protocol=

//winsock通讯协议设为UDP协议

winsock_a object remotehost=

//对方的ip地址

winsock_a object remoteport=

//对方的winsock通讯端口号

winsock_a object localport=

//本机的winsock通讯端口号

winsock_a object bind

//绑定通讯协议

在乙方（本机地址为 ）窗口的Open事件中加入如下语句

winsock_b object protocol=

//winsock通讯协议设为UDP协议

winsock_b object remotehost=

//对方的ip地址

winsock_b object remoteport=

//对方的winsock通讯端口号

winsock_b object localport=

//本机的winsock通讯端口号

winsock_b object bin

//绑定通讯协议

TCP协议设置 TCP协议在通讯前需要进行连接

在甲方（作为服务器端）窗口的Open事件中加入如下语句

lishixinzhi/Article/program/PB/201311/24621

你要插入的数据是多个字段还是一个字段？如果是一个字段的话，大概可以这么写：

//按钮的clicked事件

string

ls_text

ls_text

=

trim(sle_1.text)

insert

into

table_name

values

(ls_text...)//这个语句根据实际写，如果是多个字段，可截取。也可以分多个文本控件

if

sqlca.sqlcode...

flag是个标志 其实是个变量参数.当flag = 1时则表示按下的数字是前面数字的一部分（譬如按下1 怎在sle_1单行编辑框上显示数字‘1’，然后再点3 则le_1单行编辑框上显示数字‘13’以此类推），flag =0 表示按下的数字是一个新数字的开始.（譬如按下5 怎在sle_1单行编辑框上只显示数字‘5’）

这段代码的意思就是 先做一个if ...end if判断语句 当flag = 0时（为真，就是这是新的数字，点击完在sle_1单行编辑框中显示这个数字）最后 不管是以上哪两种情况的输入 最后在sle_1单行编辑框控件上都显示出数字. 这是高校计算机教材 一上来的案例，如还有不懂的 可以截图给我 我帮你分析

---