Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Urlden Dosya İndirme
#1
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;
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Build Öncesi batch dosya çalıştırma tuna 2 82 26-05-2020, Saat: 16:05
Son Yorum: tuna
  Dosya Gönderme ikurt07 1 212 10-04-2020, Saat: 11:29
Son Yorum: hasangoktas
  WebDav ile Yandex Diskten Klasör ve Dosya Listesi Alma theSinan 2 426 13-02-2020, Saat: 19:58
Son Yorum: theSinan
  TByteDynArray'den Dosya Oluşturma enes6635 9 2.010 16-01-2020, Saat: 09:20
Son Yorum: SimaWB
  Datasnap büyük dosya gönderme sorunu. seci20 2 590 12-01-2020, Saat: 14:56
Son Yorum: seci20



Konuyu Okuyanlar: 1 Ziyaretçi