如何将验证码图片保存到本地？高分求解

Question

就拿CSDN的登陆窗口的验证码为例，如何实现将验证码图片保存到本地硬盘中？

Answer 1

供参考：function TForm1.GetURLFile(strURL:string; strFileName:string):boolean;  //保存图片
var
    ms:TMemoryStream;
begin
    ms:=TMemoryStream.Create;
    Result:=true;
    IdHTTP1.Disconnect;
    try
        IdHTTP1.Get(strURL,ms);
        ms.Position:=0;
        ms.SaveToFile(strFileName);
    except
        Result:=false;
    end;
    ms.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  Msg: TMsg;
  SL: TStringList;
  I: Integer;
begin
  GetURLFile('http://passport.csdn.net/ShowExPwd.aspx?DateTime=2006-5-19%2023:08:38&strimg=0.8544980050337276', 'c:\a.jpg');
end;