Proxy

← →
Reni (2007-10-30 09:44) [0]

Здравствуйте! Немогли бы Вы подсказать что в моем коде неправильно.
Программа написана для проверки Proxy.
procedure threed.Execute;
var
idhttp1:tidhttp;
proxyh,proxyp:string;
x,c:integer;
begin
idhttp1:=tidhttp.Create(nil);
while form1.allproxy<>form1.Memo1.Lines.Count-1 do
begin
inc(form1.allproxy);
x:=pos(":", form1.Memo1.Lines.Strings[form1.allproxy]);
proxyh:=copy(form1.Memo1.Lines.Strings[form1.allproxy], 1, x-1);
proxyP:=copy(form1.Memo1.Lines.Strings[form1.allproxy], x+1, 255);
try
idhttp1.ProxyParams.ProxyPort:=strtoint(proxyP);
idhttp1.ProxyParams.ProxyServer:=proxyh;
idhttp1.Get("http://ya.ru");
sleep(1500);
form1.Memo2.Lines.Add(proxyh+":"+proxyp);
except
end;
end;
Заранее благодарен!

← →
Reindeer Moss Eater © (2007-10-30 09:48) [1]

Программа сама скажет что в твоем коде неправильно, если не будешь создавать такие дурацкие обработчики исключительных ситуаций

← →
Сергей М. © (2007-10-30 09:49) [2]

> что в моем коде неправильно

Неправильно все, что связано с обращением к полям и свойствам объекта form1.

← →
Anatoly Podgoretsky © (2007-10-30 09:53) [3]

Ой это же по сути практически весь код.

← →
Reni (2007-10-30 10:15) [4]

Может вот так правильнее?
procedure threed.updateproxy; begin inc(form1.allproxy); end; procedure threed.Execute; var idhttp1:tidhttp; proxyh,proxyp:string; x,c:integer; begin idhttp1:=tidhttp.Create(nil); while form1.allproxy<>form1.Memo1.Lines.Count-1 do begin Synchronize(updateproxy); x:=pos(":", form1.Memo1.Lines.Strings[form1.allproxy]); proxyh:=copy(form1.Memo1.Lines.Strings[form1.allproxy], 1, x-1); proxyP:=copy(form1.Memo1.Lines.Strings[form1.allproxy], x+1, 255); idhttp1.ProxyParams.ProxyPort:=strtoint(proxyP); idhttp1.ProxyParams.ProxyServer:=proxyh; try idhttp1.Get("http://ya.ru"); form1.Memo2.Lines.Add(proxyh+":"+proxyp); Finally end; end;

← →
clickmaker © (2007-10-30 10:18) [5]

> [4] Reni (30.10.07 10:15)

а зачем try с пустым finally?

← →
Сергей М. © (2007-10-30 10:19) [6]

> Может вот так правильнее?

И так тоже неправильно.

см. [2]

← →
Reni (2007-10-30 10:22) [7]

Уважаемый Сергей М., немогли бы Вы чуть подправить мой код, чтобы я понял в чем мои ошибки. Понимаете я незаканчивал никаких курсов(у нас даже в школе информатики нет)! :(

← →
clickmaker © (2007-10-30 10:23) [8]

> у нас даже в школе информатики нет

хоть одна нормальная школа )

← →
Сергей М. © (2007-10-30 10:25) [9]

> чуть подправить мой код

Его не "чуть подправлять" нужно, его полностью переписывать требуется, начиная с передачи параметров потоку при его конструировании.

← →
Reni (2007-10-30 10:26) [10]

> Сергей М. © (30.10.07 10:19) [6]
>
> > Может вот так правильнее?
>
>
> И так тоже неправильно.
>
> см. [2]

Я уберал эти дурацкие обработчики, и программа говорила "Socker Error #...."

← →
Сергей М. © (2007-10-30 10:31) [11]

> уберал эти дурацкие обработчики

Причем здесь обработчики ?
Дурацкие они или не дурацкие - не столь важно по сравнению с [2].

С такими обработчиками он никогда не поймет, что нельзя во вторичном потоке обращаться к vcl

Антифриз на форму кинь и не парься с потоками

Удалено модератором

Proxy Найти похожие ветки