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;