请问如何在delphi里面实现c语言中的双重指针？ ( 积分: 50 )

头版头条 · 2005-04-17

请问如何在delphi里面实现c语言中的双重指针？ c语言定义dll文件,里面有这个函数mySum： LIBEXPORT_API char *mySum(char *a,char **b){sprintf((*b),"%s",a); return *b;} 如何在dephi中定义这个函数呢，主要是char **b这个双重指针的定义，我要在其他语言中调用这个函数，不是在delphi开发的应用程序中调用这个dll中的函数。

头版头条 · 2005-04-17

请问如何在delphi里面实现c语言中的双重指针？ c语言定义dll文件,里面有这个函数mySum： LIBEXPORT_API char *mySum(char *a,char **b){sprintf((*b),"%s",a); return *b;} 如何在dephi中定义这个函数呢，主要是char **b这个双重指针的定义，我要在其他语言中调用这个函数，不是在delphi开发的应用程序中调用这个dll中的函数。

tseug · 2005-04-17

char * -> PChar; char ** -> PPChar;

头版头条 · 2005-04-17

请问我要用的字符串是unicode的，不是ansi的。如何实现呢？ ppchar是ansi的。 什么是表示unicode呢，我知道有pwidestring，可是没有ppwidestring这个类型的变量

lich · 2005-04-17

自已定义一个不就是了,很简单的 type  PPWideString = ^PWideString;

头版头条 · 2005-04-17

那怎么给这个类型的变量赋值呢。 比如 type  ppwidestring=^pwidestring; function (a:widestring;b

pwidestring):wdestring; begin  在这里实现a+b，并返回a+b的结果 end;

lich · 2005-04-17

function (a:widestring; var b

widestring):wdestring; begin  在这里实现a+b，并返回a+b的结果 end;   如果是这样: function (a:widestring;b

pwidestring):wdestring; begin  在这里实现a+b，并返回a+b的结果  Result := a + b^; end;

头版头条 · 2005-04-17

按照你上面的代码无法编译： 我得文件是这么写的 unit Unit1; interface uses  windows,sysutils,stdctrls,classes; type  ppwidestring=^pwidestring; function add(a:widestring; b

pwidestring):wordbool;stdcall;export; implementation function add(a:widestring; b

pwidestring):wordbool; begin   result:=true;   try     b^^:=a+b^^;   except     result:=false;   end; end; end. 可是，就连delphi的exe都无法调用这个dll中的函数了。我的qq：315360007,希望你能加我，我和你进一步聊，我想用c#调用这样的函数。希望楼上的朋友能帮我解决这个问题。

头版头条 · 2005-04-17

lich · 2005-04-17

Delphi 中的字符串使用了自己的内存管理, 不应直接传递这些对象, 只能传递指针, 或通过输出缓冲区来返回数据, 可以参照 Windows API 的接口方法

头版头条 · 2005-04-17

不明白楼上的朋友的意思？ 能写的具体电吗？ 定义的部分，和调用的部分。我想和你语聊，因为我这边要用c#调用。

tseug · 2005-04-17

Delphi的WideString不是生存期自管理的，你可以在DLL使用来传递参数 但是，String是生存期管理的，你不能直接在DLL用它来传递参数 一般的，如果你想在其他语言中传递字符串，最好用PChar，传递一个 PChar类型的缓冲区和缓冲区长度，Win API一般都这样做 function xxx(buf: PChar; len: Integer): Integer;

lich · 2005-04-17

function Add(dest: PWideString; src: PWideString): Integer; var  t: WideString;  n: Integer; begin  t := dest;  n := WideFormatBuf(dest^, 1024, '%s%s', 4, [t, src]);  dest[n] := WideChar(0); end;

刘麻子 · 2005-04-17

Char    -->  WideChar PChar   -->  PWideChar PPChar  -->  PPWideChar

lich · 2005-04-17

to tseug, WideString 也是生存期自动管理的,和String 不同的是, 它没有采用引用计数来进行优化处理 下面的程序可以证明: procedure TForm1.Button1Click(Sender: TObject); var  s: WideString; begin  s := IntToStr(1);  ShowMessage(Format('%p', [Pointer(s)]));  s := IntToStr(2);  ShowMessage(Format('%p', [Pointer(s)]));  SetLength(s, 1024*1024*100);  ShowMessage(Format('%p', [Pointer(s)])); end; 每次显示这个字符串的地址都不一样, 所占的200M内存也能自动释放, 难道不是生存期自动管理的?

tseug · 2005-04-17

呵呵，我说的不严谨，都是生存期自管理的，只不过WideString不是采用引用计数的

请问如何在delphi里面实现c语言中的双重指针？ ( 积分: 50 )

头版头条

Unregistered / Unconfirmed

头版头条

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

头版头条

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

头版头条

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

头版头条

Unregistered / Unconfirmed

头版头条

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

头版头条

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

lich

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

Similar threads