导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

[置顶] {下载}本站提供delphi下载

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

Delphi程序自动拨号连接网络

 

procedure TForm1.dialogon;    //启动拨号连接
var
fname:string;
myhand:hwnd;
mybutton:hwnd;
begin
fname:='rasphone.exe ';
ShellExecute(0,'open',pchar(fname),'-d 163',nil,sw_show);
sleep(300);
...

网络函数大公开

声明:本文摘自CSDN论坛上网友zsy_good的原作,经过了tomm的一些整理修改.



{=========================================================================

   功  能: 网络函数库

   时  间: 2002/10/02

   版  本: 1.0

...

利用ServerSocket和ClientSocket实现简单通讯

开始这前,在你的窗口中放入ServerSocket和ClientSocket控件。



ServerSocket的控件属性

threadcachsize:创建服务器线程的最大数目。

port:确定服务器的监视端口。

service:客户通过此属性来识别服务器端口。

ClientSocket的控件属性

Socket:此属性参数是应用程序之间通信的端点。

Address:此属性参数为字符串类型,客户端确定服务器端的IP地址。 Host:服务器端的主机名称。

Post:服务器端的监视端口。

Servce:用来识别服务器端口。

Active:确定Socket是否可用(true表示可用)。

ClientType:指定客户机采用哪一种方式(异步/同步)来通信。

ServerSocket的事件

 

为什么我的在线程里面创建ClientSocket1后无法激活事件呢

 当我们实在需要用到线程创建线程的时候,就必需先把第一个线程设置为等待,等待第二个VCL线程处理完毕后才能继续执行下去,否则会出现只执行一半就不执行的后果..

因为如果你不添加这个的话,Execute执行完之后,线程就不存在了,而你的clientSocket1是在线程当中创建并依赖线程执行而执行的。



使用这个能够实现阻塞模式。使用上面5楼的方式可以实现异步消息模式(差不多跟添加到Form当中相似了,只是执行的线程不同,所以在各事件当中最好不要操作VCL,如果需要操作,请使用相关的安全同步函数)。

阻塞方式下的Socket应用

使用sockets Socket控件让你建立一个利用TCP/IP和有关的协议与其他系统进行通信的应用。使用Sockets,你能够读和写通过它连接的其他机器,而不用担心实际的网络软件的相关细节。Sockets提供基于TCP/IP协议的连接。除此以外还能很好的工作,在其他相关的协议,例如Xerox Network System (XNS), Digital's DEC net, or Novell's IPX/SPX 家族。

C++ Builder提供你写网络服务器或客户应用程序去读和写其他的系统。一个服务或客户程序通常专注于一个单一的服务如超文本传送协议(HTTP)或文件传输协议(FTP)。使用server sockets,一个应用程序可以提供这些服务中的一个去连接一个希望使用服务的客户程序。Client sockets允许一个应用使用这些服务中的一个去连接提供这个服务的服务应用。

使用sockets去写应用程序,你必须理解下面这些知识:

一、服务工具

分页:[«]1[»]

日历

<< 2013-4 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

站内搜索

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved