在C++Builder中编写发送图象文件程序(三)

//“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 = "文件发送到了";

}

//---------------------------------------------------------------------------