Question

我在线程中使用XE / XE2中的SOAP时遇到问题。（我没有使用较旧的Delphis测试它。）在主线程中工作的简单代码在使用Invalid pointer operation销毁THTTPReqResp实例时崩溃。

这是完整的计划。表单只包含一个触发btnTestClick事件的按钮：

unit Unit79;

interface

uses
  SysUtils, Forms, Classes, Controls, StdCtrls, ComObj,
  ActiveX, InvokeRegistry, SOAPHTTPTrans, Rio, SOAPHTTPClient;

type
  TForm79 = class(TForm)
    btnTest: TButton;
    procedure btnTestClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form79: TForm79;

implementation

{$R *.dfm}

procedure TForm79.btnTestClick(Sender: TObject);
begin
  TThread.CreateAnonymousThread(
    procedure
    var
      FHTTPReqResp: THTTPReqResp;
      FHTTPRIO: THTTPRIO;
    begin
      if CoInitializeEx(NIL, COINIT_MULTITHREADED or COINIT_SPEED_OVER_MEMORY) = S_OK then try
        FHTTPReqResp := THTTPReqResp.Create(nil);
        with FHTTPReqResp do begin
          Name := 'HTTPReqResp1';
          UseUTF8InHeader := True;
          InvokeOptions := [soIgnoreInvalidCerts, soAutoCheckAccessPointViaUDDI];
          WebNodeOptions := [];
        end;
        FHTTPRIO := THTTPRIO.Create(nil);
        with FHTTPRIO do begin
          Name := 'HTTPRIO1';
          HTTPWebNode := FHTTPReqResp;
        end;
        //
        FreeAndNil(FHTTPRIO);
        FreeAndNil(FHTTPReqResp); //<-- crashes here
      finally CoUninitialize; end;
    end
  ).Start;
end;

end.

在_FreeMem调用的TObject.FreeInstance中引发了异常。

procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Self);
end;

导致此问题的调用堆栈是

:75bab9bc KERNELBASE.RaiseException + 0x58 System.TObject.FreeInstance
System.ErrorAt(2,$4052E1) System.Error(reInvalidPtr)
System.TObject.FreeInstance System._ClassDestroy(???)
Soap.SOAPHTTPTrans.THTTPReqResp.Destroy System.TObject.Free
frmMain.TMainForm.btnTestClick$4934$ActRec.$0$Body
System.Classes.TAnonymousThread.Execute
System.Classes.ThreadProc($F83530) System.ThreadWrapper($F51050)
:76a4339a kernel32.BaseThreadInitThunk + 0x12 :77b59ef2
ntdll.RtlInitializeExceptionChain + 0x63 :77b59ec5
ntdll.RtlInitializeExceptionChain + 0x36

我完全不知道发生了什么，为什么要调用_ClassDestroy以及为什么代码崩溃:(有人可以请一个）解释我做错了什么并且b）修复我的代码？

Answer 1

“无效指针操作”意味着您正在释放不代表有效内存的内容。这有时可能表示堆栈或堆损坏，但它更可能表明您正在释放已经释放的内容。

调用_ClassDestroy并不奇怪。 FHTTPReqResp非空，因此当FreeAndNil在其上调用Free时，Free会调用Destroy。

您的THTTPRIO对象似乎获得了您提供的THTTPReqResp的所有权。如果是这种情况，那么解决方案很简单：不要自己解放。

无法销毁线程中的THTTPReqResp组件

1 个答案: