كيف نتجنب نعليق البرنامج في خالة for loop high counts

كيف نتجنب نعليق البرنامج في خالة for loop high counts - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف نتجنب نعليق البرنامج في خالة for loop high counts (/showthread.php?tid=10189)

الصفحات: 1 2

كيف نتجنب نعليق البرنامج في خالة for loop high counts - FRXstar - 07-05-2019

ادا كان البرنامج يعمل لوب اكثر من 20 الف مرة
البرنامج يعلق بعد 2300 مرة

PHP كود :
TForm1 = class(TForm)
    Start_BTN_: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button1: TButton;
    CurvyCombo1: TCurvyCombo;

    procedure FormActivate(Sender: TObject);
    procedure Start_BTN_Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Memo2Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject); 

كود :
for I := 0 to Line_count-1 do
        begin
end;

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - onexite - 07-05-2019

لا يمكن معرفة السبب الا بمعرفة محتوى الحلقة

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - محمد عبد العزيز - 07-05-2019

السلام عليكم

ضف هذا السطر داخل الحلقة

كود :
Application.ProcessMessages;

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - FRXstar - 07-05-2019

منتطر ردكم من ساعات طويلة رمضان كريم

100 /100
اعطني ليست هدا الكود Big Grin

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - FRXstar - 08-05-2019

لقد تم حل التعليق بنجاح ولكن الوب ياخد وقت طويل
كيف يمكن انستخدم multi thread
افكر بتقسيم Line_count-1

AUTO DYNAMIC
يعني لو كان عدد الوب كبير فسوف يتقسم بشكل الي الى عدد مناسب من TTHREAD or TTHREADLIST
وبالتالي يكون الهدف تقليل زمن نتفيد العملية الى افصى جد ممكن

PHP كود :
Proxy_Thread =class(TThread)
   protected
   procedure Execute ; override ;
 end;

procedure TForm1.Start_BTN_Click(Sender: TObject);
begin
       with  Proxy_Thread.Create do
             FreeOnTerminate:=True ;

end; 

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - FRXstar - 08-05-2019

PHP كود :
unit Unit1;

interface

uses
  Forms, Dialogs, Windows, SysUtils, Vcl.Controls, Vcl.StdCtrls, System.Classes;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    Button4: TButton;
//    Button1: TButton;
//    Button3: TButton;
//    ListBox1: TListBox;
//    Button2: TButton;
//    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
 //   procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
 //   procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TListThread = class(TThread)
  protected
    procedure Execute; override;
  end;
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;
  TYouThread = class(TThread)
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  threadList1: TThreadList;
  mythreadRunning, youthreadRunning, listThreadRunning: Boolean;
  globalCount: Integer;
  listProcess: TListThread; { TListThread is a custom descendant of TThread. }
  secondProcess: TMyThread; { TMyThread is a custom descendant of TThread. }
  otherSecondProcess: TYouThread; { TMyThread is a custom descendant of TThread. }

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (mythreadRunning = FALSE) then
  begin
    mythreadRunning:= TRUE;
    secondProcess := TMyThread.Create(True); { Create suspended--secondProcess does not run yet. }
    secondProcess.FreeOnTerminate := True; { You do not need to clean up after termination. }
    secondProcess.Priority := tpLower;  // Set the priority to lower than normal.
    secondProcess.Resume; { Now run the thread. }
  end
  else
    MessageDlg('This thread is still running.  You are going to hurt yourself!',
      mtInformation, [mbOk], 0);
end;

procedure TMyThread.Execute;
var
  I: Integer;
  myRadio: TRadioButton;
begin
  for I := 0 to 20 do
  begin
    if (Terminated) then
    begin
      mythreadRunning:= FALSE;
      exit;
    end;
    myRadio:= TRadioButton.Create(Form1);
    globalCount:= globalCount + 1;
    myRadio.Name:= 'RadioButton' + IntToStr(globalCount);
    threadList1.Add(myRadio);
    Sleep(1000);
  end;
  mythreadRunning:= FALSE;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if (listthreadRunning = FALSE) then
  begin
    listThreadRunning:= TRUE;
    listProcess := TListThread.Create(True); { Create suspended--secondProcess does not run yet. }
    listProcess.FreeOnTerminate := True; { You do not need to clean up after termination. }
    listProcess.Priority := tpLower;  // Set the priority to lower than normal.
    listProcess.Resume; { Now run the thread. }
  end;
