如何使用Socket API函数来连接服务端、发送消息(100分)

okla · 2001-04-20

如果调用API函数连接Socket服务器并发消息该怎么写？我不想用ClientSocket构件。 另外如果使用ClientSocket构件,我在DLL中用ClientSocket构件连接Socket服务器，可调 用DLL后连接时总出错，而设计期时又能连接成功，怎么回事？我放了一个 TCustomerData在DLL中，ClientSocket就放在CustomerData中。

steve · 2001-04-20

这样应该没有什么问题啊，奇怪。 其实也没有什么难的。 如果是tcp： socket-->bind-->connect-->recv-->send 如果是ucp： socket-->bind-->send-->recv

zhengjunfeng · 2001-04-21

你到底在问什么问题？ socket的设计步骤都是有规范的，找个离子看看不就行了。

mimisu29 · 2001-04-21

大家帮帮忙，给看一下 &nbsp; <a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=506445"> “寻找简单的方法，filter消息”</a> 如有违反论坛规则，还请版主砍掉并批评指出

alongxu · 2001-04-21

用WINSOCKS API 函数进行通讯。函数功能详见DELPHI帮助。 unit uses  winsock,...;//winsock单元可在delphi目录中找到。 var   Form1: TForm1;   xl_socket:Tsocket; implementation procedure TForm1.Button1Click(Sender: TObject); VAR XL_VERSION:WORD; XL_WSADATA:tWSADATA; RET:INTEGER; hostname:string; server_port:integer; xl_hostent

