|
▼ 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;
|