代码搜索:TCustomWinSocket
找到约 412 项符合「TCustomWinSocket」的源代码
代码结果 412
www.eeworm.com/read/455619/7369416
pas httpproxy.pas
{
Http proxy
Created By LLJ 2003-05-07
代理服务器工作:
1、客户机 Socket 连接上: 在连接链中增加一个连接纪录(TSessionRec)节点。
2、客户端发送连接请求数据: 根据请求数据取得客户端要连接的目标主机的地址
和端口,并连接目标主
www.eeworm.com/read/451783/7455624
~pas client.~pas
unit client;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
www.eeworm.com/read/441277/7672185
pas clientunit.pas
unit ClientUnit;
//说明: 这是一个简单的实例, 仅仅表明属性设置, 事件编程, 连接及连接情况,
// 发送数据,接收数据的全过程. 其中的发送和接收使用的方法
// SendText和ReceiveText 都是针对字符串的,
// 现实中的数据应该是二进制数据, 应该使用
// Sendbuf和Receiv
www.eeworm.com/read/441277/7672186
pas serverunit.pas
unit ServerUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ScktComp, ExtCtrls;
type
TForm1 = class(TForm)
www.eeworm.com/read/441277/7672193
~pas serverunit.~pas
unit ServerUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ScktComp, ExtCtrls;
type
TForm1 = class(TForm)
www.eeworm.com/read/441277/7672202
~pas clientunit.~pas
unit ClientUnit;
//说明: 这是一个简单的实例, 仅仅表明属性设置, 事件编程, 连接及连接情况,
// 发送数据,接收数据的全过程. 其中的发送和接收使用的方法
// SendText和ReceiveText 都是针对字符串的,
// 现实中的数据应该是二进制数据, 应该使用
// Sendbuf和Receiv
www.eeworm.com/read/440976/7678350
pas untsrv.pas
unit UntSrv;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TFrmSrv = class(TForm)
SrvSocket: TServe
www.eeworm.com/read/440976/7678359
~pas untsrv.~pas
unit UntSrv;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TFrmSrv = class(TForm)
SrvSocket: TServe
www.eeworm.com/read/440946/7678671
pas intermsgclient.pas
unit InterMsgClient;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, JSocket;
type
TFrmMsgClient = class(TForm)
MsgClient: TCl
www.eeworm.com/read/440946/7678706
pas interservermsg.pas
unit InterServerMsg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, JSocket,ObjBase;
type
TServerMsgInfo = record
Socket :