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
  [ÇÖZÜLDÜ] WebDav ile Bulut Sunucuya Dosya Yükleme theSinan 4 604 08-07-2019, Saat: 15:42
Son Yorum: r3n4m3
  Dosya Adı ve İçeriğinde Arama Yapma dkadir 3 446 23-06-2019, Saat: 06:53
Son Yorum: dkadir
  Bilgisayar ile android arasında dosya aktarımı erkutolga 3 385 28-05-2019, Saat: 18:44
Son Yorum: erkutolga
  Dosya adresi Yeliz 2 442 02-03-2019, Saat: 16:13
Son Yorum: Yeliz
  Ağdaki Şifreli Paylaşıma Dosya Kopyalama theSinan 15 1.550 18-02-2019, Saat: 10:04
Son Yorum: theSinan



Konuyu Okuyanlar: 1 Ziyaretçi