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!";
 }
}
// ---------------------------------------------------------------------------