📄 0,1410,26276,00.html

📁 C++builder学习资料C++builder
💻 HTML
📖 第 1 页 / 共 2 页
字号:
上一页 12
<br>#include &lt;Classes.hpp>  

<br>#include &lt;Controls.hpp>  

<br>#include &lt;StdCtrls.hpp>  

<br>#include &lt;Forms.hpp>  

<br>#include &lt;ScktComp.hpp>  

<br>//---------------------------------------------------------------------------  

<br>class TForm1 : public TForm  

<br>&#123;  

<br>&nbsp;&nbsp; __published: // IDE-managed Components  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TServerSocket *ServerSocket1;  

<br>&nbsp;&nbsp; TMemo *Memo1;  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; void __fastcall ServerSocket1GetThread(TObject  

*Sender,  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TServerClientWinSocket  

*ClientSocket, TServerClientThread *&amp;SocketThread);  

<br>&nbsp;&nbsp; private:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // User declarations  

<br>&nbsp;&nbsp; public:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // User  

declarations  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; __fastcall TForm1(TComponent* Owner);  

<br>&#125;;  

<br>//---------------------------------------------------------------------------  

<br>extern PACKAGE TForm1 *Form1;  

<br>//---------------------------------------------------------------------------  

<p>//---------------------------------------------------------------------------  

<br>// Threads for server connections are descendants of TServerClientThread.  

<br>// Thus, you may not use the New Thread object dialog.  

<br>// Instead, declare your thread manually as follows:  

<br>class PACKAGE TMyServerThread : public Scktcomp::TServerClientThread  

<br>&#123;  

<br>&nbsp;&nbsp; public:  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // if true, FreeOnTerminate is set to  

false before the thread terminates,  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // and the thread is left in the thread  

cache. When KeepInCache is false,  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // the thread is freed when execution  

terminates.  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; __fastcall TMyServerThread(bool CreateSuspended,  

TServerClientWinSocket* ASocket)  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : Scktcomp::TServerClientThread(CreateSuspended,  

ASocket)  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#123; CreateSuspended  

= false; KeepInCache=true; FreeOnTerminate=false; &#125;;  

<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // To implement this thread, you override  

the ClientExecute method instead of the Execute method.  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; void __fastcall ClientExecute(void);  

<br>&#125;;  

<br>//---------------------------------------------------------------------------  

<br>#endif  

<br>//---------------------------------------------------------------------------  

<br>// *******************************************************  

<br>//---------------------------------------------------------------------------  

<br>&nbsp;  

<br>&nbsp;  

<p>//---------------------------------------------------------------------------  

<br>// *****************&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  

ClientMain.cpp&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *****************  

<br>//---------------------------------------------------------------------------  

<br>//&nbsp; Requires:&nbsp; 2 TButtons, TMemo, TClientSocket  

<br>#include &lt;vcl.h>  

<br>#pragma hdrstop  

<br>#include "ClientMain.h"  

<br>//---------------------------------------------------------------------------  

<br>#pragma package(smart_init)  

<br>#pragma resource "*.dfm"  

<br>TForm2 *Form2;  

<br>//---------------------------------------------------------------------------  

<br>//---------------------------------------------------------------------------  

<br>__fastcall TForm2::TForm2(TComponent* Owner)  

<br>&nbsp;&nbsp; : TForm(Owner)  

<br>&#123;  

<br>&#125;  

<br>//---------------------------------------------------------------------------  

<p>//---------------------------------------------------------------------------  

<br>void __fastcall TForm2::Button1Click(TObject *Sender)  

<br>&#123;  

<br>&nbsp;&nbsp; if (ClientSocket1->Active)  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ClientSocket1->Active = false;  

<br>&nbsp;&nbsp; if (InputQuery("Computer to connect to", "Address Name:",  

Server))  

<br>&nbsp;&nbsp; &#123;  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (Server.Length() > 0)  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#123;  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ClientSocket1->Host&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  

=&nbsp; Server;  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ClientSocket1->Active&nbsp;&nbsp;&nbsp;  

=&nbsp; true;  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#125;  

<br>&nbsp;&nbsp; &#125;  

<br>&#125;  

<br>//---------------------------------------------------------------------------  

<p>//---------------------------------------------------------------------------  

<br>void __fastcall TForm2::Button2Click(TObject *Sender)  

<br>&#123;  

<br>&nbsp;&nbsp; ClientSocket1->Active = false;  

<br>&#125;  

<br>//---------------------------------------------------------------------------  

<p>//---------------------------------------------------------------------------  

<br>void __fastcall TForm2::ClientSocket1Read(TObject *Sender, TCustomWinSocket  

*Socket)  

<br>&#123;  

<br>&nbsp;&nbsp; if (ClientSocket1->Active == true)  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (Socket->Connected == true)  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Memo1->Lines->Add(  

AnsiString("(Server) ") +Socket->ReceiveText() );  

<br>&#125;  

<br>//---------------------------------------------------------------------------  

<p>//---------------------------------------------------------------------------  

<br>void __fastcall TForm2::ClientSocket1Write(TObject *Sender, TCustomWinSocket  

*Socket)  

<br>&#123;  

<br>&nbsp;&nbsp; if (ClientSocket1->Active == true)  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if (Socket->Connected == true)  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Socket->SendText("This  

text is passed to and fro");  

<br>&#125;  

<br>//---------------------------------------------------------------------------  

<br>// *******************************************************  

<br>//---------------------------------------------------------------------------  

<br>&nbsp;  

<br>&nbsp;  

<p>//---------------------------------------------------------------------------  

<br>// ******************&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  

ClientMain.h&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ******************  

<br>//---------------------------------------------------------------------------  

<br>//---------------------------------------------------------------------------  

<br>#ifndef ClientMainH  

<br>#define ClientMainH  

<br>//---------------------------------------------------------------------------  

<br>#include &lt;Classes.hpp>  

<br>#include &lt;Controls.hpp>  

<br>#include &lt;StdCtrls.hpp>  

<br>#include &lt;Forms.hpp>  

<br>#include &lt;ScktComp.hpp>  

<br>//---------------------------------------------------------------------------  

<br>class TForm2 : public TForm  

<br>&#123;  

<br>__published: // IDE-managed Components  

<br>&nbsp;&nbsp; TClientSocket *ClientSocket1;  

<br>&nbsp;&nbsp; TButton *Button1;  

<br>&nbsp;&nbsp; TButton *Button2;  

<br>&nbsp;&nbsp; TMemo *Memo1;  

<br>&nbsp;&nbsp; void __fastcall Button1Click(TObject *Sender);  

<br>&nbsp;&nbsp; void __fastcall Button2Click(TObject *Sender);  

<br>&nbsp;&nbsp; void __fastcall ClientSocket1Read(TObject *Sender,  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TCustomWinSocket  

*Socket);  

<br>&nbsp;&nbsp; void __fastcall ClientSocket1Write(TObject *Sender,  

<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TCustomWinSocket  

*Socket);  

<br>private: // User declarations  

<br>&nbsp;&nbsp; AnsiString Server;  

<br>public:&nbsp; // User declarations  

<br>&nbsp;&nbsp; __fastcall TForm2(TComponent* Owner);  

<br>&#125;;  

<br>//---------------------------------------------------------------------------  

<br>extern PACKAGE TForm2 *Form2;  

<br>//---------------------------------------------------------------------------  

<br>#endif  

<br>//---------------------------------------------------------------------------  

<br>// *******************************************************  

<br>//---------------------------------------------------------------------------  

</body>  

</html>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -