서버에서 파일 받기

서버에서 Http 로 파일 받을 때 방법이다.

procedure TForm1.DownloadProgressEvent(Sender: TDownLoadURL; Progress,
    ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String;
    var Cancel: Boolean);
begin
  if( (Progress<1) Or (ProgressMax<1) )then Exit;

  Self.Progressbar1.Position := Round(Progress / ProgressMax * 100);

  Self.Label1.Caption := FormatFloat('#,##0', (Progress     div 1024)) +' / '+
                                  FormatFloat('#,##0', (ProgressMax  div 1024)) +' Kb)';
end;

function  TForm1.FileDownloadFromWeb( const sUrl, sFile : String ):Boolean;
var
  DownloadURL: TDownloadURL;
begin
  DeleteUrlCacheEntry(PChar(sURL));

  DownloadURL:=TDownloadURL.Create(Self);

  DownloadURL.URL:=sUrl;
  DownloadURL.FileName:=sFile;
  DownloadURL.OnDownloadProgress := DownloadProgressEvent;

  try
    Result := DownloadURL.Execute;
  except
    Result := false;
  end;
  FreeAndNil(DownloadURL);
end;

이렇게 하면 진행상태까지 표시된다.