0911名無しさん@お腹いっぱい。
2018/08/05(日) 16:57:18.58ID:xQC4BtX40"X-2ch-UA: JaneStyle/4.00"無限増殖の原因わかった。
TMainWnd.FormCreate → AsyncInitialize (U2chTicket.pasのクラスに属さないプロシージャ)
→ticket2ch := T2chTicket.Create;
→FDoLib := THogeDoLib.Create;
→THogeDoLibが所持するにオブジェクトを勝手に追加 IdHTTP = TIdHTTP2.Create;
アプリケーションの最初に初期化されるだけ。
メインスレッドがAPIアクセスすると
THogeDoLib.InternalLogin内
THogeDoLib.IdHTTP.Request.RawHeaders.Add(X_2CH_USER_AGENT + ': ' + FProductName);
RawHeadersの継承元はTStringListなので無限に増える。
OpenJaneやJaneLovelyでは
THogeDoLib.InternalLogin内でその都度
IdHTTP := TIdHTTP.Create(nil);
:
IdHTTP.Free;
してる。