delphi4arab منتديات دلفي للعرب › منتديات دلفي للعرب التعليمية › سؤال و جواب حول دلفي v
كيف نتجنب نعليق البرنامج في خالة for loop high counts

ادوات الموضوع
كيف نتجنب نعليق البرنامج في خالة for loop high counts
محمد عبد العزيز غير متصل
Pure & Genuine Delphi-Addict
*******
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
#11
14-05-2019, 02:20 PM

إن كنت تقصد المكون ListBox فهناك الخاصية Sorted غيرها الى True
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الموقع البحث
الرد
FRXstar غير متصل
مبرمج جديد
**
المشاركات : 11
المواضيع 1
:
: 0
الإنتساب : May 2019
#12
15-05-2019, 01:50 PM (آخر تعديل لهذه المشاركة: 15-05-2019, 02:16 PM بواسطة FRXstar.)
نريد نعمل
connection with proxy server
PHP كود :
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics,
  Vcl.Controls,winApi.wininet, Vcl.Forms, Vcl.Dialogs,
  Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 function SetProxy(Server: String): Boolean;
// Server z.B. '127.0.0.1:8080' oder ''
type
  INTERNET_PER_CONN_OPTION = record
    dwOption: DWORD;
    Value: record case Integer of 1: (dwValue: DWORD);
    2: (pszValue: {$IFDEF DELPHI2009_UP}PWideChar{$ELSE}PAnsiChar{$ENDIF});
    3: (ftValue: TFileTime);
  end;

end;
LPINTERNET_PER_CONN_OPTION = ^INTERNET_PER_CONN_OPTION;
INTERNET_PER_CONN_OPTION_LIST = record dwSize: DWORD;
pszConnection:
LPTSTR;
dwOptionCount:
DWORD;
dwOptionError:
DWORD;
pOptions:
LPINTERNET_PER_CONN_OPTION;
end;
LPINTERNET_PER_CONN_OPTION_LIST = ^INTERNET_PER_CONN_OPTION_LIST;

const
  INTERNET_PER_CONN_FLAGS = 1;
  INTERNET_PER_CONN_PROXY_SERVER = 2;
  INTERNET_PER_CONN_PROXY_BYPASS = 3;
  INTERNET_PER_CONN_AUTOCONFIG_URL = 4;
  INTERNET_PER_CONN_AUTODISCOVERY_FLAGS = 5;
  PROXY_TYPE_DIRECT = $00000001;
  PROXY_TYPE_PROXY = $00000002;
  PROXY_TYPE_AUTO_PROXY_URL = $00000004;
  PROXY_TYPE_AUTO_DETECT = $00000008;
  INTERNET_OPTION_REFRESH = 37;
  INTERNET_OPTION_PER_CONNECTION_OPTION = 75;
  INTERNET_OPTION_SETTINGS_CHANGED = 39;

var
  OptionsList: INTERNET_PER_CONN_OPTION_LIST;
  BufSize: DWORD;
  HInternet: Pointer;
  Agent: String;

