Nie można zniszczyć komponentu THTTPReqResp w wątku

Question

Mam problemy z używaniem SOAP w XE/XE2 z wątku. (Nie testowałem tego ze starszymi Delphis.) Prosty kod działający w głównej awarii wątków podczas niszczenia instancji THTTPReqResp z Invalid pointer operation.

To jest kompletny program. Formularz zawiera tylko jeden przycisk, który uruchamia zdarzenie 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. 

Wyjątkiem jest podniesione w TObject.FreeInstance na wezwanie _FreeMem.

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

Stos wywołań prowadzi do tego problemu jest

: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 

mam absolutnie żadnego pojęcia, co się dzieje, dlaczego _ClassDestroy nazywa się w ogóle i dlatego kod wywala :(Może ktoś proszę a) wyjaśnić, co robię źle i b) naprawić mój kod?

Answer 1

"Nieprawidłowe działanie wskaźnika" oznacza uwolnienie czegoś, co nie jest poprawną pamięcią. Może to czasami wskazywać na uszkodzenie stosu lub sterty, ale bardziej prawdopodobne jest, że zwalniasz coś, co zostało już uwolnione.

Nic dziwnego, że wywoływana jest nazwa _ClassDestroy. FHTTPReqResp ma wartość inną niż null, więc gdy FreeAndNil dzwoni pod numer Free, Free dzwoni Destroy.

Wygląda na to, że obiekt THTTPRIO przejmuje prawa własności do nadanego mu THTTPReqResp. Jeśli tak jest, to rozwiązanie jest proste: nie uwolnij go sam.