关于在dll中调用WebService的问题，100分相赠

2009-02-05 03:41:41 395 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

java结合Ai Spring AI 是 AI 工程的应用框架。其目标是将Spring生态系统的设计原则（如可移植性和模块化设计）应用于AI领域，并促进使用POJO作为应用程序的构建块到AI领域。特征跨 AI 提供商的可移植 API 支持，适用于聊天、文本到图像和嵌入模型。支持同步 API 和流 API 选项。还支持下拉以访问特定于模型的功能。聊天模型亚马逊基岩人类学Cohere的命令AI21 Labs的侏罗纪-2Meta 的 LLama亚马逊的泰坦人类学克劳德Azure 开放式 AI。阅读详情

各位好
最近写一个基于Webservice的客户端程序，ws也是用delphi写的，但在调用时出现了一些问题，请各位指教一下
delphi连接webservice自动生成的代码如下，我自己修改了下



..

IWebServiceAPI = interface(IInvokable)

..



function GetIWebServiceAPI(UseWSDL: Boolean; HTTPRIO: THTTPRIO): IWebServiceAPI;

var

  RIO: THTTPRIO;

  myIni: TiniFile;

  cServer, defWSDL, defURL, defSvc, defPrt, Addr: string;

begin



  myIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Param.ini');

  cServer := myIni.ReadString('DataSource','Server','');

  myIni.Free;



  With HTTPRIO do

  begin

    defWSDL := cServer + RENT_SERVERWSDL;

    defSvc := RENT_SERVERSERVICE;

    defPrt := RENT_SERVERPORT;

    defURL := cServer + RENT_SERVERSOAP;

  end;



  Result := nil;



  if UseWSDL then

    Addr := defWSDL

  else

    Addr := defURL;



  if HTTPRIO = nil then

    RIO := THTTPRIO.Create(nil)

  else

    RIO := HTTPRIO;

  try

    Result := (RIO as IWebServiceAPI);

    if UseWSDL then

    begin

      RIO.WSDLLocation := Addr;

      RIO.Service := defSvc;

      RIO.Port := defPrt;

    end else

      RIO.URL := Addr;

  finally

    if (Result = nil) and (HTTPRIO = nil) then

      RIO.Free;

  end;

end;

现在有问题了，如果此单元直接放在exe里面调用的时候，一切正常，但是如果将该单元放在dll里面调用的时候，当debug到Result := (RIO as IWebServiceAPI);时就会出现Exception EIntfCastError的信息，导致dll不能正常工作
现在的情况是，最好也将该单元放在dll里面做成接口形式的，因为还有其他的dll需要调用它
我是不是忽略了什么，还是webservice本身就不能再dll里面调用
看网上说要加初始化什么的，我就加了下面这些，但是也不起作用
initialization
CoInitialize(nil);
finalization
CoUnInitialize;

...全文