急！如何在加载dll后，引出其中同一个对象其中多个实例？？？

Question

程序片断如下，目的是加载dll，并且通过InitObjDemo引出一个对象实例，我想多次调用一下代码从而多引出几个实例，发现得到的总是同一个。也就是FList[0]和FList[1]中的是同一个对象实例。 
      HandleList[ObjNum-1] := 0;
      HandleList[ObjNum-1] := LoadLibrary('Tools.dll');
      if HandleList[ObjNum-1] <> 0 then
        begin
          @InitObj := GetProcAddress(HandleList[ObjNum-1], 'InitObjDemo');
          if @InitObj <> nil then
            begin
              FList[ObjNum-1]:= InitObj;
              showmessage('now objisin:FList['+inttostr(ObjNum-1)+']');
            end;
          result:=FList[ObjNum-1] as IUnknown;
急！请高手指导！！！

Answer 1

程序片断如下，目的是加载dll，并且通过InitObjDemo引出一个对象实例，我想多次调用以下代码从而多引出几个实例，发现得到的总是同一个。也就是FList[0]和FList[1]中的是同一个对象同一个实例。我希望得到的是同一个对象的不同实例。 
      HandleList[ObjNum-1] := 0;
      HandleList[ObjNum-1] := LoadLibrary('Tools.dll');
      if HandleList[ObjNum-1] <> 0 then
        begin
          @InitObj := GetProcAddress(HandleList[ObjNum-1], 'InitObjDemo');
          if @InitObj <> nil then
            begin
              FList[ObjNum-1]:= InitObj;
              showmessage('now objisin:FList['+inttostr(ObjNum-1)+']');
            end;
          result:=FList[ObjNum-1] as IUnknown;
急！请高手指导！！！

Answer 2

Dll中导出类--Delphi
作者: Musicwind
　　从Dll中导出类，想必大家首先想到的是使用bpl包。这种方式有一个不好，那就是使用者必须清楚这个包中含有那些类，也就是说必须知道类的名字--这在一定意义上是个限制，试想一种情况，使用者定义了一个底层的抽象类(abstract class)，然后在此基础上定义了许多应用类(concrete class)，那么，对于使用者来说，他希望在不知道具体有哪些类的情况下能使用这些类--这么说似乎有些玄，但实际情况确实如此，因为定义抽象类的时候并不能预料到以后会有多少个具体类--那么这样的需求，要靠什么样的技术来实现呢？　　其实实现的技术的难度并不大--作者在此将自己实践的经验献给大家，算作抛砖引玉，希望能看到其他更好的方法！
　　以下先介绍该方法涉及的一些基础知识，然后用一个例子来说明具体的实现。一、基本概念　　元类(meta class)，也叫类引用类型(class-reference type)，可以看成是一种类的类型，以该类型声明的变量的值代表一个类。比如： typeTClass = Class of TObject；　　这样就声明了一个元类的类型。然后可以有这样的变量声明：VarAClass: TClass;　　那么，就可以有这样的用法：AClass := TObject;　　或者：AClass := TButton;　　或者：AClass := TForm;　　等等。　　因为TClass是一个TObject类型的元类，而TButton，TForm等都是自TObject派生而来，因而TButton和TForm这样的值对于AClass都是可接受的。　　然后，我们就可以运用多态的思想，灵活运用AClass这个类变量了。而这一点也正是下文具体实现的基础知识。

Answer 3

二、具体实现　　第一步，建立一个抽象类：　　我们使用这样一个简单的声明，该抽象类只提供了一种抽象方法，但并不影响我们描述问题：TMyBaseForm = Class(TForm)protectedfunction GetTitle: pchar; virtual; abstract;end;MyBaseFormClass = Class of TMyBaseForm;　　暂不探讨这么一个抽象类提供了多少可供实用的方法和接口，因为我们要讨论的是一种技术上的可行性。假设作者定义此接口的初衷只是希望获得任意多变化的Title，而具体GetTitle的返回值是什么需要靠子类来实现。并且，作者还希望子类的代码放在Dll中实现，与主程序分离--这样的方式很有些插件的味道，或许还能实现Plug&Play的某些特性--是不是挺吸引人啊？那么，下一不应该怎么做呢？　　首先主程序和Dll程序应当将上述声明的单元包含进来，然后，主程序负责实现一个驱动--动态加载Dll，动态加载类；而Dll负责实现子类。　　先说Dll吧，Dll应当做什么工作？

Answer 4

谢谢，导出类还没试过，不过有人说dll中没办法导出类的
先up

Answer 5

csdn不然我贴这个贴子..说不要发表对他们有伤害的贴子...:(((剩下的我用消息给你

Answer 6

先谢谢goodloop(小志），一定仔细试验，看看能不能满足我们项目的要求。
希望高手能阐述一下我碰到的问题的原因？