+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التحميل ملف بعد ملف Listview (/showthread.php?tid=2908)
التحميل ملف بعد ملف Listview - gladiator16 - 19-03-2011
السلام عليكم ورحمة الله وبركاته
عندي مشكلين او اكثر
اولا نداء بروسيدير
كود :
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;لاني حاولت عرض صورة بحجمها لاكن تضهر مشوهة ؟
هل هناك طريقة للعرض الصور في اماج وذلك انطلاقا من اماج ليست
التحميل ملف بعد ملف Listview - gladiator16 - 20-03-2011
تم ايجاد الحل
كود :
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;