Kod: Tümünü seç
function DosyaIndir(Source, Dest : String): Boolean;
begin
try
Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
except
Result := False;
end;
end;
"HTTP" adresi ile baslaşayan sitelerden; yukarıdaki fonksiyon ile dosya indirebiliyordum.
"HTTPS" ile başlayan sitelerde ise bu fonksiyon çalışmıyor.
indirmek istediğim link: https://tuikweb.tuik.gov.tr/PreIstatist ... tab_id=656
Delphi7 kullanıyorum.
https ile başlayan sitelerden nasıl dosya indirebilirim.
Yardımcı olacak olanlara şimdiden tşk ederim.
İyi çalışmalar.