C++ builder XE动态链接库中使用STL::vector

一.建立dll
菜单File --> New -->Other,弹出New Items 窗体,选择New页的DLL Wizard,点击OK.
弹出DLL Wizard窗体,默认选项即可(C++选中,Use VCL选中,Multi Threaded为灰色不可用)
点击OK.
在代码窗体中输入如下内容:

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

#include <vcl.h>
#include <vector>
#include <windows.h>
#pragma hdrstop
// ---------------------------------------------------------------------------
// dll函数的外部接口

//std::vector<int>函数的返回值

//pv (std::vector<int>v)为函数名和函数的参数
extern "C" __declspec(dllexport) std::vector<int>__stdcall pv
(std::vector<int>v);
#pragma argsused

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason,
void* lpReserved) {
return 1;
}

// ---------------------------------------------------------------------------
// dll函数的实现--

std::vector<int>__stdcall pv(std::vector<int>v) {
if (v.size() > 0) {
v.clear();
}
for (int i = 0; i < 10; i++) {
v.push_back(i);
}
return v;
}

建立一个应用程序,在窗体上1个Button,2个Edit控件.
要实现在Edit1里输入一个数字,点击button按钮,调用dll的函数后,将返回值返回到Edit2控件中.
首先保存项目,之后把上面编译后的Project1.dll拷贝到现在的目录.
双击button1控件,在代码窗体中输入如下代码:

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

#include <vcl.h>
#pragma hdrstop
#include <vector>

#include <stdio.h>
#include "Unit1.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
}

// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender) {
std::vector<int>v;

HINSTANCE ins;

String dllfn = "Project1.dll";
// wchar_t *tmp=dllfn.w_str();
LPCTSTR tmp = dllfn.w_str(); // 这样是解决Unicode字符匹配问题
ins = ::LoadLibrary(tmp);
if (ins == NULL) {
throw "Can't load library!";
}
else {
std::vector<int>(__stdcall *p)(std::vector<int>); // 定义数据类型
p = (std::vector<int>__stdcall(*)(std::vector<int>))::GetProcAddress
(ins, "pv");
if (p == NULL) {
FreeLibrary(ins);
throw "Can't Load Address!";
}
else {
v = p(v);
Edit1->Text = v[0];
Edit2->Text = v[9];
}
}
if (!FreeLibrary(ins)) {
throw "Can't Free!";
}
}
// ---------------------------------------------------------------------------