Question

我有一个使用Delphi创建的Web服务，我想用它连接到sql server所以我已经在项目中添加了ADO Connection和ADOQuery，它们都配置好并且可以使用，只有一个小问题，我的项目有两个单位，这些对象被添加到Unit1，我正在使用我的ImplUnit whitch是另一个单位，并且找不到引用或在另一个单元中包含一个单元的方法。

unit1

  { SOAP WebModule} 
unit Unit1;

interface

uses
  SysUtils, Classes, HTTPApp, InvokeRegistry, WSDLIntf, TypInfo,
  WebServExp, WSDLBind, XMLSchema, WSDLPub, SOAPPasInv, SOAPHTTPPasInv,
  SOAPHTTPDisp, WebBrokerSOAP, DB, ADODB;

type
  TWebModule1 = class(TWebModule)
    HTTPSoapDispatcher1: THTTPSoapDispatcher;
    HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
    WSDLHTMLPublish1: TWSDLHTMLPublish;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    ADOQuery1: TADOQuery;
    procedure WebModule1DefaultHandlerAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled);
end;

end.

我的单位

   unit UTImplementacao;

interface

uses
  InvokeRegistry,DB, ADODB;


type
    IInterface = interface(IInvokable)
    ['{EFF30FFA-DA0C-433A-832A-0BA057B55103}']
    function ReceiveUser(username : String; password : String) :
    Boolean; stdcall;
  end;



  TImplementacao = class(TInvokableClass, IInterface)
    public
    function ReceiveUser(username : String; password : String) :
    Boolean; stdcall;
   end;

implementation

{ TImplementacao }

function TImplementacao.ReceiveUser(username, password: String): Boolean;
var
 ADOConnection1: TADOConnection;
 ADOQuery1: TADOQuery;
begin
    try
      ADOConnection1 := TADOConnection.Create(nil);
      ADOConnection1.LoginPrompt := False;
      ADOConnection1.ConnectionString:= 'Provider=SQLOLEDB.1;Integrated Security=SSPI;' +
                                        'Persist Security Info=False;' +
                                        'User ID=Diego;'+
                                        'Catalog=OnlineShopping;' +
                                        'Data Source=DIEGO-PC\SQLEXPRESS'+
                                        ';Use Procedure for Prepare=1;' +
                                        'Auto Translate=True;Packet Size=4096;'+
                                        'Workstation ID=DIEGO-PC;'+
                                        'Use Encryption for Data=False;'+
                                        'Tag with column collation when possible=False;';
      ADOConnection1.Connected := True;
      ADOQuery1.Connection := ADOConnection1;
      ADOQuery1.SQL.Add('select username,upassword from Users '+
                      'where  username = :usernamep and upassword = '+
                      ':upasswordp');
      ADOQuery1.Parameters.ParamByName('upasswordp').Value := password;
      ADOQuery1.Parameters.ParamByName('usernamep').Value  := username;
      ADOQuery1.ExecSQL;

      Result := True;

finally
  ADOQuery1.Free;
  if ADOConnection1.Connected then
    ADOConnection1.Close;
    ADOConnection1.Free;
  end;


 Result := False;

end;

initialization
  InvRegistry.RegisterInvokableClass(TImplementacao);
  InvRegistry.RegisterInterface(TypeInfo(IInterface));

end.

请忽略我添加到我的单元的ADOConnection和ADOQuery我有一个绝望的广告重复代码...是的，我知道yachs !!!!

@SilverWarrior

如果在UTImplementacao的使用中声明Unit1，我将可以访问以下组件：

type
    ADOConnection1: TADOConnection;
        ADODataSet1: TADODataSet;
        ADOQuery1: TADOQuery;

还是应该为var子句中的每个类型变量声明？

Answer 1

如果要从项目中的其他单元访问Unit1中声明的对象，则需要将Unit1添加到这些单元的接口使用部分（顶部的部分）中。

unit ImplUnit;

interface

uses
  SysUtils, Classes, ... , Unit1;

...

这与Delphi自动添加其他单位（如Sysutils，Classes等）的方式相同。

此外，我强烈建议您将单位的名称更改为更有意义的内容，以便在一段时间后查看代码时，您将很快知道该单元包含的代码及其用途。< / p>

编辑：根据您对问题的编辑，我怀疑您想直接通过调用来访问Unit1中的组件：

Unit1.AdoConnection1

那不行。为什么？这些组件是在TWebModule1类的范围内声明的。

所以你需要像这样访问它们：

Unit1.WebModule1.AdoConnection1;

注意：如果将Unit1添加到UTImplementacao设备的界面使用部分，您也可以直接致电：

WebModule1.AdoConnection1

您不必为每个命令添加前缀Unit1。我已经用这样的方式写了这篇文章，希望更容易理解你正在访问哪些单位。特别是对于那些可能正在阅读这个帖子并且不知道你的程序结构的人。

Delphi 7对象undefinedat

1 个答案: