DLL的输出，超难问题（高手请进） (50分)

miky_sun · 2003-07-29

DLL要输出多个pchar数据： function StringResult(Fchar,FLen: pchar;FAA,Fbb,Fcc: PChar):Integer;stdcall; 其中Faa,Fbb,Fcc为要输出的数据，他们的空间由Dll来开辟。这时该怎么做？

LeeChange · 2003-07-29

如果空间是由Dll来申请的,得用 function StringResult(Fchar,FLen: pchar;var FAA,Fbb,Fcc: PChar):Integer;stdcall; 并且,在主程序里用完了后记得释放.

miky_sun · 2003-07-29

TO:LeeChange: 加上Var还是不可以的，

LeeChange · 2003-07-29

呵呵，那可能就是你的代码写的有问题了.

miky_sun · 2003-07-29

To:LeeChange 代码如下： function StringResult(Fchar,FLen: pchar;Var FAA,Fbb: PChar):Integer;stdcall; var   ss : string; begin   StringResult := 1;   ShowMessage('begin start');   ShowMessage(Fchar);   ShowMessage(FLen);   ss := StringOfChar(Fchar[0],StrToInt(FLen));   //   ShowMessage('ss='+ss);   GetMem(FAA,Length(SS)+2);{在此就出现系统错误}   GetMem(Fbb,Length(SS)+2);   StrPCopy(FAA,'A='+ss);   StrPCopy(Fbb,'B='+ss);   //   ShowMessage('Dll result  pA='+FAA);   ShowMessage('Dll result  pb='+Fbb);   StringResult := 1; end;

miky_sun · 2003-07-29

请来看看

miky_sun · 2003-07-29

请来看看

LeeChange · 2003-07-29

我写了下面的代码,运行没有报错.你不要局限在出错的地方,仔细分析分析吧. procedure fa(cc: PChar; var aa, bb: PChar); begin   GetMem(aa, 10);   GetMem(bb, 10) end; procedure TForm1.Button1Click(Sender: TObject); var   a, b: PChar; begin   fa('', a, b) end;

52free · 2003-07-29

声明的var应该可以不加吧,对指针的操作本就是传的地址,不过leechange讲要加 我又不敢肯定了

如果要在dll里使用string类型的话 在工程文件的第一个引用位置加上sharemem的引用

LeeChange · 2003-07-29

to 52free:   别急说什么样是对的,编一段试试就行了.   我是这样想的,PChar参数确实是传地址,但如果空间是在函数里申请的,则需要改变指针变量的指向而不是内容,所以加了var.不知道对不对.

52free · 2003-07-29

TO leechange    确实如此，你是对的

miky_sun · 2003-07-29

To:LeeChange 你说的我也试过，是没有出错但是aa,bb返回不了任何数据。 在Dll中可以看到数据，但是在主程序中就看不到数据了。 或者说它们是没有指向任何空间！采用这种方法没办法返回数据！ 我猜想DLL开辟的空间，在返回主程序时是不是被DLL又释放了？

DLL的输出，超难问题（高手请进） (50分)

miky_sun

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

miky_sun

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

miky_sun

Unregistered / Unconfirmed

miky_sun

Unregistered / Unconfirmed

miky_sun

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

miky_sun

Unregistered / Unconfirmed

Similar threads