Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
flix666
0 / 0 / 0
Регистрация: 22.02.2016
Сообщений: 74
#1

Поток не может запустится - Delphi

26.02.2016, 12:48. Просмотров 594. Ответов 36
Метки нет (Все метки)

При запуске потока, идет такая ошибка (Project Project1.exe raised exception class EThread with message 'Cannot call Start on a running or suspended thread').

В чем проблема?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2016, 12:48
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Поток не может запустится (Delphi):

Начать работу программы, как только запустится определенный процесс в Windows - Delphi
Нужна ваша помощь :) Как реализовать такую вещь, чтобы программа начинала выполнять свой цикл как только будет запущен определенный...

Поток освобождается, но переменная, которой был присвоен этот поток, не очищается - Delphi
Мне интересно, вот поток отработал, стоит FreeOnTerminate:=True; Поток освобождается, но переменной которой было присвоен этот поток, не...

Я перезагрузил комп и винда запустится не может - Windows 7
здраствуйте, уважаемые пользователи форума! у меня такая проблема! я переустановил Windows 7, закачал world of tanks; во время игры у меня...

Компьютером не может запустится после переустановки системы - BSOD
Вообщем у моего друга вот такая проблема. Он устанавливает Windows Vista (к примеру так он устанавливал все,далее поймёте по чему) ...

Вызывающий поток не может получить доступ к объекту, так как его владельцем является другой поток - C#
Есть форма MainWindo, есть класс AB. В форме единая точка доступа к элементам формы. public static MainWindow Forma = null; ...

Ошибка: вызывающий поток не может получить доступ к данному объекту, так как владельцем этого объекта является другой поток. - C# WPF
Ошибка в "progressBar1.Value += 50;", вызывающий поток не может получить доступ к данному объекту, так как владельцем этого объекта...

36
flix666
0 / 0 / 0
Регистрация: 22.02.2016
Сообщений: 74
27.02.2016, 20:30  [ТС] #31
ну да, я понял.
просто не должно быть такого

Добавлено через 56 секунд
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, HTTPsend, Vcl.StdCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, SyncObjs;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  pwpotok = class(TThread)
  public
  pwpotok: TThread;
 
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure Synch;
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;
  end;
 
var
  listacc: TStringList;
  Form1: TForm1;
  GoodFile, BadFile:textfile;
  delitel: String;
  ProxyType: String;
  acc, thread: integer;
  work: Boolean;
  ProxyList: TstringList;
  lp: TStringList;
  cs: TCriticalSection;
  CurAcc, TP:integer;
  HTTP:THTTPSend;
  IP, Port:string;
  data:TStringStream;
  HTML, src:TStringList;
  FLogin,FPassword,Rezult: String;
 
 
implementation
{$R *.dfm}
constructor pwpotok.Create(CreateSuspended: Boolean);
begin
  inherited Create(false);
   FreeOnTerminate:= true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.OpenDialog1.InitialDir:= extractfiledir(application.ExeName);
if form1.OpenDialog1.Execute then
  begin
    listacc.Clear;
    listacc.LoadFromFile(form1.OpenDialog1.FileName);
    Label2.Caption:=inttostr(listacc.Count);
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.OpenDialog1.InitialDir:= extractfiledir(application.ExeName);
if form1.OpenDialog1.Execute then
  begin
    ProxyList.Clear;
    ProxyList.LoadFromFile(form1.OpenDialog1.FileName);
    Label4.Caption:=inttostr(ProxyList.Count);
  end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
GoodFile, BadFile:textfile;
delitel: String;
ProxyType: String;
acc, thread: integer;
work: Boolean;
potok: pwpotok;
  begin
   AssignFile(GOODFile,ExtractFileDir(Application.ExeName)+'good.txt');
   Rewrite(GoodFile);
   CloseFile(GoodFile);
 
   AssignFile(BadFile,ExtractFileDir(Application.ExeName)+'bad.txt');
   Rewrite(BadFile);
   CloseFile(BadFile);
 
   if pos(':', listacc.text) <> 0 then
   delitel:= ':' else delitel:= ';';
 
   if form1.ComboBox1.ItemIndex = 0 then
   ProxyType:= 'http' else ProxyType:= 'socks';
 
   Acc:=-1;
   Work:=true;
   label6.Caption:= '0';
   label8.Caption:= '0';
 
   for Thread:=1 to strtoint(edit1.text) do
   potok:=pwpotok.Create(false);
 
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
listacc:=TStringList.Create;
ProxyList:=TStringList.Create;
lp:= TStringList.Create;
cs:= TCriticalSection.Create;
end;
 
destructor pwpotok.Destroy;
begin
inherited;
FreeAndNil(HTTP);
end;
 
