用fastnet控件,不需要什么库
回复赞
有人知道吗
回复赞
我是在bcb5的internet里的chat源程序里看到的有scktcomp.hpp这个文件
我以为要使用控件就必须加这个文件呢
回复赞
那你加上控件看加了些什么,再造葫芦画瓢
回复赞
不是啊!!!!
我说的是不用任何控件时候要加的!!!!!!!!!
回复赞
to rh
你是说只要加上or
or
就可以用那几个控件了?
ClientSocket ServerSocket
回复赞
or
or
回复赞
// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved
// (DO NOT EDIT: machine generated header) 'ScktComp.pas' rev: 5.00
#ifndef ScktCompHPP
#define ScktCompHPP
#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
//-- user supplied -----------------------------------------------------------
namespace Scktcomp
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS ESocketError;
class PASCALIMPLEMENTATION ESocketError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
#pragma option push -w-inl
/* Exception.Create */ inline __fastcall ESocketError(const AnsiString Msg) : Sysutils::Exception(Msg
) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmt */ inline __fastcall ESocketError(const AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateRes */ inline __fastcall ESocketError(int Ident)/* overload */ : Sysutils::Exception(
Ident) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmt */ inline __fastcall ESocketError(int Ident, const System::TVarRec * Args
, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateHelp */ inline __fastcall ESocketError(const AnsiString Msg, int AHelpContext) :
Sysutils::Exception(Msg, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmtHelp */ inline __fastcall ESocketError(const AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResHelp */ inline __fastcall ESocketError(int Ident, int AHelpContext)/* overload */
: Sysutils::Exception(Ident, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmtHelp */ inline __fastcall ESocketError(System::PResStringRec ResStringRec,
const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
ResStringRec, Args, Args_Size, AHelpContext) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~ESocketError(void) { }
#pragma option pop
};
struct TCMSocketMessage
{
unsigned Msg;
int Socket;
Word SelectEvent;
Word SelectError;
int Result;
} ;
struct TCMLookupComplete
{
unsigned Msg;
unsigned LookupHandle;
Word AsyncBufLen;
Word AsyncError;
int Result;
} ;
#pragma option push -b-
enum TServerType { stNonBlocking, stThreadBlocking };
#pragma option pop
#pragma option push -b-
enum TClientType { ctNonBlocking, ctBlocking };
#pragma option pop
#pragma option push -b-
enum TAsyncStyle { asRead, asWrite, asOOB, asAccept, asConnect, asClose };
#pragma option pop
typedef SetTAsyncStyles;
#pragma option push -b-
enum TSocketEvent { seLookup, seConnecting, seConnect, seDisconnect, seListen, seAccept, seWrite, seRead
};
#pragma option pop
#pragma option push -b-
enum TLookupState { lsIdle, lsLookupAddress, lsLookupService };
#pragma option pop
#pragma option push -b-
enum TErrorEvent { eeGeneral, eeSend, eeReceive, eeConnect, eeDisconnect, eeAccept };
#pragma option pop
class DELPHICLASS TCustomWinSocket;
typedef void __fastcall (__closure *TSocketEventEvent)(System::TObject* Sender, TCustomWinSocket* Socket
, TSocketEvent SocketEvent);
typedef void __fastcall (__closure *TSocketErrorEvent)(System::TObject* Sender, TCustomWinSocket* Socket
, TErrorEvent ErrorEvent, int &ErrorCode);
class DELPHICLASS TServerClientWinSocket;
typedef void __fastcall (__closure *TGetSocketEvent)(System::TObject* Sender, int Socket, TServerClientWinSocket*
&ClientSocket);
class DELPHICLASS TServerClientThread;
typedef void __fastcall (__closure *TGetThreadEvent)(System::TObject* Sender, TServerClientWinSocket*
ClientSocket, TServerClientThread* &SocketThread);
typedef void __fastcall (__closure *TSocketNotifyEvent)(System::TObject* Sender, TCustomWinSocket* Socket
);
class PASCALIMPLEMENTATION TCustomWinSocket : public System::TObject
{
typedef System::TObject inherited;
private:
int FSocket;
bool FConnected;
Classes::TStream* FSendStream;
bool FDropAfterSend;
HWND FHandle;
sockaddr_in FAddr;
TAsyncStyles FAsyncStyl
scktcomp.hpp
这个文件是干什么用的,不是intarnet控件用的库吗?
回复赞
// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved
// (DO NOT EDIT: machine generated header) 'ScktComp.pas' rev: 5.00
#ifndef ScktCompHPP
#define ScktCompHPP
#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
#include	// Pascal unit
//-- user supplied -----------------------------------------------------------
namespace Scktcomp
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS ESocketError;
class PASCALIMPLEMENTATION ESocketError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
#pragma option push -w-inl
/* Exception.Create */ inline __fastcall ESocketError(const AnsiString Msg) : Sysutils::Exception(Msg
) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmt */ inline __fastcall ESocketError(const AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateRes */ inline __fastcall ESocketError(int Ident)/* overload */ : Sysutils::Exception(
Ident) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmt */ inline __fastcall ESocketError(int Ident, const System::TVarRec * Args
, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateHelp */ inline __fastcall ESocketError(const AnsiString Msg, int AHelpContext) :
Sysutils::Exception(Msg, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateFmtHelp */ inline __fastcall ESocketError(const AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResHelp */ inline __fastcall ESocketError(int Ident, int AHelpContext)/* overload */
: Sysutils::Exception(Ident, AHelpContext) { }
#pragma option pop
#pragma option push -w-inl
/* Exception.CreateResFmtHelp */ inline __fastcall ESocketError(System::PResStringRec ResStringRec,
const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
ResStringRec, Args, Args_Size, AHelpContext) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TObject.Destroy */ inline __fastcall virtual ~ESocketError(void) { }
#pragma option pop
};
struct TCMSocketMessage
{
unsigned Msg;
int Socket;
Word SelectEvent;
Word SelectError;
int Result;
} ;
struct TCMLookupComplete
{
unsigned Msg;
unsigned LookupHandle;
Word AsyncBufLen;
Word AsyncError;
int Result;
} ;
#pragma option push -b-
enum TServerType { stNonBlocking, stThreadBlocking };
#pragma option pop
#pragma option push -b-
enum TClientType { ctNonBlocking, ctBlocking };
#pragma option pop
#pragma option push -b-
enum TAsyncStyle { asRead, asWrite, asOOB, asAccept, asConnect, asClose };
#pragma option pop
typedef SetTAsyncStyles;
#pragma option push -b-
enum TSocketEvent { seLookup, seConnecting, seConnect, seDisconnect, seListen, seAccept, seWrite, seRead
};
#pragma option pop
#pragma option push -b-
enum TLookupState { lsIdle, lsLookupAddress, lsLookupService };
#pragma option pop
#pragma option push -b-
enum TErrorEvent { eeGeneral, eeSend, eeReceive, eeConnect, eeDisconnect, eeAccept };
#pragma option pop
class DELPHICLASS TCustomWinSocket;
typedef void __fastcall (__closure *TSocketEventEvent)(System::TObject* Sender, TCustomWinSocket* Socket
, TSocketEvent SocketEvent);
typedef void __fastcall (__closure *TSocketErrorEvent)(System::TObject* Sender, TCustomWinSocket* Socket
, TErrorEvent ErrorEvent, int &ErrorCode);
class DELPHICLASS TServerClientWinSocket;
typedef void __fastcall (__closure *TGetSocketEvent)(System::TObject* Sender, int Socket, TServerClientWinSocket*
&ClientSocket);
class DELPHICLASS TServerClientThread;
typedef void __fastcall (__closure *TGetThreadEvent)(System::TObject* Sender, TServerClientWinSocket*
ClientSocket, TServerClientThread* &SocketThread);
typedef void __fastcall (__closure *TSocketNotifyEvent)(System::TObject* Sender, TCustomWinSocket* Socket
);
class PASCALIMPLEMENTATION TCustomWinSocket : public System::TObject
{
typedef System::TObject inherited;
private:
int FSocket;
bool FConnected;
Classes::TStream* FSendStream;
bool FDropAfterSend;
HWND FHandle;
sockaddr_in FAddr;
TAsyncStyles FAsyncStyl
scktcomp.hpp
这个文件是干什么用的,不是intarnet控件用的库吗?
回复赞