3

当我调用 SOAP API 方法时，我收到以下消息：

First chance exception at $74EDB9BC. Exception class EAccessViolation with 
message 'Access violation at address 007004F6 in module 'DB2.exe'. 
Read of address 00000005'. Process DB2.exe (3768)

这是我从堆栈跟踪中得到的：

74EDB9AF 8945C0        mov [epb-$40],eax
74EDB9B2 8D45B0        lea eax,[edp-$50]
74EDB9B5 50            push eax
74EDB9B6 FF155C11ED74  call dword ptr [$74ed115c]
74EDB9BC C9            leave

我对 Delphi 不是很熟悉（只是维护一个较旧的程序）。有人可以告诉我如何调试这里发生的事情吗？我正在使用德尔福 2005。

这是失败的代码。调用时出现错误UpdateContact，我知道aContact&的数据FCompanyID在那里并且正确：

function TScheduleCenterBeta.AccountUpdate(aContact: c_ScheduleCenterBetaAPI.Contact): boolean;
begin
  try
    SendAuthHeader();
    FContact := FSoapService.UpdateContact(aContact, FCompanyID);
  except
    on e:Exception do begin
      MessageDlg(e.Message,mtWarning,[mbOK],0);
    end;
  end;
  result := true;
end;

该对象FContact是在创建主对象时创建的：

constructor TScheduleCenterBeta.Create(aOwner: TComponent; aCallID: integer = -1);
begin
  inherited Create(aOwner);

  FCallID := aCallID;
  FCompanyID := c_ScheduleCenterBetaAPI.CompanyID.Create();
  FCompanyID.ServiceCompanyID := StrToInt(TfrmCall(Screen.ActiveForm).Company.IP_CompanyID);
  FProperty_ := c_ScheduleCenterBetaAPI.Property_.Create();
  FContact := c_ScheduleCenterBetaAPI.Contact.Create();
  FContact.ContactID := -1;
  FContact.Address := c_ScheduleCenterBetaAPI.Address.Create();
  FAppointmentSlot := c_ScheduleCenterBetaAPI.AppointmentSlot.Create();
end;

另一个奇怪的地方是错误来来去去。如果我停止程序然后重新启动它（使用 Delphi 调试模式），我可能会也可能不会遇到错误。我还重新启动了 Delphi 以确保它与 Delphi 本身无关，但这似乎并没有改变任何东西。

4

0 回答 0