Delphi: URL Download

간단한 URL Download 이다.

이건 잊지 말고 항상 설정 해주자.
// For URL Redirection
ctHTTP.HandleRedirects := True;
// for HTTP 404 Forbidden Error; User-Agent
ctHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.5)';


//
// URL Download
//
function URLDownload(ctHttp: TIdHTTP; strUrl: String; strOutFilename: String): Boolean;
var
fileStream
fileStream: TFileStream;
recvData: String;
begin
// For URL Redirection
ctHTTP.HandleRedirects := True;
// for HTTP 404 Forbidden Error; User-Agent
ctHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.5)';

recvData := ctHTTP.Get( strUrl );

fileStream := TFileStream.Create( strOutFilename, fmCreate );
fileStream.Write( recvData[1], Length(recvData) );
fileStream.Free;

if( Length(recvData) > 0 ) then
Result := True
else
Result := False;
end;

-----
Cheers,
June