delphi4arab منتديات دلفي للعرب

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

كود :
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 تقبل الايقونات فقط او الصور المصغرة فقط
لاني حاولت عرض صورة بحجمها لاكن تضهر مشوهة ؟
هل هناك طريقة للعرض الصور في اماج وذلك انطلاقا من اماج ليست

تم ايجاد الحل

كود :
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;

gladiator16

gladiator16