SOCKETS?

xiaorou00 2002-05-09 10:05:30
程序界面 一个MEMO 两个按钮 (一个LISTING 一个SEND)
程序功能 当按下LISTING时 程序处于LISTING状态
当按下LISTING时 程序可以发送BUF(MEMO)的数据到处于LISTING状态的电脑上!

帮我 看看这段代码又什么问题?

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <winsock.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
WSADATA ws;
SOCKET sock;
struct sockaddr_in server_addr;


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Onlisten(void)
{
int bindflag,acceptflag,listenflag;
int iResult;
long lResult;
char strSubAddr[100], strBuffer[100];

lResult = WSAStartup(0x0101,&ws);
sock = socket(AF_INET,SOCK_STREAM,0);
if(sock<0)
ShowMessage("error!");
server_addr.sin_family=AF_INET;
server_addr.sin_addr.s_addr=INADDR_ANY;//本机地址
server_addr.sin_port=htons(10000);

bindflag=bind(sock,(struct sockaddr *)&server_addr,sizeof(struct sockaddr));

listenflag=listen(sock,2);//最大连接数据为2

if(listenflag<0)
{
ShowMessage("接受连接失败");
exit(1);
}
else
ShowMessage("Listing");
acceptflag=accept(sock,NULL,NULL);//null
if(acceptflag<0)
ShowMessage("接受连接失败");
//MessageBox("接受连接失败","出错",MB_ICONERROR);
}
void __fastcall TForm1::ButtonSendClick(TObject *Sender)
{
send(connectflag,"************欢迎来到************",100,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonListenClick(TObject *Sender)
{
Onlisten();
}
//
...全文
50 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
libamboo 2002-05-10
  • 打赏
  • 举报
回复
学习
xiaorou00 2002-05-09
  • 打赏
  • 举报
回复
详细点!!
大大怪老张 2002-05-09
  • 打赏
  • 举报
回复
if(sock<0)
{
ShowMessage("error!");
return ;
}


if(sock<0)
ShowMessage("error!");
else
{
...//绑定,监听的代码
}

xiaorou00 2002-05-09
  • 打赏
  • 举报
回复
要学习嘛 要是不用API 就没什么含义了!
RedGuest 2002-05-09
  • 打赏
  • 举报
回复
为什么一定要用api呢?:)呵呵
================================================================

CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!

★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。

★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。

Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]

RedGuest 2002-05-09
  • 打赏
  • 举报
回复
为什么一定要用api呢?:)呵呵

关注.............................................
RedGuest 2002-05-09
  • 打赏
  • 举报
回复
为什么一定要用api呢?:)呵呵

关注......................................................
================================================================

CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!

★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。

★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。

Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]

xiaorou00 2002-05-09
  • 打赏
  • 举报
回复
详细点!!
xiaorou00 2002-05-09
  • 打赏
  • 举报
回复
详细点!!

13,870

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