hostent; xl_sockaddrin:TSOCKADDRIN; psaddr:^longint; saddr:integer; begin      server_port:=8080;      hostname:='111.111.111.111';      xl_sockaddrin.sin_port:=htons(server_port);      xl_sockaddrin.sin_family:=PF_INET;      xl_hostent:=gethostbyname(PCHAR(HOSTNAME));      IF xl_hostent=nil then      begin           saddr:=inet_addr(pchar(hostname));           if saddr<>-1 then              xl_sockaddrin.sin_addr.S_addr:= saddr;      end      ELSE      BEGIN           psaddr:=pointer(xl_hostent.h_addr_list^);           xl_sockaddrin.sin_addr.S_addr:=psaddr^;      END;      XL_VERSION:=$101;      RET:=WSASTARTUP(XL_VERSION,XL_WSADATA);      IF RET=0 THEN      BEGIN           APPLICATION.MessageBox(初始化成功','注意',mb_ok);           xl_socket:=socket(PF_INET,SOCK_STREAM,IPPROTO_TCP);           IF XL_SOCKET=INVALID_SOCKET THEN              APPLICATION.MessageBox('SOCKET创建失败','注意',mb_ok)           else           begin                APPLICATION.MessageBox('SOCKET创建成功','注意',mb_ok);                RET:=CONNECT(xl_socket,xl_sockaddrin,sizeof(xl_sockaddrin));                if ret=socket_error then                begin                    APPLICATION.MessageBox('SOCKET连接失败','注意',mb_ok);                    ret:=closesocket(xl_socket);                    if ret=0 then                       APPLICATION.MessageBox('SOCKET释放成功!','注意',mb_ok);                end                else                begin                    APPLICATION.MessageBox('SOCKET连接成功!','注意',mb_ok);                    button2.Enabled:=true;                    button3.Enabled:=true;                    exit;                end;           end;           WSAcleanup;      END; procedure TForm1.Button3Click(Sender: TObject);//发送 var ret,len:integer; s:string; psend

char; begin       s:=memo1.text;       len:=length(s);       Psend:=stralloc(LEN);       STRPCOPY(Psend,S);       ret:=send(xl_socket,Psend^,len,0);       if ret<>SOCKET_ERROR then          application.MessageBox('发送成功','注意',mb_ok)       else          application.MessageBox('发送失败','注意',mb_ok); end;

fu_xiang_yu · 2001-04-22

这是服务器接受客户信息,再反送回去 program server1; uses windows,winsock; const myport=1414;//预定义口 {type 　sockaddr_in = record 　　case Integer of 　　　0: (sin_family: u_short; 　　　　　sin_port: u_short; 　　　　　sin_addr: TInAddr; 　　　　　sin_zero: array[0..7] of Char); 　　　1: (sa_family: u_short; 　　　　　sa_data: array[0..13] of Char) 　end; 　TSockAddrIn = sockaddr_in; 　PSOCKADDR = ^TSockAddr; 　TSockAddr = sockaddr_in; 　WSAData = record // !!! also WSDATA 　　wVersion: Word; 　　wHighVersion: Word; 　　szDescription: array[0..WSADESCRIPTION_LEN] of Char; 　　szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char; 　　iMaxSockets: Word; 　　iMaxUdpDg: Word; 　　lpVendorInfo: PChar; 　end; 　TWSAData = WSAData; end } var str:string; 　　s,ns:TSocket;//type:u_int|integer; 　　ver:word; 　　rece:TWSAData;//type:WSAData; 　　wsstatus:integer;//winsocket_status; 　　i,pktlen:integer; 　　szd:array[0..WSADESCRIPTION_LEN] of Char; 　　szs:array[0..WSASYS_STATUS_LEN] of Char; 　　server:TSockAddr;//tpye:sockaddr_in 　　client

SockAddr;//type:^sockaddr_in 　　namelen

Integer;//type:^Integer; 　　buf:array[0..1023] of char; begin ver:=514; write('WSAStartup = '); try wsstatus:=WSAStartup(ver,rece); //初始化winsock;在windows下是必须的过程 writeln(wsstatus);//winsock状态,0代表成功 if wsstatus=0 then begin writeln; writeln('********************************************************************'); //以下显示winsock状态 write('wVersion = '); writeln(rece.wVersion); write('wHighVersion = '); writeln(rece.wHighVersion); write('iMaxSockets = '); writeln(rece.iMaxSockets); write('iMaxUdpDg = '); writeln(rece.iMaxUdpDg); writeln('szDescription is '); for i:=0 to WSADESCRIPTION_LEN do write(szd); writeln; writeln('szSystemStatus is '); for i:=0 to WSASYS_STATUS_LEN do write(szs); writeln; writeln('********************************************************************'); end; write('socket = '); s:=socket(AF_INET,SOCK_STREAM,0); //第一步,建立服务器的socket,0表示成功 writeln(s); if s<0 then exit; write('bind = '); server.sin_family := AF_INET; server.sin_port := htons(myport); server.sin_addr.s_addr := INADDR_ANY; wsstatus:=bind(s,server,sizeof(server)); //第二步,绑定,0表示成功 writeln(wsstatus); if wsstatus<>0 then exit; write('listen = '); wsstatus:=listen(s,5); //第三步,监听 writeln(wsstatus); if wsstatus<>0 then exit; write('accept = '); new(client); new(namelen); namelen^:=sizeof(client^); ns:=accept(s,client,namelen); //第四步,等待接收 //注:bind时传递的是sockaddr_in结构的数据,accept时是两个指针!!! if ns=-1 then //以下可以做成多线程过程 　 begin 　 writeln(-1); 　 exit; 　 end 　 else 　 begin 　 writeln(ns); 　 pktlen:=0; 　 writeln('recv'); 　 repeat 　 pktlen:= recv(ns,buf,1024,0);//接收数据 //pktlen=为接收长度,0表示断开联接,<0表示失败 　 sleep(1); 　 write(pktlen:5); 　 if pktlen>0 then 　 begin 　 i:=send(ns,buf,pktlen,0);//返回数据 　 end; 　 until pktlen<1;//循环直到客户断开联接 　 end; finally writeln; writeln('******************************************************************'); writeln('Press to exit winsocket'); readln(str); wsstatus:=WSACleanup();//退出winsocket; write('WSACleanup = '); writeln(wsstatus); end; writeln; writeln('Press to exit'); readln(str); end.

okla · 2001-04-26

多人接受答案了。

driby · 2001-06-08

TO fu_xiang_yu: 怎样做成多线程过程，能否发源码给我？ email:zjl4507@sina.com

如何使用Socket API函数来连接服务端、发送消息(100分)

okla

Unregistered / Unconfirmed

steve

Unregistered / Unconfirmed

zhengjunfeng

Unregistered / Unconfirmed

mimisu29

Unregistered / Unconfirmed

alongxu

Unregistered / Unconfirmed

fu_xiang_yu

Unregistered / Unconfirmed

okla

Unregistered / Unconfirmed

driby

Unregistered / Unconfirmed

Similar threads