在C++Builder中編寫(xiě)發(fā)送圖象文件程序(三)
2019-09-10 09:07:05
供稿：網(wǎng)友
//“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)
{
}
//---------------------------------------------------------------------------
//打開(kāi)文件
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (OpenPictureDialog1-$#@62;Execute())
Edit2-$#@62;Text =OpenPictureDialog1-$#@62;FileName ;
}
//---------------------------------------------------------------------------
//發(fā)送圖像文件
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TFileStream *MyFStream;
MyFStream = new TFileStream(OpenPictureDialog1-$#@62;FileName, fmOpenRead);
try
{ NMStrm1-$#@62;Host=Edit1-$#@62;Text; //指定主機(jī)名
NMStrm1-$#@62;PostIt(MyFStream); //發(fā)送的文件
}
catch(...){}
}
//---------------------------------------------------------------------------
//顯示圖像文件
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Image1-$#@62;Picture-$#@62;LoadFromFile("./tmp.bmp");
}
//---------------------------------------------------------------------------
//連接到遠(yuǎn)程主機(jī)
void __fastcall TForm1::NMStrm1Connect(TObject *Sender)
{
StatusBar1-$#@62;SimpleText = "Connected";
}
//---------------------------------------------------------------------------
//沒(méi)有連接到主機(jī)時(shí)產(chǎn)生此事件
void __fastcall TForm1::NMStrm1ConnectionFailed(TObject *Sender)
{
ShowMessage("無(wú)法連接到對(duì)方");
}
//---------------------------------------------------------------------------
//在客戶端文件發(fā)送到時(shí)產(chǎn)生此事件
void __fastcall TForm1::NMStrm1Disconnect(TObject *Sender)
{
if (StatusBar1 != 0)
StatusBar1-$#@62;SimpleText = "文件發(fā)送到了";
}
//---------------------------------------------------------------------------
