[Подсказка] почему

[tonyr]

выдает ошибка в этом коде в строке end.


procedure TForm1.Button1Click(Sender: TObject);
var
p:Tstrings;
i:string;
begin
p:=Tstringlist.Create;
p.Add('method=getInfo');
p.Add('key='+edit1.Text);
p.Add('user='+edit2.Text);
i:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?getInfo', p);
if Pos('<result>0</result>',i) <>0 then
ShowMessage('Неправильный auth_key')
else

end;



procedure TForm1.Button2Click(Sender: TObject);
var
Http : TidHttp;
CM : TidCookieManager;
Data : TStringList;
s, g : String;
begin
try
Http := TIdHTTP.Create(Self);
Data := TStringList.Create;
CM := TidCookieManager.Create(Http);
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;

Http.Request.Host:='109.234.156.250';
Http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0) Gecko/20100101 Firefox/4.0';
Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Http.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
Http.Request.Referer:='http://cs4287.vkontakte.ru/u3691205/52d96e1188a225.zip';


Data.Add('method=office');
Data.Add('sig=4b4d194a083007aa538f49d2a0cd6b5c');
Data.Add('key=' + Edit2.Text);
Data.Add('getidea=1');
Data.Add('user=' + Edit1.Text);


s := Http.Post('http://109.234.156.250/prison/universal.php?office', Data);


g:=copy(s,pos('<money>',s)+length('<money>'),pos(' </money>',s)-pos('<money>',s)-length('<money>'));
Label1.Caption:=g;
finally
Data.Free;
CM.Free;
Http.Free;
end;

end.

[VeTaL_UA]

Я так понимаю, что код скопипастеный... Смотри ниже объяснение:

procedure TForm1.Button1Click(Sender: TObject); //Процедура нажатия на первую кнопку
var //Объявляем переменные
 p:Tstrings; 
 i:string;
begin //Начинается исполняемый код этой процедуры
 p:=Tstringlist.Create; //Создаем String List
 //Добавляем в него данные Request'а
 p.Add('method=getInfo');
 p.Add('key='+edit1.Text);
 p.Add('user='+edit2.Text);
 i:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?getInfo', p); //Отправляем Post запрос
  if Pos('<result>0</result>',i)<>0 then //Если в полученном ответе есть '<result>0</result>', тогда
   begin
   ShowMessage('Неправильный auth_key'); //Выдаем окошко с ошибкой
   end;
end; //Заканчивается исполняемый код данной процедуры

procedure TForm1.Button2Click(Sender: TObject); //Процедура нажатия на вторую кнопку
var //Объявляем переменные
 Http : TidHttp;
 CM : TidCookieManager;
 Data : TStringList;
 s, g : String;
begin //Начинается исполняемый код этой процедуры
 try //Пробуем исполнить код ниже
  {IdHTTP Create and Setting}
  Http := TIdHTTP.Create(Self); //Создаем IdHTTP
  Data := TStringList.Create; //Создаем String List
  CM := TidCookieManager.Create(Http); //Создаем Cookie Manager
  Http.AllowCookies := true; //Разрешаем IdHTTP использовать Cookie
  Http.CookieManager := CM; //Указываем IdHTTP на Cookie Manager
  Http.HandleRedirects := true; //Разрешаем IdHTTP переходить по Redirect'у
  {Indy Request Setting}
  Http.Request.Host:='109.234.156.250';
  Http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0) Gecko/20100101 Firefox/4.0';
  Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  Http.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
  Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
  Http.Request.Referer:='http://cs4287.vkontakte.ru/u3691205/52d96e1188a225.zip';
  {Request String List Create}
  Data.Add('method=office');
  Data.Add('sig=4b4d194a083007aa538f49d2a0cd6b5c');
  Data.Add('key=' + Edit2.Text);
  Data.Add('getidea=1');
  Data.Add('user=' + Edit1.Text);
  {Sending Request}
  s := Http.Post('http://109.234.156.250/prison/universal.php?office', Data); //Отправляем Post запрос
  {Display Money}  
  g:=copy(s,pos('<money>',s)+length('<money>'),pos(' </money>',s)-pos('<money>',s)-length('<money>')); //Копируем
  количество денег в переменную g
  Label1.Caption:=g; //Выводим переменную g в Label
 finally //Когда исполнили код ниже
  Data.Free; //Очистка String List
  CM.Free; //Очистка Cookie Manager
  Http.Free; //Очистка IdHTTP
 end; //Ошибка была здесь, из-за пропущенного end'а
end; //Заканчивается исполняемый код данной процедуры

end.

Код исправлен и объяснен.

P.S. Странно, что тебе выдало только одну ошибку...

[tonnyripper]

все норм токо вот в лабел нечего не показует. и где тстринг находится?

Добавлено через 9 минут
просто чего то не хочит в лабел выводить результат.

[Хакерок:)]

Цитата: Сообщение от tonnyripper все норм токо вот в лабел нечего не показует. и где тстринг находится? Добавлено через 9 минут просто чего то не хочит в лабел выводить результат.

Почитай исправленный код. Вывод информации из переменной g в Label заключен в try..finally, следовательно где-то в части кода от try до finally происходит ошибка.
P.S. Это к делу не относится, но для вопросов есть подраздел.

[tonnyripper]

помоги