Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Proxy

Reni © (2007-10-30 09:44:00)
Здравствуйте! Немогли бы Вы подсказать что в моем коде неправильно.
Программа написана для проверки 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;
Заранее благодарен!

Slym (2007-11-01 04:41:00) [1]
Удалено модератором

Anatoly Podgoretsky (2007-10-31 12:58:00) [2]
Удалено модератором

MetalFan (2007-10-31 08:35:00) [3]
Удалено модератором

Slym (2007-10-31 04:50:00) [4]
Антифриз на форму кинь и не парься с потоками

Reindeer Moss Eater (2007-10-30 10:40:00) [5]
С такими обработчиками он никогда не поймет, что нельзя во вторичном потоке обращаться к vcl

Сергей М. (2007-10-30 10:31:00) [6]

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

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

Reni (2007-10-30 10:26:00) [7]

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

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

Сергей М. (2007-10-30 10:25:00) [8]

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

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

clickmaker (2007-10-30 10:23:00) [9]

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

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

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

Сергей М. (2007-10-30 10:19:00) [11]

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

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

см. [2]

clickmaker (2007-10-30 10:18:00) [12]

> [4] Reni (30.10.07 10:15)

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

Reni (2007-10-30 10:15:00) [13]
Может вот так правильнее?
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;

Anatoly Podgoretsky (2007-10-30 09:53:00) [14]
Ой это же по сути практически весь код.

Сергей М. (2007-10-30 09:49:00) [15]

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

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

Reindeer Moss Eater (2007-10-30 09:48:00) [16]
Программа сама скажет что в твоем коде неправильно, если не будешь создавать такие дурацкие обработчики исключительных ситуаций

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »