Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 10.06.2015
Сообщений: 19
1

В коде подчеркивается 'parse'

10.06.2015, 13:03. Показов 336. Ответов 4
Метки нет (Все метки)

Здравствуйте, нашел код в интернете для приложения Тюряга Вконтакте, вот попробовал пихнуть себе в бот, но возникла ошибка:

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
procedure TForm1.Button3Click(Sender: TObject);
var
p,i:Tstrings;
name,h_full,h_now,battle_time:string;
 
begin
idhttp1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)';
idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
 
p:=Tstringlist.Create;
i:=Tstringlist.Create;
 
try
i.Add('method=getBoss');
i.Add('key='+Edit2.Text);
i.Add('user='+Edit1.Text);
i.Text:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?getBoss', i);
 
name:=parse ('<name>', '</name>', i.text); //Имя босса
h_full:=parse ('<h_full>', '</h_full>', i.text); //Здоровье 100%
h_now:=parse ('<h_now>', '</h_now>', i.text); //Здоровья осталось
battle_time:=parse ('<battle_time>', '</battle_time>', i.text); //Времени осталось
 
 
 
ProgressBar1.Position:=strtoint(h_now);
ProgressBar1.Max:=strtoint(h_full);
 
Label24.Caption:=battle_time;
 
finally
IdHTTP1.Free
end;
end;
Delphi подчеркивает 'parse'. Что же делать?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2015, 13:03
Ответы с готовыми решениями:

Вызов функции Sleep в коде подчеркивается красным
У меня проблема: Sleep в цикле подчёркивается красным #include &lt;conio.h&gt;; #include &lt;iostream&gt;;...

В коде C# подчеркивается "Dim"
Пишу программу для работы с бд в среде Visual Studio c#. Не пойму почему подчеркивает оператор dim...

Исправить ошибку в коде: Invalid ConnectionString format, cannot parse: string value to split cannot be null
Как исправить эту ошибку? Что не так? System.ArgumentException: &quot;Invalid ConnectionString format,...

Ошибка в коде: Parse error: syntax error, unexpected ':', expecting ',' or ')'
function get_posts ($limit, $offset) { global $link; $sql = &quot;SELECT * FROM `table_book` LIMIT...

4
678 / 501 / 231
Регистрация: 02.10.2012
Сообщений: 1,717
10.06.2015, 13:50 2
это процедура которой у тебя нет, или не объявлена
0
0 / 0 / 0
Регистрация: 10.06.2015
Сообщений: 19
10.06.2015, 13:50  [ТС] 3
а как это исправить?
0
678 / 501 / 231
Регистрация: 02.10.2012
Сообщений: 1,717
10.06.2015, 13:56 4
найти эту процедуру там где ты копировал код
0
0 / 0 / 0
Регистрация: 10.06.2015
Сообщений: 19
10.06.2015, 14:03  [ТС] 5
Этот кусок один плавает по интернету, и ни у кого нету ответов, но я тоже не пальцем деланный и переделал ее по аналогии копирования данных
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
procedure TForm1.Button3Click(Sender: TObject);
var
ID,h_full,h_now,battle_time:string;
 
begin
idhttp1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)';
idhttp1.Request.ContentType:='application/x-www-form-urlencoded';
 
try
//Имя босса
ID:=IdHTTP2.Get('http://109.234.155.196/prison/universal.php?getBoss&method=getBoss&user='+Edit1.Text+'&key='+Edit2.Text);
Delete(ID,1,pos('<id>',ID)+length('<id>')-1);
Delete(ID,pos('</id>',ID),length(ID));
//Здоровье 100%
h_full:=IdHTTP2.Get('http://109.234.155.196/prison/universal.php?getBoss&method=getBoss&user='+Edit1.Text+'&key='+Edit2.Text);
Delete(h_full,1,pos('<h_full>',h_full)+length('<h_full>')-1);
Delete(h_full,pos('</h_full>',h_full),length(h_full));
//Здоровья осталось
h_now:=IdHTTP2.Get('http://109.234.155.196/prison/universal.php?getBoss&method=getBoss&user='+Edit1.Text+'&key='+Edit2.Text);
Delete(h_now,1,pos('<h_now>',h_now)+length('<h_now>')-1);
Delete(h_now,pos('</h_now>',h_now),length(h_now));
//Времени осталось
battle_time:=IdHTTP2.Get('http://109.234.155.196/prison/universal.php?getBoss&method=getBoss&user='+Edit1.Text+'&key='+Edit2.Text);
Delete(battle_time,1,pos('<battle_time>',battle_time)+length('<battle_time>')-1);
Delete(battle_time,pos('</battle_time>',battle_time),length(battle_time));
 
 
 
Label26.Caption:=h_full;
Label25.Caption:=ID;
Label24.Caption:=battle_time;
 
finally
IdHTTP1.Free
end;
end;
Но вот только почему то ошибка тоже вылазит.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2015, 14:03

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Ошибка в коде SyntaxError: JSON.parse: unexpected character at line 1 column 1 of the JSON data
не пойму в чем ошибка вот код header(&quot;Content-Type: application/json; encoding=utf-8&quot;); ...

Ошибка в коде - Parse error: syntax error, unexpected '{'
ошибка в коде Parse error: syntax error, unexpected '{' in E:\OpenServer\domains\test.ru\index.php...

ошибка в коде Parse error: syntax error, unexpected '{' in E:\OpenServer\domains\test.ru\index.php on line 17
ошибка в коде Parse error: syntax error, unexpected '{' in E:\OpenServer\domains\test.ru\index.php...

XDocument и XElement подчеркивается красным
Облазил форум, интернет, не могу найти ответ: в коде, который был найден на форуме Dim...

Почему подчеркивается красным Checked?
Приветствую, необходим радиобуттаном изменить значение, но что-то не получается. подчеркивается...

Текст в кнопке подчёркивается при наведении
Есть такая кнопка: (выглядит она просто как текст) &lt;Button Content=&quot;Кнопка&quot;...


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

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

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