用WinSock控件编写网络聊天器

来源：yesky 作者：网人 出处：巧巧读书 2006-02-07 进入讨论组

• 关 键 词：
• c++builder
• winsock控件
• internet
• tcp/ip协议
• windows

上一页 1 2 3 4 5 下一页 

精华网络内容 :http://www.qqread.com/network/

//-------------------------- //"Unit1.h"的源程序 //-------------------
#ifndef Unit1H
#define Unit1H
//--------------------------------------------------------------------
#include $#@60;Classes.hpp$#@62;
#include $#@60;Controls.hpp$#@62;
#include $#@60;StdCtrls.hpp$#@62;
#include $#@60;Forms.hpp$#@62;
#include $#@60;ScktComp.hpp$#@62;
#include $#@60;ExtCtrls.hpp$#@62;
#include $#@60;ComCtrls.hpp$#@62;
#include $#@60;Menus.hpp$#@62;
#include $#@60;ToolWin.hpp$#@62;
//---------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TClientSocket *ClientSocket1;
TServerSocket *ServerSocket1;
TMemo *Memo1;
TStatusBar *StatusBar1;
TEdit *Edit1;
TLabel *Label1;
TTreeView *TreeView1;
TLabel *Label2;
TEdit *Edit2;
TButton *Btnlisten;
TButton *Btnconnect;
TButton *Btndisconnect;
TButton *BtnExit;
void __fastcall FormCreate(TObject *Sender);
void __fastcall ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall ServerSocket1Accept(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall ServerSocket1ClientDisconnect(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall ClientSocket1Disconnect(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall ClientSocket1Error(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
int &ErrorCode);
void __fastcall ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall Edit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall ClientSocket1Lookup(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall TreeView1Change(TObject *Sender, TTreeNode *Node);
void __fastcall BtnlistenClick(TObject *Sender);
void __fastcall BtnconnectClick(TObject *Sender);
void __fastcall BtndisconnectClick(TObject *Sender);
void __fastcall BtnExitClick(TObject *Sender);
private:
bool IsServer;
String Server;
// User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//--------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//--------------------------------------------------------------------------
#endif //"Unit1.cpp"源程序 //-----------------------------------------------
#include $#@60;vcl.h$#@62;
#include $#@60;stdio.h$#@62;
#pragma hdrstop #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
IsServer=false;
Server="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Btndisconnect-$#@62;Enabled=false;
} //--------------------------------------------------------------------------- 更多内容请看网络管理实用手册、网络故障手册、网络组网专题专题，或进入讨论组讨论。

上一页 1 2 3 4 5 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：计算机短信DIY

较新的文章：读书软件做自己的