НОВИЧЁК! Что за ошибка?

@qwizz · Регистрация: 24.03.2013

Author24 — интернет-сервис помощи студентам

[Error] Unit1.pas(40): Undeclared identifier: 'PageProfile'

Решил сделать авторизацию вконтакте!

Вот код.

Кликните здесь для просмотра всего текста

procedure TForm1.btn1Click(Sender: TObject);

Var t: TStringList;

begin
IdHTTP1.AllowCookies:=True;
IdHTTP1.HandleRedirects:=true;
t:=TStringList.Create;

try
PageProfile:=IdHTTP1.Get('http://login.vk.com/?act=login&email='+edt1.Text+'&pass='+edt2.Text);
except
end;
if Pos('logout', PageProfile)>0 then
begin
mmo1.Lines.Add('Всё ок!!')
end
else
mmo1.Lines.Add('Неудача.');
end;

end.

На форме 1 батон и 2 едита. и IdHTTP.

Ошибка вот здесь

Кликните здесь для просмотра всего текста

PageProfile:=IdHTTP1.Get('http://login.vk.com/?act=login&email='+edt1.Text+'&pass='+edt2.Text);

В заранее бью челом!)

Добавлено через 56 секунд
Использую Delphi 7. Синепс установлен!

@NT SERVICE · 14.04.2013, 22:16

Сообщение от qwizz

Undeclared identifier: 'PageProfile'

Не объявленная переменная 'PageProfile'

@qwizz · 14.04.2013, 22:20 **[ТС]**

Сообщение от NT SERVICE

Не объявленная переменная 'PageProfile'

PageProfile: ineger;

сделал) вроде норм)

а это что за ошибка?

Кликните здесь для просмотра всего текста

[Error] Unit1.pas(41): Incompatible types: 'Integer' and 'String'

@NT SERVICE · 14.04.2013, 22:26

Сообщение от qwizz

PageProfile: ineger;

'String'

@qwizz · 14.04.2013, 22:26 **[ТС]**

все решил проблему!

@qwizz 1 / 1 / 1 Регистрация: 24.03.2013 Сообщений: 63
		1
	НОВИЧЁК! Что за ошибка? 14.04.2013, 22:11. Показов 520. Ответов 4 Метки нет (Все метки) [Error] Unit1.pas(40): Undeclared identifier: 'PageProfile' Решил сделать авторизацию вконтакте! Вот код. Кликните здесь для просмотра всего текста procedure TForm1.btn1Click(Sender: TObject); Var t: TStringList; begin IdHTTP1.AllowCookies:=True; IdHTTP1.HandleRedirects:=true; t:=TStringList.Create; try PageProfile:=IdHTTP1.Get('http://login.vk.com/?act=login&email='+edt1.Text+'&pass='+edt2.Text); except end; if Pos('logout', PageProfile)>0 then begin mmo1.Lines.Add('Всё ок!!') end else mmo1.Lines.Add('Неудача.'); end; end. На форме 1 батон и 2 едита. и IdHTTP. Ошибка вот здесь Кликните здесь для просмотра всего текста PageProfile:=IdHTTP1.Get('http://login.vk.com/?act=login&email='+edt1.Text+'&pass='+edt2.Text); В заранее бью челом!) Добавлено через 56 секунд Использую Delphi 7. Синепс установлен! 0

@NT SERVICE 122 / 120 / 41 Регистрация: 27.01.2013 Сообщений: 546
	14.04.2013, 22:16	2
	Сообщение от qwizz Undeclared identifier: 'PageProfile' Не объявленная переменная 'PageProfile' 0

@qwizz 1 / 1 / 1 Регистрация: 24.03.2013 Сообщений: 63
	14.04.2013, 22:20 [ТС]	3
	Сообщение от NT SERVICE Не объявленная переменная 'PageProfile' PageProfile: ineger; сделал) вроде норм) а это что за ошибка? Кликните здесь для просмотра всего текста [Error] Unit1.pas(41): Incompatible types: 'Integer' and 'String' 0

@NT SERVICE 122 / 120 / 41 Регистрация: 27.01.2013 Сообщений: 546
	14.04.2013, 22:26	4
	Сообщение от qwizz PageProfile: ineger; 'String' 0

@qwizz 1 / 1 / 1 Регистрация: 24.03.2013 Сообщений: 63
	14.04.2013, 22:26 [ТС]	5
	все решил проблему! 0