www.pudn.com > 一个利用VC Socket进行文件传输的例子.rar > Unit1.h

//--------------------------------------------------------------------------- 
 
#ifndef Unit1H 
#define Unit1H 
//--------------------------------------------------------------------------- 
#include  
#include  
#include  
#include  
#include  
#include  
//--------------------------------------------------------------------------- 
// 通讯类型 
enum TMessageType 
{ 
	mtRequestTransmission = 1, // 请求文件传输 
	mtConfirmRequestTransmission = 2, // 确认请求文件传输 
	mtFileSize = 3, // 发送文件大小 
	mtConfirmFileSize = 4, // 确认文件大小 
	mtTransmissionCompleted = 5 // 准备接收文件 
}; 
 
class TForm1 : public TForm 
{ 
__published:	// IDE-managed Components 
	TLabel *Label3; 
	TLabel *Label4; 
	TEdit *edHost; 
	TEdit *edPort; 
	TButton *btnConnectMessage; 
	TButton *btnSendRequest; 
	TClientSocket *csMessage; 
	TStatusBar *StatusBar1; 
	TClientSocket *csTransmission; 
	TLabel *Label1; 
	TEdit *edFrom; 
	TEdit *edPort2; 
	TLabel *Label2; 
	void __fastcall btnConnectMessageClick(TObject *Sender); 
	void __fastcall btnSendRequestClick(TObject *Sender); 
	void __fastcall csMessageError(TObject *Sender, TCustomWinSocket *Socket, 
          TErrorEvent ErrorEvent, int &ErrorCode); 
	void __fastcall csMessageConnect(TObject *Sender, 
          TCustomWinSocket *Socket); 
	void __fastcall csMessageRead(TObject *Sender, TCustomWinSocket *Socket); 
	void __fastcall csTransmissionConnect(TObject *Sender, 
          TCustomWinSocket *Socket); 
	void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose); 
	void __fastcall csTransmissionRead(TObject *Sender, 
          TCustomWinSocket *Socket); 
private:	// User declarations 
	TFileStream *SendFileStream; 
	AnsiString SendFileName; 
	__int64 SendFileSize; 
public:		// User declarations 
	__fastcall TForm1(TComponent* Owner); 
}; 
//--------------------------------------------------------------------------- 
extern PACKAGE TForm1 *Form1; 
//--------------------------------------------------------------------------- 
#endif