还有关于DLL的问题！(100分)

tgangt · 2002-01-20

请问：   1。如何在DLL中设入全局常量，可以让调用的外部程序（EXE程序）使用？？   2。我在form1中调用了一个DLL库中的函数，在form2中又要使用这个函数，如何可以不再 调用？？ 谢谢！

yzhshi · 2002-01-20

1、通过接口Export使用var来传递。

tgangt · 2002-01-20

to yzhshi 能否详细些，我第一次搞DLL，谢谢了！

yzhshi · 2002-01-20

这个意思： procedure ShowFormInDLL(var aaa: TList); exports ShowFormInDLL; 调用的时候，为aaa分配好空间，需要传递回来参数的时候只是简单的aaa.add了。

tgangt · 2002-01-20

to yzhshi 还是不太明白！不好意思！ 您有QQ号吗？？我的是6324232还是在QQ上找您吧！

sxbrf · 2002-01-20

1.导出的接口函数中使用变参 2。你的意思我不大明白

yzhshi · 2002-01-20

对不起，我没有QQ[

][

]，真的！ 就是说是通过指针将数据返回。Var，可以在两者之间来传递数据的，其实如果使用 TList，不用var都可以。

tgangt · 2002-01-20

不好意思，能否再详细些啊？？我可能是太菜了！呵呵！ 第一个问题：  比如，我在程序中有  const   aaa='this is test'; .........    edit1.text:=aaa; 那我如何把‘aaa'放入DLL库中呢？？又如何在程序中调用？？谢谢了！ 第二个问题：  如果我在一个DLL库中有一个函数是：   function test(ii:integer):integer   begin     Resut:=ii+1;   end; 那我在外部的程序中调用这个函数：   在FROM1中我定义function test(ii:integer):integer; External 'test.dll';是可以用的，但 form2里我又要用到这个函数，编译时就出现“没有定义”怎么办啊？？我想在form1中定义好， 其它form里就不用再定义了，如何做呢？？ 谢谢各位啦！！！

yzhshi · 2002-01-20

第一个很正常，你直接传递进去就可以了。 使用pchar 类型足够。 动态库里面： procedure ShowFormInDLL(var aaa: pChar); exports ShowFormInDLL; 调用的时候。 ShowFormInDLL(pChar(Edit1.Text));

yzhshi · 2002-01-20

第二个更简单了，你将声明放在公共函数里面就好了，看一下Windows.pas文件，你就会明白的。

sxbrf · 2002-01-20

1.Dll中写函数   function GetConst(I:integer):string   begin     case I of       1：result：= aaa；       2：result：= bbb；       。。。     end；   end；     edit1.text:= GetConst(1); 2. 你看一下form2的Unit有没有uses form1的Unit；

还有关于DLL的问题！(100分)

tgangt

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

tgangt

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

tgangt

Unregistered / Unconfirmed

sxbrf

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

tgangt

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

sxbrf

Unregistered / Unconfirmed

Similar threads