请问一下为什么同一个程序,其他人可以正常运行,而我编译时提示delphi invalid argument to date encode这个错误呢?
代码如下:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,IdHTTP;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function GetURLFile(strURL, strFileName: string): boolean;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  Msg:   TMsg;
  SL:   TStringList;
  I:   Integer;
begin
  GetURLFile('http://passport.csdn.net/ShowExPwd.aspx?DateTime=2006-05-19%2023:08:38&strimg=0.8544980050337276','E:\a.jpg');
end;
function TForm1.GetURLFile(strURL, strFileName: string): boolean;
var
  ms:TMemoryStream;
  idhttp: Tidhttp;
begin
  ms:=TMemoryStream.Create;
  Result:=true;
  idhttp := TIdHTTP.Create(nil);
  try
    idhttp.Get(strURL,ms);
    ms.Position:=0;
    ms.SaveToFile(strFileName);
  except
    Result:=false;
  end;
  ms.Free;
end;end.
~~~~~~~~~~
希望各位大侠多多帮忙

解决方案 »

  1.   

    定位到ms.Position:=0; 这行出错
    完整的错误提示是:
    Project Project1.exe raised exception Class EconvertError with message 'invalid argument to date encode'
    Process stopped.Use step or run to continue.
      

  2.   

    'invalid argument to date encode' 
    时间编码非法参数
      

  3.   

    你的網址有問題。含有" % "號,dephi 會自動把它轉義為其它內容的。 處理一下那網址應沒有問題了。。