Urlden Dosya İndirme

[apachi2006]

Daha önce sürekli ullanmış olduğum kodlar çalışmıyor. İndirilemedi diye hata veriyor. Farklı yolla yapan varmı? 

function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;



procedure Tmain.btndownloadClick(Sender: TObject);
var
  SourceString, DestinationString: string;
  i:integer;
begin
SourceString := 'http://deneme.com/Download/deneme/deneme.zip';
DestinationString := 'c:\deneme.zip';
if DownLoadInternetFile(SourceString, DestinationString) then
  begin
  ShellExecute(Application.Handle, PChar('Close'), PChar(DestinationString), PChar(''), nil, SW_NORMAL);
  end
else
  MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);
end;

---

Çözüldü kapatabilirsiniz.

procedure TForm11.DownloadFile(filename, path: string);
var Stream: TMemoryStream;
Url: String;
begin
Url := filename;
Stream := TMemoryStream.Create;
try
IdHTTP1.Get(Url, Stream);
Stream.SaveToFile(path);
finally
Stream.Free;
IdHTTP1.Free;
end;
end;

procedure TForm11.sBitBtn1Click(Sender: TObject);

begin
DownloadFile('http://deneme.com/Download/deneme/deneme.zip', 'C:\denemel.zip');
end;