| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Ошибка в коде

Pacific ©   (2007-10-26 17:41:00) 

Здравствуйте! Немогли бы Вы помочь мне найти ошибку в коде.
Задача: random брать proxy из файла, а также random ссылку и заходить на данную ссылку через proxy.
Вот код:

procedure threed.Execute;
var
randomh, randomp, proxyhost, proxyport:string;
proxy:Tstrings;
x,y:integer;
ok,o:integer;
begin
while form1.start=True do
begin
randomh:=form1.Memo1.Lines.Strings[random(form1.Memo1.Lines.Count-1)];
proxy:=Tstringlist.Create;
proxy.LoadFromFile(form1.Edit1.Text);
randomp:=proxy.Strings[random(proxy.Count-1)];
proxy.Free;
x:=Pos(':', randomp);
proxyhost:=copy(randomp, 1, x-1);
proxyport:=copy(randomp, x+1, 255);
form1.IdHTTP1.ProxyParams.ProxyPort:=strtoint(proxyport);
form1.IdHTTP1.ProxyParams.ProxyServer:=proxyhost;
try
ok:=strtoint(form1.Label9.caption);
Inc(ok);
form1.Label9.Caption:=inttostr(ok);
except
o:=strtoint(form1.Label7.caption);
Inc(o);
form1.Label7.Caption:=inttostr(o);
end;
end;
end;


---

Pacific   (2007-10-26 20:48:00) [1]

там везде :
127.0.0.1:80 пример :)

---

Virgo_Style   (2007-10-26 20:19:00) [2]

Reindeer Moss Eater ©   (26.10.07 18:00) [3]

начинаешь с середины? %-)

---

Reindeer Moss Eater   (2007-10-26 18:00:00) [3]

x:=Pos(':', randomp);
proxyhost:=copy(randomp, 1, x-1);
proxyport:=copy(randomp, x+1, 255);

А если попалась строка без ":"  ?

---

Pacific   (2007-10-26 17:58:00) [4]

ну хоть объяснить можете что я делаю не так?

---

Reindeer Moss Eater   (2007-10-26 17:54:00) [5]

весь твой код - одна сплошная ошибка.

---

Наверх