hongqi162的专栏

wuyuedeai发表于：2008-07-05

我的一个动态链接库的问题 解决不了 郁闷中啊~~
在动态链接库中大概是这么写的： 
暴露出来的函数是： 
GetHelloInit; 函数原型是：  function GetHelloInit: IDemoIntef; stdcall; 用来创建一个IDemoIntef类型的对象 
定义了一个 类 TDemoIntf = Class(TInterfacedObject,IDemoIntef) 其中包含了一些接口中的函数。 
IDemoIntef 是 子定义的一个接口 
var 
  _IDemoIntef : IDemoIntef;  //这是个全局变量，接口类型 

function GetHelloInit: IDemoIntef; stdcall; 
begin 
  try 
    if not Assigned(_IDemoIntef) then 
    begin 
      _IDemoIntef := Tdemointf.Create; 
    end; 
  finally 
  end; 
  Result := _IDemoIntef; 
end; 

现在的问题是： 为什么我用两个函数 同时调用这个动态链接库的时候总是会创建两个  _IDemoIntef  这样的对象呢？ 
希望能帮我看看啊~~

lw549发表于：2008-07-04

月亮老大，我现在没有小蜜，您是版主，能帮我找一个吗？我愿奉上300分作为回报。

回复于 2008-07-04

我也正在找小蜜，如果你能帮我找到3000分作为回报

biln12315发表于：2008-05-24

我在做一个管理系统的软件,程序调试已经通过,但是具体的功能模块的功能实现还有问题,可不可以和您联系,能否得到您的帮助,不甚感激!qq:79505527. 
E-mail:taozyang@sohu.com

biln12315发表于：2008-05-24

我在做一个管理系统的软件,程序调试已经通过,但是具体的功能模块的功能实现还有问题,可不可以和您联系,能否得到您的帮助,不甚感激!qq:79505527. 
E-mail:taozyang@sohu.com

oushengfen发表于：2008-05-15

月亮老大,帮我看看这个贴子,可以吗?

kaikai_kk发表于：2008-05-01

老大
D版怎么了,很老的帖子排到了前面
最近的帖子跑到那去了,找不到
看到帖子有回复的,打开帖子又看不到内容???
搞什么鬼...

summerdashu发表于：2008-04-11

您好！我在安装VCLSkin控件时，编译之后出现这样的警告提示：
[warning]Unit'WinSinForm'implicitly imported into package 'WinSinD7'
[warning]Unit'WinSubClass'implicitly imported into package 'WinSinD7'
[warning]Unit'WinSkinData'implicitly imported into package 'WinSinD7'
[warning]Unit'WinSinDlg'implicitly imported into package 'WinSinD7'
[warning]Unit'WinSinMenu'implicitly imported into package 'WinSinD7'
[warning]Unit'SinRead'implicitly imported into package 'WinSinD7'
[warning]Unit'ImgUnit'implicitly imported into package 'WinSinD7'
[warning]Unit'WinSinIni'implicitly imported into package 'WinSinD7'
[warning]Unit'WinSinConvert'implicitly imported into package 'WinSinD7'
[warning]Unit'WinSinStore'implicitly imported into package 'WinSinD7'
请问大侠 ，这是什么原因啊？搞了一下午搞不定，SOS  SOS!!!!小弟初识delphi，太多简单的问题搞不懂啊！

firewolfcsl发表于：2008-01-27

麻烦大哥帮忙看一下我的问题好吗？csdn地址：http://topic.csdn.net/u/20080127/17/8a99bbc1-3423 -4e79-b0bf-90e79c55098c.html，先谢谢了

helloworld_001发表于：2008-01-03

刚发现个问题,你给的query仅在表模式下有用,那我100多张表都要列出来然后再导?
我希望导出陌个用户下的所有表

hnlg81004发表于：2007-11-28

你好，通过delphi导入的WSDL中的接口函数还需要再实现吗？如果不用实现的话，那下面这个函数改怎么调用呢？
Login = class;  { "urn:ale.logicalloy.com" }
LoginResult = class; { "urn:ale.logicalloy.com" }

Login = class(TRemotable)
  private
    Fusername: WideString;
    Fpassword: WideString;
  public
    constructor Create; override;
  published
    property username: WideString read Fusername write Fusername;
    property password: WideString read Fpassword write Fpassword;
  end;

  LoginResult = class(TRemotable)
  private
    FloginTime: TXSDateTime;
    FsessionId: WideString;
    Fsuccess: Boolean;
    Fusername: WideString;
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property loginTime: TXSDateTime read FloginTime write FloginTime;
    property sessionId: WideString read FsessionId write FsessionId;
    property success: Boolean read Fsuccess write Fsuccess;
    property username: WideString read Fusername write Fusername;
  end;

ALEServicePortType = interface(IInvokable)
  ['{89261E5F-CB3D-B520-AB70-8D333AB656C3}']
  function  login(const parms: Login): LoginResult; stdcall;
end;

constructor Login.Create;
begin
  inherited Create;
  FSerializationOptions := [xoLiteralParam];
end;

constructor LoginResult.Create;
begin
  inherited Create;
  FSerializationOptions := [xoLiteralParam];
end;

destructor LoginResult.Destroy;
begin
  if Assigned(FloginTime) then
    FloginTime.Free;
  inherited Destroy;
end;
initialization
  RemClassRegistry.RegisterXSClass(Login, 'urn:ale.logicalloy.com', 'Login');
  RemClassRegistry.RegisterSerializeOptions(Login, [xoLiteralParam]);
  RemClassRegistry.RegisterXSClass(LoginResult, 'urn:ale.logicalloy.com', 'LoginResult');
  RemClassRegistry.RegisterSerializeOptions(LoginResult, [xoLiteralParam]);