双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

为什么服务器只接受一个客户端的连接？

2003-11-16 03:22:57 182 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lincoke 墨衍会员 · AI 创作全网分发关注 + 加入社区

1. 通过网络编程实现一个C/S模式的员工管理系统，服务器端用多进程等模型接受多个客户端同时连接、操作。具体内容要求 1. 通过网络编程实现一个C/S模式的员工管理系统，服务器端用多进程等模型接受多个客户端同时连接、操作。具体内容要求如下：（1）员工只需要三个字段：姓名，年龄，手机号，用结构体表示；（2）服务器功能：添加新员工--接受客户端发送来的新员工结构体数据，追加到数据文件 emp.db 中；员工列表-- 把emp.db 每个员工结构体数据读出发回客户端；（3）客户端功能：添加新员工--键盘读取新员工信息并构造为结构体变量，发到服务器以添加；员工列表--向服务器要求员工列表并接收后显示到终端中。阅读详情

用的是socket+ado当一个客户端连接上时，，第二个客户端就连不上了，会出现
"windows socket error:通常每个套接字地址（协议/网络地址/端口）只允许使用一次。（10048），on API 'bind'"
怎么解决？？

...全文

TCP 多线程——一个服务器被多个客户端连接为了使一个服务器端能被多个客户端连接我们采用线程的方法，服务器创建一个线程之后，打开的套接字就被线程所继承，线程可以和连接的客户进行通信，而主线程（主服务器）可以继续接受以后的客户连接，即Accept之后产生一个c，然后将c传递给新创建线程，让线程去接收数据和回复确认信息（和客户端沟通），然后主线程中继续处理其他客户端发来的请求，然后再继续创建线程如此循环。可以根据下面的图进行理解服... 阅读详情

lincoke

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

一年 2003-11-24

打赏
举报

Application server 的remote data moduler 是不是单线程？

wshuo 2003-11-20

打赏
举报

你这个代码，还不如不贴出来，看看线层模型对不对？可以用Dcom试试，看看行不行。

lincoke 2003-11-19

打赏
举报

以下是服务器主程序，高手帮忙看看，哪里错了？？？

unit Unit2;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
Windows, Messages, SysUtils, Variants,Forms,Classes, ComServ, ComObj, VCLCom, DataBkr,
Dialogs, DBClient, Project1_TLB, StdVcl, DBTables, Provider, DB, ADODB,
ScktComp;

type
Tjobman = class(TRemoteDataModule, Ijobman)
ADOConnection1: TADOConnection;
unit_login: TADOQuery;
unit_loginpro: TDataSetProvider;
jobs: TADOQuery;
jobs_pro: TDataSetProvider;
comm: TADOQuery;
comm_pro: TDataSetProvider;
Session1: TSession;
fact_look: TADOQuery;
fact_lookpro: TDataSetProvider;
job_class: TADOQuery;
job_classpro: TDataSetProvider;
ServerSocket1: TServerSocket;
ADOQuery1: TADOQuery;
DataSetProvider1: TDataSetProvider;
factpro2: TDataSetProvider;
fact2: TADOQuery;
function DataSetProvider3DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
procedure fact_lookproBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
private
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
procedure SQLDeal(var SQLDeal: OleVariant); safecall;
procedure jobsel(var job: OleVariant); safecall;
public
{ Public declarations }
end;

implementation

{$R *.DFM}

class procedure Tjobman.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;

procedure Tjobman.SQLDeal(var SQLDeal: OleVariant);
begin

end;

procedure Tjobman.jobsel(var job: OleVariant);
begin

end;

function Tjobman.DataSetProvider3DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
var
irecords:integer;
begin

end;

procedure Tjobman.fact_lookproBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
begin

Applied:=true;
end;

initialization
TComponentFactory.Create(ComServer, Tjobman,
Class_jobman, ciMultiInstance, tmApartment);
end.

xiechong 2003-11-16

打赏
举报

把ADOconnction关闭试试，我曾遇过，我是这么做的

lincoke 2003-11-16

打赏
举报

已打包了

jianke5555 2003-11-16

打赏
举报

重新编译一下程序也不行？？

司码君 2003-11-16

打赏
举报

我的DCOM也有同样的问题！！
我帮你up

✦双11狂欢大促✦

为什么服务器只接受一个客户端的连接？

相关推荐

双11狂欢大促