請問一下，我在delphi的dll中呼叫vc寫的dll，並且在呼叫vc的dll時，需傳入變數a，然後在vc中會讀取這個變數的值，並且修改，再回傳到delphi的變數a，請問該如何做呢，我的例子如下，想請教一下各位，我是不是那邊觀念有問題，謝謝，不用delphi做exe來呼叫vc，因為最前端呼叫delphi的dll是別人寫的程式，我只能提供delphi的dll給他呼叫，而vc的dll是因為要實作別的程式碼，所以才需要這樣子連結，麻煩有經驗的人指導一下小弟，謝謝您的意見。

EX: vc dll = VCDLL ;

delphi dll
function Daaa(a:string);integer; stdcall; exports ;

function aaa(a:PChar):integer; cdecl; external 'VCDLL' ; <-----呼叫vc dll的宣告

vc dll
int __declspec(dllexport) aaa(char *a);


[code delphi]
function Daaa(a:string);integer;
var
a:PChar;
s:string;
begin
GetMem(a, 256);
a := 'xyz' ;
aaa(a) ;
s := a ;
showmessage(s);<-----------這邊回傳都是xyz
FreeMem(a);
end;
[/code]

[code cpp]
int aaa(char *a)
{
AfxMessageBox(a);
a = "abc" ; <-----------此處不是改值了，應該是要變成abc回傳才對
return 1 ;
}
[/code]

------
DELPHI初學者

編輯記錄

  ptr = "123";

 如果對方可以使用你的dll
那對方自己就能直接連接vc 的DLL，
也可以把一個連接 VC DLL 的 *.h檔 轉換成 pas檔格式給對方就行了
不需要浪費功夫作delphi dll