国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

在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::NMStrm
1Connect(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 = "文件發送到了";
}
//---------------------------------------------------------------------------
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 波密县| 客服| 黔西县| 刚察县| 九龙坡区| 灯塔市| 长岭县| 葵青区| 福安市| 康乐县| 离岛区| 西乌珠穆沁旗| 巴中市| 濉溪县| 镇平县| 莆田市| 津南区| 宜良县| 蒙阴县| 常山县| 泽州县| 交城县| 攀枝花市| 安徽省| 霍山县| 洛阳市| 都匀市| 太仆寺旗| 灌阳县| 松桃| 游戏| 西平县| 南充市| 家居| 皮山县| 卓尼县| 石嘴山市| 石城县| 阳春市| 大港区| 灵寿县|