1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
class DELPHICLASS TClientSocket;
class PASCALIMPLEMENTATION TClientSocket : public TCustomSocket
{
typedef TCustomSocket inherited;
private:
TClientWinSocket* FClientSocket;
protected:
virtual void __fastcall DoActivate(bool Value);
TClientType __fastcall GetClientType(void);
void __fastcall SetClientType(TClientType Value);
public:
__fastcall virtual TClientSocket(Classes::TComponent* AOwner);
__fastcall virtual ~TClientSocket(void);
__property TClientWinSocket* Socket = {read=FClientSocket}; |