⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 recv1.h

📁 文件名称:新曦 我的资源 搜索软件 源程序(Borland Delphi 7)说明
💻 H
字号:
//---------------------------------------------------------------------------
#ifndef Recv1H
#define Recv1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "WSocket.hpp"
#include <ExtCtrls.hpp>
#define WM_DESTROY_SOCKET (WM_USER + 1)
//---------------------------------------------------------------------------
class TRecvForm : public TForm
{
__published:	// IDE-managed Components
    TPanel *Panel1;
    TLabel *Label1;
    TLabel *Label2;
    TEdit *PortEdit;
    TButton *ActionButton;
    TButton *CloseAllButton;
    TCheckBox *LingerCheckBox;
    TCheckBox *BannerCheckBox;
    TButton *LineModeOnButton;
    TButton *LineOffButton;
    TMemo *DisplayMemo;
    TWSocket *WSocket1;
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormShow(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall ActionButtonClick(TObject *Sender);
    void __fastcall PortEditChange(TObject *Sender);
    void __fastcall WSocket1SessionAvailable(TObject *Sender, WORD Error);
    void __fastcall CloseAllButtonClick(TObject *Sender);
    void __fastcall LineModeOnButtonClick(TObject *Sender);
    void __fastcall LineOffButtonClick(TObject *Sender);
private:	// User declarations
    AnsiString FIniFileName;
    BOOL       FInitialized;
    TList      *FClients;
    void __fastcall ClientDataAvailable(TObject *Sender, WORD Error);
    void __fastcall ClientSessionClosed(TObject *Sender, WORD Error);
    void __fastcall Display(AnsiString Msg);
protected:
    void __fastcall WMDestroySocket(TMessage Msg);
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_DESTROY_SOCKET, TMessage, WMDestroySocket)
END_MESSAGE_MAP(TForm)
public:		// User declarations
    __fastcall TRecvForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TRecvForm *RecvForm;
//---------------------------------------------------------------------------
#endif

⌨️ 快捷键说明

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