- 934 名前:名無しさん@お腹いっぱい。 [2018/08/05(日) 16:57:18.58 ID:xQC4BtX40.net]
- >>869-870
"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 + ': ' + F
|

|