投稿
  1. 高性能架构探索首页
  2. C/C++

delphi 与 C++ 进程之间的命名管道通信

admin • • C/C++ • 阅读 214

以C++生成的程序作为服务端，delphi生成的程序为客户端，实现客户端发送数据，服务端接受数据并处理。

 

客户端：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI,ComCtrls, xmldom, XMLIntf, msxmldom, XMLDoc;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Button3: TButton;
    GroupBox2: TGroupBox;
    XMLDocument1: TXMLDocument;
    Button9: TButton;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit10: TEdit;
    GroupBox4: TGroupBox;
    Label9: TLabel;
    ComboBox1: TComboBox;
    Label10: TLabel;
    ComboBox2: TComboBox;
    TabSheet3: TTabSheet;
    GroupBox5: TGroupBox;
    ListBox1: TListBox;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label6: TLabel;
    Button2: TButton;
    Edit11: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox2Exit(Sender: TObject);
    procedure ListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
    procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  par, index: Integer; //判断是否存在config.xml

implementation

{$R *.dfm}

//选择图片（基本动作）
procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.OpenDialog1.DefaultExt:='png'; //设置缺省扩展名
  form1.OpenDialog1.Title:='请选择一个png文件';  //设置对话框标题
  form1.OpenDialog1.Filter:='Text files(*.png)|*.png'; //设置文件过滤条件
  form1.OpenDialog1.Execute;   //打开对话框
  edit10.Clear;
  edit10.text:=OpenDialog1.FileName;
end;

//载入配置文件config.xml，并打开ConfigAction.win32.exe
procedure TForm1.FormCreate(Sender: TObject);
var
  nodelist: ixmlnodelist;
  node: ixmlnode;
  i: integer;
begin
  XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName)+'configconfig.xml');
  combobox1.Clear;
  nodelist:= XMLDocument1.DocumentElement.ChildNodes;
  
  for i := 0 to nodelist.count - 1 do
  begin
    node := nodeList[i];
    combobox1.Items.add(node.nodename);
  end;

  ShellExecute(handle, 'open','E:iosstudyaction2012-4-1ConfigActionConfigActionDebug.win32ConfigAction.win32.exe', '',nil, SW_SHOWNORMAL); 
end;

//将基本动作配置参数存入config.xml
procedure TForm1.Button9Click(Sender: TObject);
var
  nodelist: ixmlnodelist;
  node: ixmlnode;
begin
  node:= xmldocument1.documentelement.childnodes['move'];
  XMLDocument1.Options := [doNodeAutoIndent];  //换行
  node:= node.AddChild('item');
  node.Attributes['id']:= FormatDateTime( 'YYYYMMDDHHmmss ', Now);
  node.Attributes['beginPoint']:= edit1.Text+':'+edit2.Text;
  node.Attributes['controlPoint1']:= edit3.Text+':'+edit4.Text;
  node.Attributes['controlPoint2']:= edit5.Text+':'+edit6.Text;
  node.Attributes['endPoint']:= edit7.Text+':'+edit8.Text;
  node.Attributes['time']:= edit9.text;
  node.Attributes['png']:= edit10.text;
  XMLDocument1.Options := [doNodeAutoIndent];  //换行
  XMLDocument1.SaveToFile(ExtractFilePath(Application.Exename) + 'configconfig.xml');
  FormCreate(nil); //重新载入
end;

//将复杂动作配置参数存入config.xml
procedure TForm1.Button4Click(Sender: TObject);
var
  nodelist: ixmlnodelist;
  node: ixmlnode;
  i: integer;
  typeStr:string;
begin
  if(radiobutton1.checked) then
  begin
    typeStr:= '1';
  end
  else if (radiobutton2.checked) then
  begin
    typeStr:='2';
  end
  else
    showmessage('请选择动作类型!');

  node:= xmldocument1.documentelement.childnodes['complex'];
  XMLDocument1.Options := [doNodeAutoIndent];  //换行
  node:= node.AddChild('item');
  node.Attributes['id']:= FormatDateTime( 'YYYYMMDDHHmmss ', Now);
  node.Attributes['type']:= typeStr;

  for i:=0 to listbox1.Items.Count-1 do
  begin
    node.Attributes['action' + inttostr(i+1)]:= listbox1.Items[i];
  end;

  node.Attributes['png']:= edit11.text;
  XMLDocument1.Options := [doNodeAutoIndent];  //换行
  XMLDocument1.SaveToFile(ExtractFilePath(Application.Exename) + 'configconfig.xml');
