التحميل ملف بعد ملف Listview

[gladiator16]

السلام عليكم ورحمة الله وبركاته
عندي مشكلين او اكثر
اولا نداء بروسيدير

كود :

ExtractLinks(Edt1.Text + '1', lv1.Items[i].SubItems, Edt2.Text);

يضهر خطا
وكذلك في التحميل

كود :

procedure TForm1.btn3Click(Sender: TObject); var i:Integer; begin pb1.Max:=lv1.Items.Count; for i:=0 to lv1.Items.Count-1 do begin lbl1.Caption:='Downlad ..'+ lv1.Items[i].SubItems.Text; DownloadFile(lv1.Items[i].SubItems.Text , 'C:\work'); pb1.Position:=pb1.Position+1; end; end;

يحمل الملف الاخير فقط ؟؟
وهل هناك طريقة للتحميل افضل ؟
---------------
وهناك تسائل اخر

كود :

Img2.Picture := nil; sAlphaImageList1.GetBitmap( i, Img2.Picture.Bitmap ); i := i+1;

هل img تقبل الايقونات فقط او الصور المصغرة فقط
لاني حاولت عرض صورة بحجمها لاكن تضهر مشوهة ؟
هل هناك طريقة للعرض الصور في اماج وذلك انطلاقا من اماج ليست

[gladiator16]

تم ايجاد الحل

كود :

procedure TDown.btn3Click(Sender: TObject); var i,j,max,c:Integer; begin max :=0;c:=0; down.Caption:='Download ..'; for j :=0 to lv1.Items.Count-1 do if lv1.Items[j].Checked=True then max:=max+1; //----------------------- pb1.Max:=max; //pb1.Max:=lv1.Items.Count; for i:=0 to lv1.Items.Count-1 do begin if lv1.Items[i].Checked=True then begin mmo2.Lines.Add('> Downlad ..'+ lv1.Items[i].SubItems.Text+' ...'); Sleep(100); //DownloadFile(lv1.Items[i].SubItems.Text , 'C:\work'); //------- c:=c+1; iehttp1.ExecuteURL(lv1.Items[i].SubItems.Text); iehttp1.result_ms.SaveToFile('c:\'+inttostr(i)+'.zip'); mmo2.Lines.Add('> Downlad : '+lv1.Items[i].SubItems.Text+'..ok'); down.Caption:='Download ..'+inttostr(c)+'/'+inttostr(max); end;