- 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
