代码之家 › 专栏 › 技术社区 › Crudler

Delphi2010 Unicode变体问题

variant delphi-2010 unicode delphi

Crudler · 技术社区 · 14 年前

我正在Delphi2010中开发一个动态链接库。它导出接收变量数组的过程。我想把这些变体中的一个转换成一个字符串,但是我一直在得到???????

我无法更改输入变量-它必须是变量数组。无法更改调用dll的宿主应用程序。它是用德尔福2006写的。

示例dll代码:

Procedure TestArr(ArrUID : array of variant); stdcall;  
var 
  i: integer;  
  s: string;
begin  
  s:= string(String(Arruid[0]));  
  showmessage(s);  
end;

使用D2006我的动态链接库工作正常。我试过用 VartoStr -运气不好。当我检查 VarType 我得到一个 varString . 有什么解决办法吗?

2 回复 | 直到 13 年前

Rafael Colucci 13 年前

宿主应用程序正在发送 AnsiString 你的dll需要一个 UnicodeString .
Unicode字符串是在Delphi2009中引入的,Delphi2006中不存在。怎么解决?尝试[未测试]:

Procedure TestArr(ArrUID : array of variant); stdcall;  
var 
  i: integer;  
  s: AnsiString;
begin  
  s:= Ansistring(VarToStr(Arruid[0]));  
  showmessage(s);  
end;

或者[也可能未经测试]:

Procedure TestArr(ArrUID : array of variant); stdcall;  
var 
  i: integer;  
  s: AnsiString;
begin  
  s:= Ansistring(AnsiString(Arruid[0]));  
  showmessage(s);  
end;

你也可以检查是否有类似的功能 VarToStr 接受 AnsiStrings (可能在 弦乐器 单位?).

TridenT 14 年前

1/你怎么称呼 VarToStr() 功能? VarToString(Arruid[0]) ?

2/您的Delphi2006应用程序是否向dll发送ansistring或widestring? 如果是,并且(1)不起作用,则尝试强制转换为 AnsiString 而不是 string .

推荐文章

user0042 · Delphi是否为简单的常见操作提供编译器生成的代码?

7 年前

Christino · Delphi 2010和泛型

7 年前

zac · 对象检查器网格高度是否有固定值?Delphi 2010[副本]

8 年前

john_who_is_doe · 求值器中的表达式非法(访问冲突)(&A)

9 年前

dummzeuch Stijn Sanders · 编译Delphi 2010项目时,什么可能导致“找不到所需的包‘IndyCore’”?

10 年前

JakeSays · 从任务管理器隐藏和显示流程

12 年前

marco-fiset · 如何解决Delphi无法准确处理日期时间操作的问题?

12 年前

David Cornelius · 我找到了ComClass,现在我该如何引用它?

12 年前

Edgar Holguin · 德尔福与印度

12 年前

awmross · 为什么编译器会警告变量可能无法初始化?

12 年前