在C++Builder中编写发送图象文件程序(三)
2001-08-21 13:39
357 查看
//“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 = "文件发送到了";
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#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 = "文件发送到了";
}
//---------------------------------------------------------------------------
相关文章推荐
- 在C++Builder中编写发送图象文件程序(四)
- 在C++Builder中编写发送图象文件程序(一)
- 在C++Builder中编写发送图象文件程序(二)
- 编写一个程序,用于测试标准输入文件是否能使用lseek函数来设置位移量
- 使用Bash编写Liunx 脚本程序——3、文件、用户和外壳的自定义设置
- eclipse下编写android程序突然不会自动生成R.java文件和包的解决办法
- 用Delphi编写CGI程序返回图象
- 在Web中编写文件上传程序需要注意的几点
- MCU编写按bit依次发送和接收的程序示例
- 用JSP编写文件上传的程序
- 利用Socket 编写SMTP 发送邮件程序
- 程序后台发送pdf文件技术分析
- 用记事本编写第一个Java程序运行时 出现报错:错误: 类helloworld是公共的, 应在名为 helloworld.java 的文件中声明 public class helloworld {
- 在windows环境下用python编写备份文件小程序
- 编写一个程序,将 d:\java 目录下的所有.java 文件复制到 d:\jad 目录下,并将原来文件的扩展名从.java 改为.jad。
- 编写调用新浪微博API的Java程序来发送微博
- Mkefile文件编写及点亮两个led的mini2440裸机程序
- 基于C# Winform的简易聊天程序[第二篇-文件发送]
- 编写程序将两个等长文件按字节进行异或运算并将结果存放到第三个文件中
- 系统IO 编写copy程序 简析对文件的操作