掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
タイマーイベントの終了を感知するには？ (ID:19497)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
解決しました。 これで古畑を見れます。 これもそれもヒントを与えてくださったおかげです。 わからんちんさんのフラグの方法とん？さんのhttpの終了を待つ方法の双方のアドバイスが役に立ちました。 ありがとうございます。 短いコードなので説明割愛させていただきます。 var CloseQuery: boolean = false; procedure TForm.Timer1Timer(Sender: TObject); begin http.Get(Url);//ここの時間がかかる処理 end; procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction); begin CloseQuery := true; if http.Connected then exit; Action := caFree; end; procedure http.IdHTTP2Disconnected(Sender: TObject); begin if CloseQuery then Close; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.