procedure pwpotok.Execute;
var
FLogin,FPassword:String;
Rezult: integer;
begin
 while Work do
  begin
 
   CS.Enter;
    Inc(Acc);
    if Acc<listacc.Count-1 then CurAcc:=Acc else Work:=false;
    if 1<Proxylist.Count-1 then TP:=1 else begin end;
   CS.Leave;
 
   if Work then
    begin
 
     //copy login
     FLogin:= Copy(listacc[CurAcc],1,Pos(delitel,listacc[CurAcc])-1);
     FPassword:= Copy(listacc[CurAcc],Pos(delitel,listacc[CurAcc])+1,Length(listacc[CurAcc]));
     ShowMessage(flogin+' : '+fpassword);
 
     //copy proxy
     if ProxyList.Text = '' then
     begin
      sleep(0);
     end
      else
     begin
     IP:=Copy(ProxyList[TP], 1, Pos(':', ProxyList[TP])-1);
     Port:=Copy(ProxyList[TP],Pos(':',ProxyList[TP])+1,Length(ProxyList[TP]));
     end;
 
     HTTP:=THTTPSend.Create;
     //Заголовки
     with HTTP do begin
      Headers.Add('Accept: text/javascript, application/javascript, application/ecmascript, application/x-ecmascript, */*; q=0.01');      MimeType:='application/x-www-form-urlencoded';
      Headers.Add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
      Headers.Add('Connection: keep-alive');
     end;
 
     //POST
     data:=Tstringstream.Create; //Инициаллизируем
     data.WriteString('log='+ Flogin+'&pwd='+ Fpassword); //Добавляем параметры
     HTTP.Document.LoadFromStream(data); //Загружаем
 
     //Выставляем Proxy
     if Proxylist.Text = '' then
      begin
      sleep(0)
      end else
     begin
     //socks
     if proxytype='socks' then
     begin
     HTTP.Sock.SocksIP:=IP;
     HTTP.Sock.SocksPort:=Port;
     end;
     //HTTP
     if proxytype='http' then
     begin
     HTTP.ProxyHost:=IP;
     HTTP.ProxyPort:=Port;
     end;
     end;
 
     if HTTP.HTTPMethod('POST', 'http://site.ru/login.php') then begin
     if pos('Set-Cookie: pwd=', HTTP.Headers.Text)<>0 then //Проверяем успешна-ли авторизация
     Rezult:=1 else Rezult:=-1;
 
     HTTP.Free;
     src.Free;
     data.Free;
     Synchronize(Synch);
    end;
  end;
 
 dec(Thread);
 if Thread=0 then ShowMessage('Всё ок');
end;
end;
procedure pwpotok.Synch;
var
FLogin,FPassword: String;
Rezult: integer;
begin
case Rezult of
1: begin
    //form1.Label6:= form1.Label6 + inttostr(strtoint(form1.Label6)+1);
    Append(GoodFile);
    WriteLn(GoodFile, FLogin+':'+FPassword);
    closefile(GoodFile);
   end;
-1: begin
    //form1.Label8:= form1.Label8 + inttostr(strtoint(form1.Label8)+1);
    Append(BadFile);
    WriteLn(BadFile, FLogin+':'+FPassword);
    closefile(BadFile);
end;
end;
end;
end.
0
qwertehok
1695 / 1686 / 367
Регистрация: 29.08.2013
Сообщений: 11,407
27.02.2016, 20:45 #32
42 строка - ЭТО ЧТО?????


как вы вообще додумались такое написать
читайте, читайте и еще раз читайте
http://www.delphi-manual.ru/threads.php
0
flix666
0 / 0 / 0
Регистрация: 22.02.2016
Сообщений: 74
27.02.2016, 20:56  [ТС] #33
убрал строку 42, теперь он просто несколько раз стартует и столько же раз выходит
0
qwertehok
1695 / 1686 / 367
Регистрация: 29.08.2013
Сообщений: 11,407
27.02.2016, 21:06 #34
flix666,
еще мне не нравится 2 jодинаковые переменные work, одна из которых глобальная
0
flix666
0 / 0 / 0
Регистрация: 22.02.2016
Сообщений: 74
27.02.2016, 21:14  [ТС] #35
более менее заработал) спасибо
в чем ошибка этой строчки?
form1.Label6:= form1.Label6 + inttostr(strtoint(form1.Label6)+1);
0
qwertehok
1695 / 1686 / 367
Регистрация: 29.08.2013
Сообщений: 11,407
27.02.2016, 21:31 #36
form1.Label6.CAPTION?????
0
Пытливый
1313 / 629 / 148
Регистрация: 29.05.2013
Сообщений: 2,718
27.02.2016, 21:43 #37
1. Уберите из Execute прямые вызовы ShowMessage, это надо делать только через Synchronize.
2. В деструкторе потока сначала уничтожаются все ваши объекты и только в финале запускается внутренний деструктор, а у вас все наоборот.
0
27.02.2016, 21:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2016, 21:43
Привет! Вот еще темы с ответами:

Поток не может использовать компоненты на форме - Delphi
Здравствуйте. У меня возникла такая проблема. Я разрабатывал программу типа клиент/сервер по передаче файлов всё прекрасно работало пока не...

Может ли поток разделять группы разрядов? - C++
Может ли std::ofstream разделять группы разрядов? Например, double x=10000; std::ofstream s(&quot;txt.txt&quot;); s&lt;&lt;x;//чтоб здесь вывело не...

Вызывающий поток не может получить доступ - C# WPF
&quot;Вызывающий поток не может получить доступ к данному объекту, так как владельцем этого объекта является другой поток.&quot; Скажите пожалуйста...

FB2.5 может ли сохранить поток во внейшний файл? - Delphi БД
Здравствуйте! Подскажите - можно ли написать ХП или ещё каким-то образом сделать, чтобы FB2.5 получив некий поток данных самостоятельно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
37
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.