Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi dateien paralel runterladen (https://www.delphipraxis.net/110781-dateien-paralel-runterladen.html)

bundy 25. Mär 2008 00:21

Re: dateien paralel runterladen
 
hi
ich würde das so machen.
Delphi-Quellcode:
procedure TForm1.SpeedButton3Click(Sender: TObject);
var i:integer;
begin
  for i := 1 to ListView1.Items.count do
  begin
  MakeDownload(ListView1.Items[i].Caption);
  ListView1.Items[i].delete
  end;
end;
kann aber auch Listview1.ItemCount oder so heißen, hab jetzt leider kein Delphi offen um dir das genau sagen zu können.

Denkweise:
Eine For Schleife machen die sich so oft wiederholt wie Items in der Listview sind.
nach jedem Durchgang erhöht sich i um 1.
dazwischen die Downloadprocedure rein und anschliessend löschen.

lg
bundy

Namenloser 25. Mär 2008 00:24

Re: dateien paralel runterladen
 
das wird so nicht funktionieren, weil sich durch das delete wieder der Index der Items ändert. Wenn schon, musst du die Schleife rückwärts laufen lassen. Was ich in diesem Fall fast noch eleganter fände wäre eine while-schleife. (while itemcount > 0 do... download(tems[0]))

bundy 25. Mär 2008 00:25

Re: dateien paralel runterladen
 
jup oder so :)

napstar 25. Mär 2008 00:44

Re: dateien paralel runterladen
 
danke für eure hilfe ich werd es morgen mal ausprobieren...
aber für heute ist schluss ^^

SirThornberry 25. Mär 2008 13:10

Re: dateien paralel runterladen
 
mache bitte nächstes mal für eine neuen Frage auch ein neues Thema auf :)

napstar 25. Mär 2008 14:24

Re: dateien paralel runterladen
 
das mit while hab ich nicht so richtig verstanden.. aber for hat nicht funktioniert ^^..
Delphi-Quellcode:
  DLname:='video'+InttoStr(i)+'.flv';
  if FileExists(downloadpfad+DLname) then begin
  for i := 1 to 2 do
  i:=i + 1;
  DLname:='video'+InttoStr(i)+'.flv';
  end;
kann mir jemand das mit dem while näher erklähren ?^^
daraus bin ich nicht schlauer geworden


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:12 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz