font color="#0000FF"> //"Unit1.cpp"源代码
//---------------------------------------------------------------------------
#include $#@60;vcl.h$#@62;
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//装入要发送的文件void __fastcall TForm1::ButOpenClick(TObject *Sender)
{
if(OpenDialog1-$#@62;Execute())
{ LoadFile-$#@62;Text=OpenDialog1-$#@62;FileName;
ValidFile=true;
}
else
{ LoadFile-$#@62;Text="";
ValidFile=false;
}
}
//---------------------------------------------------------------------------
//按下发送键void __fastcall TForm1::ButSendClick(TObject *Sender)
{
if(!ValidFile)
//核实已载的文件{ MessageBox(NULL,"没有选择发送的文件","错误",MB_ICONERROR);
return;
}
