名前
題名
▼ TSさん > ▼ Mr.XRAYさん > > 参考になるホームページを教えていただきありがとうございます。 > 応答して返ってくるXMLの漢字の部分が文字化けする状態です。 > Delphi2010でしか試していません、上記のホームページの指摘事項の > 問題では無いみたいです、暇をみて調査中です。 > > 以下もopml.pasで使用されているソースですが、 > Delphi7で使用している。Indy10.0.52では正常に'2002/07/27 1:35:52' > が表示されますが、Delphi2010のIndyではエラーとなります。 > > エラー箇所はIdDateTimeStampの > procedure ValidateTimeStamp(const ATimeStamp: TIdDateTimeStamp); > IdGlobal.ToDo; > の部分です。 > これをコメントアウトすると'2003/08/28 1:35:52'が返ってきます。 > 年月日が１プラスされたものです。 > これって一体何なんでしょうか。 > > uses > 各種, > ,IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient,IdDateTimeStamp, IdHTTP; > > //プログラム内のコード > function RFC822ToDateTime(ARFC822String: string): TDateTime; > begin > with TIdDateTimeStamp.Create(nil) do > try > SetFromRFC822(ARFC822String); > Result := AsTDateTime ; > finally > Free; > end; > end; > > //てすと用 > procedure TForm1.BitBtn1Click(Sender: TObject); > var > d1:TDateTime; > st1:string; > begin > //Edit1.text='Thu,27 Jul 2002 01:35:52 GMT'; > d1:=RFC822ToDateTime(Edit1.text); > //Edit2.text=2002/07/27 1:35:52 > Edit2.text:=DateTimeToStr(d1); > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link