C++快速开发例子1--App-autocon

最新推荐文章于 2025-04-04 21:18:33 发布

原创最新推荐文章于 2025-04-04 21:18:33 发布 · 509 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#linq #c#

编程实例专栏收录该内容

25 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的Form，展示了如何通过源码实现与AutoServer的交互，包括设置、获取编辑字符串、清空和调用服务器功能。实例代码详细讲解了客户端如何调用服务器的setter和getter方法，以及如何处理服务器返回的结果。

1. Form设计

2. 源码

//----------------------------------------------------------------------------
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <sysdefs.h>
#include "..\autosrv\autosrv_tlb.h"
#include "auto1.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent *Owner)
: TForm(Owner)
{
try
{
AutoServer.BindDefault();
EditServer = CoEditServer::Create();
}
catch (...)
{
ShowMessage("Please build and run the \\AutoSrv\\autosrv example before this one.");
Application->Terminate();
}
}
//---------------------------------------------------------------------
void __fastcall TFormMain::setvalDClick(TObject *Sender)
{
AutoServer.EditStr = WideString(Edit1->Text);
}
//---------------------------------------------------------------------
void __fastcall TFormMain::getvalDClick(TObject *Sender)
{
Edit1->Text = AutoServer.EditStr;
}
//---------------------------------------------------------------------
void __fastcall TFormMain::clearDClick(TObject *Sender)
{
// Call a server function
AutoServer.Clear();
}
//---------------------------------------------------------------------
void __fastcall TFormMain::functionDClick(TObject *Sender)
{
WideString retval;

AutoServer.SetThreeStr(WideString("one"),WideString("two"),
WideString("three"), &retval);
Edit1->Text = retval;
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::setvalVClick(TObject *Sender)
{
//call the server's setter function
EditServer->set_EditStr(WideString(Edit1->Text));
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::functionVClick(TObject *Sender)
{
WideString p1("This ");
WideString p2("is a ");
WideString p3("test.");
WideString retval;

// The [out, retval] parameter most come last.
EditServer->SetThreeStr(p1, p2, p3, &retval);
Edit1->Text = retval;
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::clearVClick(TObject *Sender)
{
// Call a server function
EditServer->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::getvalVClick(TObject *Sender)
{
WideString str;
EditServer->get_EditStr(&str);
Edit1->Text = AnsiString(str);
}
//---------------------------------------------------------------------------