end;

procedure TListThread.Execute;
var
  I: Integer;
  Temp: TControl;
  myList: TList;
begin
  while(True) do
  begin
    if (Terminated) then
    begin
      listthreadRunning:= FALSE;
      exit;
    end;
    Form1.ListBox1.Clear;
    myList:= threadList1.LockList;
    try
      for I := 0 to myList.Count-1 do
      begin
        Temp:= myList.Items[I];
        Form1.ListBox1.Items.Add(Temp.Name);
      end;
    finally
      threadList1.UnlockList;
    end;
    Sleep(1000);
  end;
  listthreadRunning:= FALSE;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if (youthreadRunning = FALSE) then
  begin
    youthreadRunning:= TRUE;
    otherSecondProcess := TYouThread.Create(True); { Create suspended--secondProcess does not run yet. }
    otherSecondProcess.FreeOnTerminate := True; { You do not need to clean up after termination. }
    otherSecondProcess.Priority := tpLower;  // Set the priority to lower than normal.
    otherSecondProcess.Resume; { Now run the thread. }
  end
  else
    MessageDlg('This thread is still running.  You are going to hurt yourself!',
      mtInformation, [mbOk], 0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if (listProcess <> nil) then
    listProcess.Terminate;
  if (secondProcess <> nil) then
    secondProcess.Terminate;
  if (otherSecondProcess <> nil) then
    otherSecondProcess.Terminate;
end;

procedure TYouThread.Execute;
var
  I: Integer;
  Temp: TControl;
begin
  for I := 0 to 10 do
  begin
    if (Terminated) then
    begin
      youThreadRunning:= FALSE;
      exit;
    end;
    with threadList1.LockList do
    try
      if (2*I < Count) then
      begin
        Temp:= Items[2*I];
        threadList1.Remove(Temp);
      end;
    finally
      threadList1.UnlockList;
    end;
    if (Terminated) then
      MessageDlg('youThread has been asked to terminate, but is still running!',
        mtInformation, [mbOk], 0);
    Sleep(3000);
  end;
  youthreadRunning:= FALSE;
end;


end. 

وجدنا مثال ولكن يعمل

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - محمد عبد العزيز - 08-05-2019

السلام عليكم

يمكنك الاستفادة من الملفات المصدرية ل Port Scanner من برمجة المبدع Assarbad
http://delphi4arab.net/forum/showthread.php?tid=1162

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - FRXstar - 09-05-2019

نشكركم على هدا السوزس
ولكن اغلب او كلهم اقصد البورت تشتغل
المقصود اننا نبحث اكواد تقوم بفحص البركسي
وتحدد حميع خواصة مثل timeout or uptime
and spead
https://www.youtube.com/watch?v=3CRjXq6vx1M

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - محمد عبد العزيز - 09-05-2019

(09-05-2019, 06:52 AM)FRXstar كتب : المقصود اننا نبحث اكواد تقوم بفحص البركسي

الملفات مصدرية للدراسة والاستفادة منها كمثال فقط

RE: كيف نتجنب نعليق البرنامج في خالة for loop high counts - FRXstar - 13-05-2019

هل هناك دالة او كمبوننت تقوم بترتيب الارقام تصاعديا او العكس
لاحظ لديبنا 5 اجزاء جميعها ارقام صحيحة

PHP كود :
221.189.46:35139
114.206.118:39638
148.154.43:15818
223.9.202:31188
246.145.151:66448
137.153.44:46239
235.89.61:60507
135.198.23:83138
75.137.144:21813
164.32.86:68618
238.34.26:93505
223.16.237:63589
188.63.62:98975
118.82.124:24646
5.135.242:78300
229.58.106:66709
12.33.12:76332
27.249.251:62248
195.207.157:73488
120.131.186:57640
44.128.177:71039
212.94.92:89948
120.40.138:62146
55.195.196:95576
99.79.233:89812
64.80.146:73335
148.212.145:93182
87.73.16:16412
15.194.97:91093
124.222.99:88864
3.103.36:24461
40.133.31:75354
114.254.212:93102
131.169.30:60679
96.43.201:44470
252.95.247:86284
46.167.51:98520
179.145.234:88869
136.35.146:91342
60.122.218:50276
27.41.23:70454
113.18.211:43642
229.30.108:81447
20.180.71:53229
229.167.147:63702
121.39.216:98072
148.46.225:72116
11.75.127:45080
147.74.37:42989
114.204.130:64454
104.3.227:61012
127.254.40:23630
124.240.169:18959
121.247.61:53988
131.65.232:22522
51.103.144:17242
242.3.163:17874
64.18.65:50901
129.137.199:68022
173.54.5:37314
4.148.102:45844
0.91.89:61713
77.2.225:13264
17.80.111:94186
47.16.45:31954
212.238.206:22970
16.75.83:31379
65.176.254:87830
130.229.70:94918
163.240.242:13486
158.68.214:79877
152.207.30:65022
116.19.214:90796
250.160.211:43154
125.151.105:68632
102.199.153:73387
48.161.189:50843
240.97.128:40958
85.184.7:64838
220.14.182:39076
11.159.79:22250
77.34.220:18633
57.8.130:98920
92.53.157:80555
252.34.78:26710
110.49.246:98502
119.80.85:50594
62.96.72:50872
101.24.222:24558
18.125.201:93235
209.13.112:98163
93.62.211:92904
43.122.138:23018
229.117.74:40214
214.56.254:19463
47.232.152:85436
195.88.39:38492
134.143.162:24210
227.183.116:64326
212.69.185:37557
54.160.24:10023
149.13.11:90186
80.49.14:86244
209.217.208:74262
104.53.135:72566
186.170.1:82111
13.91.77:33848
173.86.165:29618
50.235.3:22392
127.113.195:30188
174.234.245:90422
51.27.246:36680
215.11.227:68413
219.31.119:55904
108.99.162:45141
202.81.194:99320
173.160.145:37214
245.139.243:82136
187.211.230:89840
35.162.87:32011
33.233.173:15528
65.78.107:74645
3.223.171:47122
164.134.131:75372
163.21.179:29882
235.8.233:37279
231.174.3:60684
31.44.254:25479
94.75.106:43718
0.232.79:83006
19.163.231:92876
39.104.137:99818
196.150.230:10084
10.15.208:40229
70.233.165:47651
188.113.45:87611
112.126.157:99695
123.16.162:58858
67.203.157:82021
143.165.182:66271
206.1.41:70049
131.9.106:52308
230.160.127:62554
254.229.201:99230
48.84.162:89076
137.245.180:84345
25.75.190:69412
147.12.185:87463
129.8.8:52904
211.247.154:89316
242.180.27:66921
17.54.5:83259
126.9.162:12204
226.187.114:27836
124.178.61:79359
192.233.102:67319
163.201.130:28059
182.88.120:18450
159.197.74:83766
70.251.251:80021
232.39.191:84170
126.194.92:90830
197.79.51:72932
75.160.15:36911
209.109.75:59651
177.88.211:36027
160.153.212:82249
42.76.33:45963
201.162.239:45242
13.12.140:41466
179.120.18:79640
238.55.48:16973
251.208.50:55284
11.138.151:39492
185.146.147:22288
20.210.224:48361
28.209.180:24813
178.73.110:66053
150.1.98:46727
229.194.61:94470
141.229.127:13339
80.75.10:20177
134.181.132:18578
230.129.139:71943
103.240.17:80197
253.16.6:70551
182.88.251:40252
148.64.188:14313
161.144.170:83257
69.125.50:62339
66.190.107:37488
136.50.99:85460
233.154.161:19878
226.140.226:86764
239.91.245:21832
172.109.134:13678
80.164.174:77899
114.29.152:71630
167.110.206:38338
179.147.192:58622 

طبعا الهدف دالة ترتيب index of lines وليس تعديل على البروكسي