|
Потоки не запускаются - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
26.12.2012, 18:41
|
#1
|
|
|
|
Сержант
|
Регистрация: 10.08.2011
Сообщений: 136
Популярность: 1781
Сказал(а) спасибо: 60
Поблагодарили 246 раз(а) в 145 сообщениях
|
Потоки не запускаются
Здравствуйте
пишу многопоточный чекер, с авторизаицей и куками все гуд, но потоки запускаться не хотят.
Код:
procedure sButton1Click(Sender: TObject);
procedure sMemo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//Здесь необходимо описать класс TMyThread:
TMyThread = class(TThread)
private
{ Private declarations }
protected
procedure update;
procedure Execute; override;
end;
var
Form2: TForm2;
i,l,vsego,proideno,good:Integer;
MyThread: TMyThread;
implementation
{$R *.dfm}
procedure TForm2.sButton1Click(Sender: TObject);
var
i,l:Integer;
email,pass,s1,s2:string;
Data:tStringlist;
begin
i:=0;
proideno:=0;
vsego:=smemo1.Lines.Count;
good:=0;
for i:=0 to updown1.position do
MyThread:=TMyThread.Create(true);// создаю поток
MyThread.FreeOnTerminate:=false;// не самоуничтожится после выполнения кода
MyThread.Resume; // запускаю поток
end;
procedure TMyThread.Execute;
var
i,l,vsego,proideno:Integer;
email,pass,s1,s2:string;
Data:tStringlist;
idHTTP1:tIdHTTP;
begin
form2.idHTTP1:=TIdHTTP.Create(nil);
... настройка http...
while proideno< vsego do begin
data:=TStringList.Create;
data.Clear;
data.add('name='+email);
data.add('pass='+pass);
data.add('op=%D0%92%D1%85%D0%BE%D0%B4+%D0%B2+%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D1%83');
data.add('form_build_id=form-6d1652dd1259cd84e60af5e57ee4f61f');
data.add('form_id=user_login' );
inc (proideno);
l:=proideno;
email:='';
pass:='';
email:=trim(copy(Form2.smemo1.Lines[l],1,pos(';',Form2.smemo1.Lines[l])-1));
pass:=trim(copy(Form2.smemo1.Lines[l],pos(';',Form2.smemo1.Lines[l])+1,length(Form2.smemo1.Lines[l])-pos(';',Form2.smemo1.Lines[l])+1));
s2:=Form2.idhttp1.get ('сайт');
s1:=Form2.idhttp1.post ('сайт',data);
synchronize(update);
end;
end;
procedure tMyThread.update;
var
i,l,ready:Integer;
email,pass,s1,s2:string;
Data:tStringlist;
begin
if pos ('Время ',s1)>0 then begin
Form2.smemo2.lines.add (Form2.smemo1.lines[l]);
end;
end;
Уже вторые сутки не могу уснуть спокойно . Надеюсь на вашу помощь
Последний раз редактировалось Роспотребнадзор; 26.12.2012 в 18:47.
|
|
|
26.12.2012, 19:12
|
#2
|
|
|
|
Пехотинец
|
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
|
Re: Потоки не запускаются
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Помогите!] Потоки.
|
[Na`Vi]DendI |
Вопросы и ответы, обсуждения |
23 |
31.10.2012 21:08 |
не запускаются читы
|
P*S OmG |
Общение и обсуждение Counter-Strike |
0 |
01.12.2011 19:36 |
[Помогите!] Не запускаются проги от ViLkaa
|
turri241 |
Общение и обсуждение (Тюряга ВК) |
0 |
02.02.2011 22:53 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 01:22.
|
|