Delphi与C++对象共享的问题 ( 积分: 50 )

大家好：
我想把一个delphi对象（如TStringList）与C++共享，但不知道具体改怎么作，
如果你有时间，就请帮帮我好吗?
新年快乐！！！

大家好：
我想把一个delphi对象（如TStringList）与C++共享，但不知道具体改怎么作，
如果你有时间，就请帮帮我好吗?
新年快乐！！！

把TStringList改造一下

再为c++定义一套相应的接口

把为c++程序提供TStringList的Delphi程序做成dll

应该可以吧，我没有试过，只是思路

可是C＋＋里面没有TstringList这个类呀，
我在 ++里该怎样定义和声明呢？

在delphi的动态连接库中，如此做
uses Classes;

type
TStringListIntf = class
public
function Add(const S: pchar): Integer
virtual
cdecl
abstract;
procedure Clear
virtual
cdecl
abstract;
procedure Delete(Index: Integer)
virtual
cdecl
abstract;
procedure Exchange(Index1, Index2: Integer)
virtual
cdecl
abstract;
function IndexOf(const S: pchar): Integer
virtual
cdecl
abstract;
procedure Insert(Index: Integer
const S: pchar)
virtual
cdecl
abstract;
function Strings(Index: Integer): pchar
virtual
cdecl
abstract;
procedure Sort
virtual
cdecl
abstract;
procedure SaveToFile(const filename: pchar)
virtual
cdecl
abstract;
procedure LoadFromFile(const filename: pchar)
virtual
cdecl
abstract;
function GetText: pchar
virtual
cdecl
abstract;
procedure SetText(const text: pchar)
virtual
cdecl
abstract;
end;

TMyStringList = class(TStringListIntf)
private
SL: TStringList;
public
constructor Create;
destructor Destroy
override;
function Add(const S: pchar): Integer
override;
procedure Clear
override;
procedure Delete(Index: Integer)
override;
procedure Exchange(Index1, Index2: Integer)
override;
function IndexOf(const S: pchar): Integer
override;
procedure Insert(Index: Integer
const S: pchar)
override;
function Strings(Index: Integer): pchar
override;
procedure Sort
override;

procedure SaveToFile(const filename: pchar)
override;
procedure LoadFromFile(const filename: pchar)
override;
function GetText: pchar
override;
procedure SetText(const text: pchar)
override;
end;

function CreateStringList(): TStringListIntf
stdcall
export;
procedure FreeStringList(SL: TStringListIntf)
stdcall
export;

implementation

function CreateStringList(): TStringListIntf;
begin
result := TMyStringList.Create;
end;

procedure FreeStringList(SL: TStringListIntf);
begin
SL.Free;
end;

{ TMyStringList }

function TMyStringList.Add(const S: pchar): Integer;
begin
result := SL.Add(S);
end;

procedure TMyStringList.Clear;
begin
inherited;
SL.Clear;
end;

constructor TMyStringList.Create;
begin
SL := TStringList.Create;
end;

procedure TMyStringList.Delete(Index: Integer);
begin
inherited;
SL.Delete(Index);
end;

destructor TMyStringList.Destroy;
begin
SL.Free;
inherited;
end;

procedure TMyStringList.Exchange(Index1, Index2: Integer);
begin
inherited;
SL.Exchange(Index1, Index2);
end;

function TMyStringList.GetText: pchar;
begin
result := pchar(SL.Text);
end;

function TMyStringList.IndexOf(const S: pchar): Integer;
begin
result := SL.IndexOf(S);
end;

procedure TMyStringList.Insert(Index: Integer
const S: pchar);
begin
inherited;
SL.Insert(Index, S);
end;

procedure TMyStringList.LoadFromFile(const filename: pchar);
begin
inherited;
SL.LoadFromFile(filename);
end;

procedure TMyStringList.SaveToFile(const filename: pchar);
begin
inherited;
SL.SaveToFile(filename);
end;

procedure TMyStringList.SetText(const text: pchar);
begin
inherited;
SL.Text := text;
end;

procedure TMyStringList.Sort;
begin
inherited;
SL.Sort;
end;

function TMyStringList.Strings(Index: Integer): pchar;
begin
result := pchar(SL.Strings[Index]);
end;

end.

把CreateStringList, FreeStringList在工程文件中引出，编译出dll文件

在VC中的声明
定义接口
typedef class TStringListIntf
{
public:
virtual int _cdecl Add(const char *S) { return 0
};
virtual void _cdecl Clear(void) { return ;};
virtual void _cdecl Delete(int Index) { return ;};
virtual void _cdecl Exchange(int Index1, int Index2) { return ;};
virtual int _cdecl IndexOf(const char *S) { return 0;};
virtual void _cdecl Insert(int Index, const char *S) { return;};
virtual char* _cdecl Strings(int Index) { return "";};
virtual void _cdecl Sort(void) { return ;};

virtual void _cdecl SaveToFile(const char *filename) { return
};
virtual void _cdecl LoadFromFile(const char *filename) { return;};

virtual char* _cdecl GetText() { return "";};
virtual void _cdecl SetText(const char *text) { return;};

} *PStringListIntf;

typedef PStringListIntf(_stdcall *CreateStringList)(void);
typedef void(_stdcall *FreeStringList)(PStringListIntf SL);

定义全局变量（相对来说的，可以放到使用StringList的类或函数中）
TStringListIntf *m_StringList;
HINSTANCE m_DllHandle;

// 加载动态连接库
m_DllHandle = LoadLibrary("D://vcdelphi//dll//Project2.dll&quot

// 文件是例子，你指定为你的dll文件即可
if (m_DllHandle)
{
CreateStringList _stdcall proc;
proc = (CreateStringList)GetProcAddress(m_DllHandle, "CreateStringList&quot

m_StringList = proc()
//创建StringList对象
}

// 使用StringList
m_StringList->Add("abc"
m_StringList->SaveToFile("d://rere.txt"

// 在不是用StringList要调用dll中的FreeStringList释放内存，这个不用说了吧
上面的代码测试通过，其他的功能还没有是过，不过我写上的应该不会有什么问题
如果你还要用到StringList的其他功能，你就照猫画虎吧

多谢wisenow！

接受答案了.