掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IdSMTPのquicksendで送信日時を正しくするには？ (ID:32573)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Indy9のようにキチンとやりたければ、以下だね。 だけど、このままではIndy10ではコンパイル出来ないので、イロイロ面倒な 書き換えと追加が必要。日本時間限定がお手軽かな。 function OffsetFromUTC: TDateTime; var iBias: Integer; tmez: TTimeZoneInformation; begin Case GetTimeZoneInformation(tmez) of TIME_ZONE_ID_INVALID: raise EIdFailedToRetreiveTimeZoneInfo.Create(RSFailedTimeZoneInfo); TIME_ZONE_ID_UNKNOWN : iBias := tmez.Bias; TIME_ZONE_ID_DAYLIGHT : iBias := tmez.Bias + tmez.DaylightBias; TIME_ZONE_ID_STANDARD : iBias := tmez.Bias + tmez.StandardBias; else raise EIdFailedToRetreiveTimeZoneInfo.Create(RSFailedTimeZoneInfo); end; Result := EncodeTime(Abs(iBias) div 60, Abs(iBias) mod 60, 0, 0); if iBias > 0 then begin Result := 0 - Result; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.