在C++Builder中編寫發送圖象文件程序(三)
2019-09-10 09:07:05
供稿：網友
//“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 = "文件發送到了";
}
//---------------------------------------------------------------------------
