//“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::Button3Click(TObject *Sender)
{
if (OpenPictureDialog1-$#@62;Execute())
Edit2-$#@62;Text =OpenPictureDialog1-$#@62;FileName ;
}
//---------------------------------------------------------------------------
//发送图像文件
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TFileStream *MyFStream;
MyFStream = new TFileStream(OpenPictureDialog1-$#@62;FileName, fmOpenRead);
try
{ NMStrm1-$#@62;Host=Edit1-$#@62;Text; //指定主机名
NMStrm1-$#@62;PostIt(MyFStream); //发送的文件
}
catch(...){}
}
//---------------------------------------------------------------------------
//显示图像文件
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Image1-$#@62;Picture-$#@62;LoadFromFile(".\\tmp.bmp");
}
//---------------------------------------------------------------------------
//连接到远程主机
void __fastcall TForm1::NMStrm1Connect(TObject *Sender)
{
StatusBar1-$#@62;SimpleText = "Connected";
}
//---------------------------------------------------------------------------
//没有连接到主机时产生此事件
void __fastcall TForm1::NMStrm1ConnectionFailed(TObject *Sender)
{
ShowMessage("无法连接到对方");
}
//---------------------------------------------------------------------------
//在客户端文件发送到时产生此事件
void __fastcall TForm1::NMStrm1Disconnect(TObject *Sender)
{
if (StatusBar1 != 0)
StatusBar1-$#@62;SimpleText = "文件发送到了";
}
//---------------------------------------------------------------------------
