mainform.cpp

C++ BUILDER精彩编程实例集锦(源码) 第一部分 界面设计 第二部分 程序设置

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

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  this->Memo1->Text="发向接收程序的数据";
  this->Memo2->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
  this->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{//发送数据
  if(this->Memo1->Text.Length()<1)
     return;
  //创建文件映射对象
  HANDLE hMapping;
  LPSTR StrData;
  hMapping=CreateFileMapping((HANDLE)0xFFFFFFFF,NULL,PAGE_READWRITE,0,0x100,"COMMUNICATION");
  if(hMapping==NULL)
  {
     MessageBox(Handle,"创建文件映射对象失败！","信息提示",MB_OK);
     return;
  }
  //将文件映射到一个进程的地址空间上
  StrData=(LPSTR)MapViewOfFile(hMapping,FILE_MAP_ALL_ACCESS,0,0,0);
  if(StrData==NULL)
  {
     MessageBox(Handle,"文件映射失败","信息提示",MB_OK);
     return;
  }
  //向映射内存写数据
  strcpy(StrData,this->Memo1->Text.c_str());
  //释放映射内存
  UnmapViewOfFile(StrData);
  MessageBox(Handle,"向接收程序发送数据操作成功！","信息提示",MB_OK);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{//接收数据
  //创建文件映射对象
  HANDLE hMapping;
  LPSTR StrData;
  hMapping=CreateFileMapping((HANDLE)0xFFFFFFFF,NULL,PAGE_READWRITE,0,0x100,"COMMUNICATION");
  if(hMapping==NULL)
  {
    MessageBox(Handle,"创建文件映射对象失败！","信息提示",MB_OK);
    return;
  }
  //将文件映射到一个进程的地址空间上
  StrData=(LPSTR)MapViewOfFile(hMapping,FILE_MAP_ALL_ACCESS,0,0,0);
  if(StrData==NULL)
  {
    MessageBox(Handle,"文件映射失败","信息提示",MB_OK);
    return;
  }
  //获取映射内存的数据
  this->Memo2->Text=StrData;
  //释放映射内存
  UnmapViewOfFile(StrData);
  MessageBox(Handle,"接收发送程序发来的数据操作成功！","信息提示",MB_OK);
}
//---------------------------------------------------------------------------