end;

//选择图片（复杂动作）
procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.OpenDialog1.DefaultExt:='png'; //设置缺省扩展名
  form1.OpenDialog1.Title:='请选择一个png文件';  //设置对话框标题
  form1.OpenDialog1.Filter:='Text files(*.png)|*.png'; //设置文件过滤条件
  form1.OpenDialog1.Execute;   //打开对话框
  edit11.Clear;
  edit11.text:=OpenDialog1.FileName;
end;

//选择动作类型并将其下的动作项add到combobox2下
procedure TForm1.ComboBox1Exit(Sender: TObject);
var
 nodelist: ixmlnodelist;
 node: ixmlnode;
 i,j,num: integer;
begin
  combobox2.Clear;
  nodelist:= xmldocument1.DocumentElement.ChildNodes;

  for i:=0 to nodelist.Count-1 do
  begin
    if nodelist[i].NodeName = combobox1.Text then
    break;
  end;

  if booltostr(nodelist[i].HasChildNodes)<>'0' then
  begin
    nodelist:=nodelist[i].ChildNodes;
    for j := 0 to nodelist.Count-1 do
    begin
      combobox2.Items.add(nodelist[j].Attributes['id']);
    end;
  end;
end;

//添加基本动作项到listbox1
procedure TForm1.ComboBox2Exit(Sender: TObject);
begin
listbox1.items.Add(combobox2.text);
end;

//实现listbox里的项的拖拉排序
procedure TForm1.ListBox1EndDrag(Sender, Target: TObject; X, Y: Integer); 
var
Tmp: string;
begin
Tmp:=ListBox1.Items[ListBox1.ItemIndex];
ListBox1.Items[ListBox1.ItemIndex]:=ListBox1.Items[Index];
ListBox1.Items[Index]:=Tmp;
ListBox1.OnEndDrag:=nil;
end;

//实现listbox里的项的拖拉排序
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean); 
begin
Index:=TListBox(Source).ItemIndex;
ListBox1.OnEndDrag:=ListBox1EndDrag;
if State<>dsDragMove then
    Accept:=false;
end;

//预览，发送数据给服务端。
procedure TForm1.Button3Click(Sender: TObject);
var
  pipehandle:hwnd;
  byteswrite:dword;
  pipenamestr, dataStr:string;

begin
  //打开exe
  ShellExecute(handle, 'open','E:iosstudyaction2012-4-1ConfigActionConfigActionDebug.win32ConfigAction.win32.exe', '',nil, SW_SHOWNORMAL);
  //管道名
  pipenamestr:='\.pipedemo';
  //发送的数据，以','为分隔符
  dataStr:= edit1.Text+','+edit2.Text+','+edit3.Text+','+edit4.Text+','+edit5.Text+','+edit6.Text+','+edit7.Text+','+edit8.Text+','+edit9.Text+','+edit10.Text;
  //等待管道的出现
  if waitnamedpipe(pchar(pipenamestr),nmpwait_wait_forever)=false then
  begin
    showmessage(format('waitnamedpipe faile with error %d',[getlasterror()]));
    exit;
  end;

  //打开一个通信端口
  pipehandle:= createfile(pchar(pipenamestr),generic_read or generic_write,
    file_share_write,nil,open_existing,file_attribute_normal,0);
  if pipehandle=invalid_handle_value then
  begin
    showmessage(format('createfile faile with error %d',[getlasterror()]));
    exit;
  end;

  //发送数据
  if writefile(pipehandle,pchar(dataStr)^,length(dataStr),byteswrite,nil)=
    false then
  begin
    showmessage(format('writefile faile with error %d',[getlasterror()]));
    exit;
  end;
  //关闭串行口
  closehandle(pipehandle);
end;

end.

 

 

服务端主要代码：

/**************接收客户端发来的数据****************/
#include "GetParameter.h"
#include <iostream>

using namespace std;

GetParameter::GetParameter(void)
{

}

GetParameter::~GetParameter(void)
{
}

int GetParameter::commWithClient(void)
{
	//创建命名管道
	h=CreateNamedPipe(_T("\\.\pipe\demo"), PIPE_ACCESS_DUPLEX | FILE_FLAG_OVERLAPPED, 0, 1, 1024, 1024, 0, NULL);
	if(INVALID_HANDLE_VALUE==h)
	{
		//cout<<"创建命名管道失败!"<<endl;
		return 1;
	}

	if(ConnectNamedPipe(h, NULL)==NULL)
	{
		//cout<<"连接失败!"<<endl;
		return 2;
	}
	
	return 0;
}

