download ettirme hakkında.

[CemErgun]

merhabalar,

ben şusıra bir download programıyla uğraşıyorum şuana kadar çok güzel gidiyorda bir problem var.


bir dosyayı en sağlıklı biçimde nasıl download ettirebilirim? (pause olucak, byte kaybı olmıcak vsvs.. üstüne devam etcek vsvsvs...)

bunu yaptım diyelim,

indirilen dosya : test.rar
toplam boyut : 1000
indirilen boyut : 234
kalan boyut : 766
indirme hızı : 35 kb

mesela burda indirilen dosya toplam boyut indirilen boyut kalan boyut bunları yapabilirim gibi gözüküyor fakat indirme hızını nasıl yapacağız onu çözebilmiş değilim..

yardımcı olursanız sevinirim, şimdiden teşekkürler! herkese hayırlı geceler, kandiliniz mubarek olsun..

[vkamadan]

Merhaba pratik olarak aklıma gelen ilk şey , örneğin 3 saniyede bir indirilen boyuttan kalan boyutu çıkartıp 3 e bölüp KB ye çevirirseniz yaklaşık saniyedeki indirme hızını bulmuş olursunuz.
Kolay gelsin.

[conari]

ortalama hız =indirilen boyut / (şimdiki zaman -başlangıç zamanı )

[CemErgun]

hmm teşekkürler. peki


bir dosyayı en sağlıklı biçimde nasıl download ettirebilirim? (pause olucak, byte kaybı olmıcak vsvs.. üstüne devam etcek vsvsvs...)

bunu nasıl yapabilirim?

idftp ile yapabiliyorum gayet sağlıklı fakat cheat engine gibi programlarla ftp şifresi falanda gözüküyor oyüzden bunu kullanmak istemiyorum. yardımcı olabklceklere teşekkürler.

[khanco]

http den indirsen ftp şifresi kullanmadan

[CemErgun]

nasıl?

[fox]

Socket olarak indirme yapabilirsin mesela bağlandıktan sonra 100 byten devam et diyecek veya nerede kaldıysa oradan devam etme gibi

bunu nasıl yapcam dersen wininet ile yapabilirsin derim nasıl kodlayıcam dersen

Kod: Tümünü seç

function DownloadFile(
    const url: string;
    const destinationFileName: string): boolean;
var
  hInet: HINTERNET;
  hFile: HINTERNET;
  localFile: File;
  buffer: array[1..1024] of byte;
  bytesRead: DWORD;
begin
  result := False;
  hInet := InternetOpen(PChar(application.title),
    INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  hFile := InternetOpenURL(hInet,PChar(url),nil,0,0,0);
  if Assigned(hFile) then
  begin
    AssignFile(localFile,destinationFileName);
    Rewrite(localFile,1);
    repeat
      InternetReadFile(hFile,@buffer,SizeOf(buffer),bytesRead);
      BlockWrite(localFile,buffer,bytesRead);
    until bytesRead = 0;
    CloseFile(localFile);
    result := true;
    InternetCloseHandle(hFile);
  end;
  InternetCloseHandle(hInet);
end;

Kullanımı

Kod: Tümünü seç

if DownloadFile(
    'http://www.cryer.co.uk/index.htm',
    'c:\temp\index.htm')
then
  ShowMessage('Success')
else
  ShowMessage('Failed to download file');

Tabi bu kodu biraz kendine uyarlaman lazım repeat until içine bir boolean tipinde değer koyup pause işini yönetmek gibi