DLL的参数能不能是TSTRINGLIST?(100分)

E

eire

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-11

• #1

DLL:
function _Connection(Params:variant;rRecords:TStrings):Boolean;stdcall;

调用:

function connect(Params:variant;ST:TSTRINGS):BOOLEAN;Stdcall;external 'TEST.dll' name

'_Connection';


VAR
SSS:TSTRINGLIST;
Begin
if not init(self.Handle) then
exit;
A := VarArrayCreate([0, 6], varVariant);
A[0] := 'XXXXXXXXXXXXX';
A[1] := 'XXX';


SSS:=tstringlist.Create;
// SSS.free;//如果在这儿ＦＲＥＥ的话没有问题．
try
connect(a,sss)

Memo1.lines.assign(sss);
finally
freeandnil(sss);
///出错:Invalid pointer operation.
end;

end;

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-11

• #2

你的connect做了什麼操作啊。

 

M

Milpas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-11

• #3

传指针看看

 

E

eire

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-11

• #4

function _Connection(Params:variant;rRecords:TStrings):Boolean;
begin
.....

rRecords.Add(fResultRec.Text);
end;

 

E

eire

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-11

• #5

TO Milpas:
怎么传呢能详细点谢谢了.

 

H

hygsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-11

• #6

要不你往sss里弄点字符串进去再试试。

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-12

• #7

最好不传递对象，谁创建谁释放更清晰合理
你可以传递TStrings.Text属性的字符串。在函数里创建TStrings实例，再附值给他

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #8

re:
DLL的参数能不能是TSTRINGLIST
可以，但是要在你的DLL工程文件和调用它的工程文件的引用部分第一个加入sharemem
即
uses
sharemem,

 

S

SeptSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #9

在DLL中用完TStringList后将置nil，不要释放

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-13

• #10

DLL里面引用的任何涉及string分配的类以及string类型本身都会出现问题，引用ShareMem单元吧。