int GetParameter::readDataFromPipe()
{
	DWORD len=0;
	if(ReadFile(h, buf, sizeof(buf), &len, NULL)==TRUE)
	{
	    //管道连接成功，读取数据
		buf[len] = '';
		//cout << buf<< endl;
		CloseHandle(h);
		return 0;
	}
	CloseHandle(h);
	return 1;
}

char* GetParameter::getBuf(void)
{
	return buf;
}


/******获取数据并分离处理，并使用数据进行 贝塞尔曲线 演示********/


#include "DemoLayer.h"
#include "GetParameter.h"

using namespace cocos2d;

DemoLayer::DemoLayer(void)
{
}

DemoLayer::~DemoLayer(void)
{
}

bool DemoLayer::init(void)
{
	GetParameter* k= new GetParameter();
	k->commWithClient();
	k->readDataFromPipe();

	//获取客户端发来的数据
	char* m = k->getBuf();

	//分离出各个字符串（以","为分隔符）
	char *token = NULL, *p[10];
	int i = 0;
	p[i] = strtok(m, ",");   
	while ((token = strtok(NULL, ",")) != NULL)
	{
		p[++i] = token;
	}

	//使用p[]数据。
	bool bRet = false;
	do 
	{
		CC_BREAK_IF(! CCLayer::init());

		CCSize s = CCDirector::sharedDirector()->getWinSize();
		CCMenuItemImage* quit = CCMenuItemImage::itemFromNormalImage("CloseNormal.png", "CloseSelected.png", this, menu_selector(DemoLayer::onQuit));
		CC_BREAK_IF(! quit);
		quit->setPosition(ccp(s.width-20, 20));

		CCMenu* pMenu = CCMenu::menuWithItems(quit, NULL);
		CC_BREAK_IF(! pMenu);
		pMenu->setPosition(CCPointZero);
		this->addChild(pMenu, 0, 1);

		bgSprite = CCSprite::spriteWithFile("bg.png");
		CC_BREAK_IF(! bgSprite);
		//bgSprite->setAnchorPoint(CCPointZero);
		this->addChild(bgSprite, -1, 2);

	    pSprite = CCSprite::spriteWithFile(p[9]);
		CC_BREAK_IF(! pSprite);
		pSprite->setPosition(CCPointMake(atoi(p[0]), atoi(p[1])));
		this->addChild(pSprite, 1, 3);

		//ActionBezier 测试
		ccBezierConfig bezier;
		bezier.controlPoint_1 = CCPointMake(atoi(p[2]), atoi(p[3]));
		bezier.controlPoint_2 = CCPointMake(atoi(p[4]), atoi(p[5]));
		bezier.endPosition = CCPointMake(atoi(p[6]), atoi(p[7]));

		CCActionInterval*  bezierTo = CCBezierTo::actionWithDuration(atoi(p[8]), bezier);	
		pSprite->runAction(bezierTo);

		this->setIsTouchEnabled(true);

		bRet = true;

	} while (0);

	delete k;

	return bRet;
}
/*
void DemoLayer::ccTouchesEnded(cocos2d::CCSet* pTouches, cocos2d::CCEvent* pEvent)
{
	CCTouch* touch = (CCTouch*)pTouches->anyObject();
	//获得触点坐标
	CCPoint location = touch->locationInView(touch->view());
	CCPoint convertedLocation = CCDirector::sharedDirector()->convertToGL(location);
}
*/
void DemoLayer::onQuit(CCObject* pSender)
{
	CCDirector::sharedDirector()->end();
}

 

OK,截图：

QQ截图20120520221444

原文链接: https://www.cnblogs.com/fjut/archive/2012/05/20/2510910.html

欢迎关注

微信关注下方公众号，第一时间获取干货硬货；公众号内回复【pdf】免费获取数百本计算机经典书籍

    delphi 与 C++ 进程之间的命名管道通信

原创文章受到原创版权保护。转载请注明出处：https://www.ccppcoding.com/archives/50635

非原创文章文中已经注明原地址，如有侵权，联系删除

关注公众号【高性能架构探索】，第一时间获取最新文章

转载文章受原作者版权保护。转载请注明原作者出处！

赞 (0)
adminadmin
0 0
上一篇 2023年2月9日 上午2:17
下一篇 2023年2月9日 上午2:17

相关推荐