begin
  Result := False;
  BufSize := SizeOf(OptionsList);
  OptionsList.dwSize := BufSize;
  OptionsList.pszConnection := nil; // nil -> LAN, sonst Verbindungsname
  OptionsList.dwOptionCount := 3; // 3 Optionen werden gesetzt
  OptionsList.pOptions := AllocMem(3 * SizeOf(INTERNET_PER_CONN_OPTION));
  try
    if not Assigned(OptionsList.pOptions) then
      EXIT;
    OptionsList.pOptions^.dwOption := INTERNET_PER_CONN_FLAGS;
    OptionsList.pOptions^.Value.dwValue := PROXY_TYPE_DIRECT or
      PROXY_TYPE_PROXY;
    inc(OptionsList.pOptions);
    OptionsList.pOptions^.dwOption := INTERNET_PER_CONN_PROXY_SERVER;
    OptionsList.pOptions^.Value.pszValue := PChar(Server);
    inc(OptionsList.pOptions);
    OptionsList.pOptions^.dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
    OptionsList.pOptions^.Value.pszValue := 'local';
    dec(OptionsList.pOptions, 2);
    Agent := ExtractFileName(Application.ExeName);
    HInternet := InternetOpen
      ({$IFDEF DELPHI2009_UP}PWideChar{$ELSE}PAnsiChar{$ENDIF}
      (Agent), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
    try // Optionen setzen
      Result := InternetSetOption(HInternet,
        INTERNET_OPTION_PER_CONNECTION_OPTION, @OptionsList, BufSize);
      InternetSetOption(HInternet, INTERNET_OPTION_REFRESH, nil, 0);
    finally
      InternetCloseHandle(HInternet);
    end;
  finally
    FreeMem(OptionsList.pOptions); // Speicher freigeben
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetProxy('118.172.51.84:60576'); //  'ip:port'
WebBrowser1.Navigate('www.whatismyipaddress.com');
end;

end. 
نريد نفحص البروكسي سرفر ؟
كود :
https://www.youtube.com/watch?v=R64_n8vIrvg&feature=youtu.be&ytbChannel=null
(14-05-2019, 02:20 PM)B.M.AbdelAziZ كتب :
إن كنت تقصد المكون ListBox فهناك الخاصية Sorted غيرها الى True

الخاصية ممتاز لكن وال memo
كود :
function SetProxy(Server: String): Boolean; //Server z.B. '127.0.0.1:8080' oder '' type  INTERNET_PER_CONN_OPTION = record    dwOption: DWORD;    Value: record      case Integer of        1: (dwValue: DWORD);        2: (pszValue: {$IFDEF DELPHI2009_UP}PWideChar{$ELSE}PAnsiChar{$ENDIF});        3: (ftValue: TFileTime);    end;  end;  LPINTERNET_PER_CONN_OPTION = ^INTERNET_PER_CONN_OPTION;  INTERNET_PER_CONN_OPTION_LIST = record    dwSize: DWORD;    pszConnection: LPTSTR;    dwOptionCount: DWORD;    dwOptionError: DWORD;    pOptions: LPINTERNET_PER_CONN_OPTION;  end;  LPINTERNET_PER_CONN_OPTION_LIST = ^INTERNET_PER_CONN_OPTION_LIST; const  INTERNET_PER_CONN_FLAGS = 1;  INTERNET_PER_CONN_PROXY_SERVER = 2;  INTERNET_PER_CONN_PROXY_BYPASS = 3;  INTERNET_PER_CONN_AUTOCONFIG_URL = 4;  INTERNET_PER_CONN_AUTODISCOVERY_FLAGS = 5;  PROXY_TYPE_DIRECT = $00000001;  PROXY_TYPE_PROXY = $00000002;  PROXY_TYPE_AUTO_PROXY_URL = $00000004;  PROXY_TYPE_AUTO_DETECT = $00000008;  INTERNET_OPTION_REFRESH = 37;  INTERNET_OPTION_PER_CONNECTION_OPTION = 75;  INTERNET_OPTION_SETTINGS_CHANGED = 39; var  OptionsList: INTERNET_PER_CONN_OPTION_LIST;  BufSize: DWORD;  HInternet: Pointer;  Agent: String; begin  Result:=false;  BufSize:=SizeOf(OptionsList);  OptionsList.dwSize:=BufSize;  OptionsList.pszConnection:=nil; //nil -> LAN, sonst Verbindungsname  OptionsList.dwOptionCount:=3; //3 Optionen werden gesetzt  OptionsList.pOptions:=AllocMem(3*SizeOf(INTERNET_PER_CONN_OPTION));  try    if not assigned(OptionsList.pOptions)      then Exit;    OptionsList.pOptions^.dwOption:=INTERNET_PER_CONN_FLAGS;    OptionsList.pOptions^.Value.dwValue:=PROXY_TYPE_DIRECT or PROXY_TYPE_PROXY;    inc(OptionsList.pOptions);    OptionsList.pOptions^.dwOption:=INTERNET_PER_CONN_PROXY_SERVER;    OptionsList.pOptions^.Value.pszValue:=PChar(Server);    inc(OptionsList.pOptions);    OptionsList.pOptions^.dwOption:=INTERNET_PER_CONN_PROXY_BYPASS;    OptionsList.pOptions^.Value.pszValue:='local';    dec(OptionsList.pOptions,2);    Agent:=ExtractFileName(Application.ExeName);    hInternet:=InternetOpen({$IFDEF DELPHI2009_UP}PWideChar{$ELSE}PAnsiChar{$ENDIF}                            (Agent),INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);    try //Optionen setzen      Result:=InternetSetOption(hInternet,INTERNET_OPTION_PER_CONNECTION_OPTION,                                @OptionsList,BufSize);      InternetSetOption(hInternet,INTERNET_OPTION_REFRESH,nil,0);    finally      InternetCloseHandle(hInternet);    end;  finally    FreeMem(OptionsList.pOptions); //Speicher freigeben  end; end;
البحث
الرد
FRXstar غير متصل
مبرمج جديد
**
المشاركات : 11
المواضيع 1
:
: 0
الإنتساب : May 2019
#13
16-05-2019, 01:01 PM
the property of sorted only work for integer
and i found error in the list of proxy
i have 5 parts
ip and port
ip contents is 4 array
and part
ياشباب تنفيد لوب جسب التجربة اخد 8 ساعات و 500 جيجا من الهاردسك
يعني
wake up with out windows
نحن بحاجة الى ترتيب هده القيم ؟



8
180.31.128.151:65275
200.25.161.183:43231
109.69.182.214:16452
40.227.119.14:53305
40.4.233.116:56563
192.106.216.252:60914
56.118.222.182:42945
68.112.101.158:32084
8.22.74.152:51491
77.132.120.159:15743
27.16.235.253:28720
33.144.154.112:12766
171.77.169.61:38182
154.231.172.45:53323
31.87.110.90:63009
181.126.98.2:25446
30.225.32.210:34816
214.91.114.55:53971
121.244.241.156:50389
157.129.49.134:59563
206.184.139.223:43221
90.155.30.74:47529
28.174.175.14:62735
12.89.187.206:55104
48.144.100.219:48431
152.160.146.119:46898
70.235.51.159:56003
212.1.172.127:39157
17.50.250.156:19016
141.96.8.201:18597
176.224.188.48:40124
23.32.31.168:28245
217.225.253.119:53649
190.71.221.131:29321
187.68.154.89:37274
81.133.96.197:57335
169.236.14.65:39130
109.170.216.226:39985
8.6.151.109:61596
77.90.221.166:56076
211.152.185.132:12299
148.216.62.221:29710
34.62.71.251:64340
38.236.161.119:31861
148.177.150.218:62819
37.248.87.49:39349
86.97.192.70:24128
9.148.174.73:51660
100.244.213.246:59374
30.79.52.152:62879
180.125.109.134:15162
80.199.198.12:34524
90.183.185.100:60265
134.107.158.57:49676
193.52.19.156:16542
76.100.176.116:21406
208.198.57.219:42656
151.121.149.18:17109
194.78.147.80:57471
11.104.5.103:18199
45.238.73.16:13025
216.124.74.21:49833
37.2.233.141:43776
23.247.188.94:18133
98.9.97.100:49844
39.150.253.166:49215
123.96.188.207:48819
105.41.154.80:61724
76.120.45.254:25167
163.31.211.69:54792
18.20.217.99:51337
161.137.98.241:37283
44.243.143.113:46515
51.79.193.248:27930
198.221.254.72:61804
187.239.130.87:44836
130.238.245.132:64312
157.219.224.99:16223
21.181.90.106:54912
192.126.131.48:21859
82.101.111.167:61579
17.189.127.175:25542
94.216.178.181:17919
218.205.47.3:40048
117.242.5.239:31420
159.65.96.254:58226
132.216.224.217:12009
112.23.40.194:48528
173.117.8.192:45567
56.157.74.97:26079
41.29.88.206:62990
80.16.110.192:36100
209.11.76.129:65428
182.121.54.124:28100
150.185.57.67:36505
109.194.244.247:43430
78.134.155.59:62048
203.243.188.0:43368
211.4.63.150:61495
17.191.150.120:41413
52.177.165.78:35023
124.22.177.162:52510
169.108.224.47:21927
135.95.207.131:23867
40.21.162.85:39832
188.191.119.62:51927
206.170.244.130:12365
40.196.111.56:50690
70.134.125.145:60832
60.168.94.133:15762
204.2.154.163:16666
21.3.184.171:41066
156.184.139.169:53248
153.148.184.114:37385
157.211.193.217:54374
35.39.155.91:64369
91.199.18.168:21677
133.86.16.91:36845
61.219.56.105:35223
138.75.59.173:45815
198.36.64.40:35954
166.249.95.210:56433
9.156.217.18:34154
96.184.63.19:60908
72.175.3.181:47092
162.194.163.157:50432
19.101.178.10:44341
35.253.44.143:50310
53.241.76.157:11726
96.193.82.25:19170
210.220.16.247:12297
187.69.1.158:42530
198.106.137.215:12605
87.45.90.197:13696
153.154.134.153:26648
186.194.243.206:24481
167.120.138.36:20343
17.241.217.51:43243
54.75.88.196:22603
40.165.90.3:41984
107.180.152.112:34865
54.135.219.31:56801
144.90.147.38:41684
38.189.75.84:47721
99.122.231.39:27610
89.176.108.117:64541
7.172.16.163:20712
197.4.193.188:13146
110.234.224.189:48885
83.217.2.245:25096
213.114.12.202:30167
73.25.122.219:39063
115.119.251.117:46496
111.99.247.218:52696
115.85.226.16:57048
180.104.45.141:21794
101.47.89.180:10579
126.216.172.104:19664
218.67.19.242:34981
152.176.74.167:21297
217.68.37.153:64979
40.91.55.39:26901
13.23.206.106:11014
7.144.6.74:26892
114.118.46.23:65396
142.190.209.107:12540
160.205.246.242:55726
11.239.71.27:18376
39.81.182.109:21027
99.221.176.172:15855
207.232.218.53:15597
48.83.252.108:60811
43.44.77.73:23342
36.17.225.5:35672
168.27.75.188:22599
62.213.184.196:51236
156.126.23.102:15716
123.30.83.59:54680
176.187.241.39:25807
168.201.228.107:32446
207.162.82.44:27530
16.167.18.131:50455
170.161.168.91:41326
126.238.125.59:56080
126.23.249.172:43974
28.56.210.151:16565
134.90.24.246:63113
65.120.15.76:33322
208.71.165.99:16732
47.183.78.88:21461
179.152.92.172:36100
155.241.51.181:59359
84.14.8.62:24874
6.111.121.149:11982
19.213.232.146:37448
110.57.55.166:44940
215.84.127.63:52685
210.239.96.121:24156
88.112.195.115:36886
185.179.103.195:49849
73.144.165.21:29235
163.168.108.193:34337
142.45.244.145:16410
207.222.140.184:19271
218.92.170.129:22628
160.232.221.0:23573
122.37.246.179:46609
47.1.67.247:12297
7.155.1.47:45827
63.193.148.10:41246
116.76.159.192:18315
202.247.19.151:16293
99.133.205.139:15729
145.133.84.238:18929
130.98.150.131:12315
42.70.85.195:57909
37.125.145.188:40704
27.168.53.114:14992
159.135.122.5:19108
221.7.59.222:24929
106.207.248.177:59213
2.200.191.201:62622
143.101.184.243:44835
5.26.212.108:51965
106.104.85.106:58261
201.218.114.1:49135
174.40.245.2:48180
197.98.214.213:20848
130.135.172.70:49967
80.156.193.186:36890
3.72.20.108:20491
81.109.29.110:25949
67.205.12.242:46548
37.108.246.166:32448
219.21.252.92:28770
199.17.76.100:56626
70.71.151.85:15368
192.123.251.89:53140
132.120.212.218:46498
52.229.186.48:32752
93.118.207.130:51874
208.245.23.163:34394
79.119.53.9:17007
64.201.147.3:10319
189.60.58.85:56684
184.113.56.250:27380
202.246.198.138:33453
2.219.254.136:56357
11.150.175.3:21602
23.66.25.38:54139
155.128.208.213:51464
185.237.104.190:34735
55.211.34.232:57633
171.59.13.128:28368
البحث
الرد
FRXstar غير متصل
مبرمج جديد
**
المشاركات : 11
المواضيع 1
:
: 0
الإنتساب : May 2019
#14
17-05-2019, 01:52 PM (آخر تعديل لهذه المشاركة: 17-05-2019, 02:44 PM بواسطة FRXstar.)
http://proxy-scraper.gsa-online.de/downl....exe?__c=1

[صورة: GSA-Proxy-Scraper_2.png]
ممكن توضيح اللغة المستخدمة في هدا البرنامج
طبعا حلينا مشكلة sorted property with memo
but good with some errors
i used TSTRINGLIST
حسب تتبع SORTED FUNCTION
USE COMPARETEXT
لكن ال RESULT IS NOT CORRECT
70% OK BUT WITH WRONG
كود :
100.244.213.246:59374 101.47.89.180:10579 105.41.154.80:61724 106.104.85.106:58261 106.207.248.177:59213 107.180.152.112:34865 109.170.216.226:39985 109.194.244.247:43430 109.69.182.214:16452 110.234.224.189:48885 110.57.55.166:44940 111.99.247.218:52696 112.23.40.194:48528 114.118.46.23:65396 115.119.251.117:46496 115.85.226.16:57048 116.76.159.192:18315 117.242.5.239:31420 121.244.241.156:50389 122.37.246.179:46609 123.30.83.59:54680 123.96.188.207:48819 124.22.177.162:52510 126.216.172.104:19664 126.23.249.172:43974 126.238.125.59:56080 130.135.172.70:49967 130.238.245.132:64312 130.98.150.131:12315 132.120.212.218:46498 132.216.224.217:12009 133.86.16.91:36845 134.107.158.57:49676 134.90.24.246:63113 135.95.207.131:23867 138.75.59.173:45815 141.96.8.201:18597 142.190.209.107:12540 142.45.244.145:16410 143.101.184.243:44835 144.90.147.38:41684 145.133.84.238:18929 148.177.150.218:62819 148.216.62.221:29710 150.185.57.67:36505 151.121.149.18:17109 152.160.146.119:46898 152.176.74.167:21297 153.148.184.114:37385 153.154.134.153:26648 154.231.172.45:53323 155.128.208.213:51464 155.241.51.181:59359 156.126.23.102:15716 156.184.139.169:53248 157.129.49.134:59563 157.211.193.217:54374 157.219.224.99:16223 159.135.122.5:19108 159.65.96.254:58226 160.205.246.242:55726 160.232.221.0:23573 161.137.98.241:37283 162.194.163.157:50432 163.168.108.193:34337 163.31.211.69:54792 166.249.95.210:56433 167.120.138.36:20343 168.201.228.107:32446 168.27.75.188:22599 169.108.224.47:21927 169.236.14.65:39130 170.161.168.91:41326 171.59.13.128:28368 171.77.169.61:38182 173.117.8.192:45567 174.40.245.2:48180 176.187.241.39:25807 176.224.188.48:40124 179.152.92.172:36100 180.104.45.141:21794 180.125.109.134:15162 180.31.128.151:65275 181.126.98.2:25446 182.121.54.124:28100 184.113.56.250:27380 185.179.103.195:49849 185.237.104.190:34735 186.194.243.206:24481 187.239.130.87:44836 187.68.154.89:37274 187.69.1.158:42530 188.191.119.62:51927 189.60.58.85:56684 190.71.221.131:29321 192.106.216.252:60914 192.123.251.89:53140 192.126.131.48:21859 193.52.19.156:16542 194.78.147.80:57471 197.4.193.188:13146 197.98.214.213:20848 198.106.137.215:12605 198.221.254.72:61804 198.36.64.40:35954 199.17.76.100:56626 200.25.161.183:43231 201.218.114.1:49135 202.246.198.138:33453 202.247.19.151:16293 203.243.188.0:43368 204.2.154.163:16666 206.170.244.130:12365 206.184.139.223:43221 207.162.82.44:27530 207.222.140.184:19271 207.232.218.53:15597 208.198.57.219:42656 208.245.23.163:34394 208.71.165.99:16732 209.11.76.129:65428 210.220.16.247:12297 210.239.96.121:24156 211.152.185.132:12299 211.4.63.150:61495 212.1.172.127:39157 213.114.12.202:30167 214.91.114.55:53971 215.84.127.63:52685 216.124.74.21:49833 217.225.253.119:53649 217.68.37.153:64979 218.205.47.3:40048 218.67.19.242:34981 218.92.170.129:22628 219.21.252.92:28770 221.7.59.222:24929
البحث
الرد
FRXstar غير متصل
مبرمج جديد
**
المشاركات : 11
المواضيع 1
:
: 0
الإنتساب : May 2019
#15
18-05-2019, 11:12 AM (آخر تعديل لهذه المشاركة: 18-05-2019, 11:15 AM بواسطة FRXstar.)
CODE FIX
كود :
// remove duplicate strings from the string list procedure RemoveDuplicates(const stringList: TStringList); var  buffer: TStringList;  cnt: Integer; begin //  stringList.Sort;  buffer := TStringList.Create;  try    buffer.Sorted := True;    buffer.Duplicates := dupIgnore;    buffer.BeginUpdate;    for cnt := 0 to stringList.Count - 1 do      buffer.Add(stringList[cnt]);    buffer.EndUpdate;    stringList.Assign(buffer);  finally    FreeandNil(buffer);  end; end;
المشكلة هي في stringList.Sort;
لايستطيع تمييز 10 و 1 و100
البحث
الرد
FRXstar غير متصل
مبرمج جديد
**
المشاركات : 11
المواضيع 1
:
: 0
الإنتساب : May 2019
#16
18-05-2019, 04:31 PM (آخر تعديل لهذه المشاركة: 18-05-2019, 05:18 PM بواسطة FRXstar.)
هل يمكن ادخال صورة مثل علم دولة في سطر الميمو او any list box
combobox
list box
memo
others
or i need data base components


PHP كود :
<option value="AL">Albania</option>
 <option value="DZ">Algeria</option>
 <option value="AS">American Samoa</option>
 <option value="AD">Andorra</option>
 <option value="AO">Angola</option>
 <option value="AI">Anguilla</option>
 <option value="AQ">Antarctica</option>
 <option value="AG">Antigua and Barbuda</option>
 <option value="AR">Argentina</option>
 <option value="AM">Armenia</option>
 <option value="AW">Aruba</option>
 <option value="AU">Australia</option>
 <option value="AT">Austria</option>
 <option value="AZ">Azerbaijan</option>
 <option value="BS">Bahamas</option>
 <option value="BH">Bahrain</option>
 <option value="BD">Bangladesh</option>
 <option value="BB">Barbados</option> 
طبعا نحن نبحث عن
live proxy in 179 trillions 179,444,615,625,000
???!!!!!!!
we need thread at lestt 5000 to 20000
check proxy at list 500 milions at ones
مغلومة:
ip:port
byte.byte.byte.byte:word
xxx.xxx.xxx.xxx:12345
first two part is country and city
البحث
الرد
محمد عبد العزيز غير متصل
Pure & Genuine Delphi-Addict
*******
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
#17
19-05-2019, 10:29 AM

السلام عليكم
بالنسبة للترتيب في Memo يمكن استخدام اي خواريزمية ترتيب وما اكثرها
ان كان العدد كبير لا تستخدم مكونات مثل Memo عليك باعادة التفكير في الأمر
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الموقع البحث
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم