14-05-2019, 02:20 PM
إن كنت تقصد المكون ListBox فهناك الخاصية Sorted غيرها الى True
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
delphi4arab منتديات دلفي للعرب
›
منتديات دلفي للعرب التعليمية
›
سؤال و جواب حول دلفي
كيف نتجنب نعليق البرنامج في خالة for loop high counts
كيف نتجنب نعليق البرنامج في خالة for loop high counts
|
كيف نتجنب نعليق البرنامج في خالة for loop high counts
|
 إن كنت تقصد المكون ListBox فهناك الخاصية Sorted غيرها الى True 
نريد نعمل
connection with proxy server PHP كود : unit Unit1;كود : https://www.youtube.com/watch?v=R64_n8vIrvg&feature=youtu.be&ytbChannel=null(14-05-2019, 02:20 PM)B.M.AbdelAziZ كتب : الخاصية ممتاز لكن وال 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;
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
http://proxy-scraper.gsa-online.de/downl....exe?__c=1
![[صورة: GSA-Proxy-Scraper_2.png]](https://windows-cdn.softpedia.com/screenshots/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
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
هل يمكن ادخال صورة مثل علم دولة في سطر الميمو او any list box
combobox list box memo others or i need data base components PHP كود : <option value="AL">Albania</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
19-05-2019, 10:29 AM
السلام عليكم بالنسبة للترتيب في Memo يمكن استخدام اي خواريزمية ترتيب وما اكثرها ان كان العدد كبير لا تستخدم مكونات مثل Memo عليك باعادة التفكير في الأمر
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
|
|
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم