ماهي طريقة ارسال Listview على دفعات

[M_Mori2010]

السلآم عليكم ورحمة الله وبركات
ماهي طريقة ارسال محتوى Listview على دفعات حيث ان كود الارسال لدي صحيح
على الشكل الاتي
الارسال الاول : من 1 الى 25
الارسال الثاني : من 25 الى 50
الارسال الثالث : من 50 الى 75
وهكذا

[justnick]

استخدم حلقات تكرارية متداخلة

[M_Mori2010]

شكراً اخي لكن انا اسأل عن المعادلة
لأرسال الكل استخدم التالي :

PHP كود :

for i :=0 to lvl1.Items.Count-1 do
    begin
    all_name:=all_name+lvl1.Items[i].Caption+'*|'
    +lvl1.Items[i].subitems[0]+'^*'
    +lvl1.Items[i].subitems[1]+'>%'
    +lvl1.Items[i].subitems[2]+'&^'
    +lvl1.Items[i].subitems[9]+'$^'
    +lvl1.Items[i].subitems[6]+'%%'+'@';
        end;
        for n:=0 to rom1.Socket.ActiveConnections-1 do
        begin
        rom1.Socket.Connections[n].SendText(utf8Encode('*Mr3*@'+all_name));
        end; 


لكن ماهي الطريقة لارسال25 تلو 25

[sa7er100]

كود :

for i :=0 to lvl1.Items.Count 25 do for c :=25 to lvl1.Items.Count 50 do for b :=50 to lvl1.Items.Count 75 do

حتى لا يتكرر item من 26 ل 50 وهكذا

[M_Mori2010]

اخي ساحر خطأ في الرقم والطريقة جربتها بشكل اخر

PHP كود :

for i :=0 to lvl1.Items.Count+25 do 


لكن لن تفلح

[sa7er100]

لماذا الارسال على دفعات ما غايتك بهذاا ؟
وهل تستعمل نفس الطريقة التي ارسلتا لي ؟
لانها لم تنجح معي !

[M_Mori2010]

نعم استعمل نفس الطريقة لكن اذا كان لديك 100 سجل هل من الطبيعي ان يرسل دفعة واحدة ؟ ام يرسل على اربع دفعات ؟ هل لديك طريقة أخرى ؟

[sa7er100]

اخي الارسال دفعة واحدة افضل
انا استعمل sendstream ارسال كافة عناصر. listview to listview لكن تسبب ضغط على السيرفر
listview.savestram listview.loadstram اداوات tms

ضع كود الاستقبال كامل الذي تستعمله لاعرف ماالخطا في الكود السابق الذي ارسلته لي لان ارسال بطريقة sendtext افضل ولا تسبب الضغط

[M_Mori2010]

انتبه لـ Copy ممكن ان يكون الغلط فيها ..

الان نُريْد حل للأرسال على شكل دفعات ومن ثم اقوم بعمل مثال اخر

واضغ لك فيه حذف التكرار والفارغ بحيث لايقوم بالتكرار او بأضافة فارغ ابداً

[Agmcz]

السلام عليكم
بالنسبة للارسال اتبع التالي

PHP كود :

var
  i, x, r: Integer;
begin
  r := 99;
  repeat
    if r > 25 then
      x := 25
    else
      x := r;
    for i := 1 to x do
    begin
      //
    end;
    r := r - x;
  until r = 0;
end;