| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 713 人关注过本帖
标题:服务器和客户端的问题
只看楼主 加入收藏
sxxinhuastudent
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-10-7
收藏
 问题点数:0 回复次数:2 
服务器和客户端的问题
请教各位高手:我做了个VB的局域网点播程序,但这个程序太让我头痛了.我只做了一部分.由于服务端的程序和客户端的程序都不知道怎么写了.所以请高手帮我修改下.以实现功能.
服务器程序如下:
form_load
winsock1.localport=1010
winsock1.listen
endsub
winsock1_close
winsock1.close
winsock1.listen
endsub
winsock_connectrequest
ifwinsock.state <>sckclosedthen
winsock.close
winsock.acceptrequestid
winsock1.senddataform1.label1.caption&vbcrlf
winsock1.senddataform1.label1.caption&vbcrlf
winsock1.senddataform1.label1.caption
endif
endsub
combo1.click
winsock1.senddatacombo1.text
endsub
以上这段程序是服务器端的.它可以实现客户端连接成功后,自动把窗体上的三个标签的标题文字发送到客户端窗体上的一个组合框中.然后,当用户从组合框中选择一项后,winsock自动把用户的选择项目发送到服务端.
下面是客户端程序.
command1_click
winsock1.connect
command1.enabled=false
endsub
form_load
winsock1.remotehost="192.168.1.250"
winsock1.remoteport=1010
endsub
winsock1_dataarrival
dim a as string
dim t as string
winsock1.getdata a
t=split(a,vbcrlf)
for i=lbound(t) to ubound(t)
combo1.additem t(i)
next i
endsub
以上这段是客户端程序,我的难题是:当用户在客户端的组合框当中选择一项后,客户端winsock自动把用户所选择的项目发送到服务器,然后在服务器的winsock_dataarrival事件当中,我想用一个判断语句(IF...THEN...)来让程序根据用户的选择自动用winsock来发送所对应的一个列表框中的所有的项目文字到客户端的第二个组合框中(客户端有两个组合框).但双方的实现这个功能的代码我不会写了.(也就是说服务器在接到用户的选择后,如何在它的winsock_dataarrival当中用IF...THEN...语句进行判断并把所对应的一个列表框中的所有项目文字都用winsock发送出去到客户端和客户端接到数据后,如何把数据一项一项的加入到第二个组合框当中?双方的这部分程序不会写)请各位高手根据我说的这个意思和我写的这两段代码的基础上帮我解决这个问题.因为我的水平实在低了点.所以麻烦高手们帮助写出简单的但又能够融合到我自己写的这两个程序中的代码.多谢高位了!!
搜索更多相关主题的帖子: 服务器 客户 
2008-10-26 17:09
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
这问题,我不是回答了吗?

授人于鱼,不如授人于渔
早已停用QQ了
2008-10-26 19:57
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 

授人于鱼,不如授人于渔
早已停用QQ了
2008-10-26 20:00
快速回复:服务器和客户端的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017944 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved