|
Здоровье босса в ProgressBar1 - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
18.07.2011, 00:13
|
#1
|
|
|
|
Разведчик
|
Регистрация: 17.07.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Здоровье босса в ProgressBar1
Подскажите пожалуйста, выдает ошибку при компиляции на месте отмеченым красным.
Код:
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);
memo2.Lines.Add(i.Text);
name:=parse ('<name>', '</name>', Memo2.Text); //Имя босса
h_full:=parse ('<h_full>', '</h_full>', Memo2.Text); //Здоровье 100%
h_now:=parse ('<h_now>', '</h_now>', Memo2.Text); //Здоровья осталось
battle_time:=parse ('<battle_time>', '</battle_time>', Memo2.Text); //Времени осталось
ProgressBar1.Position:=h_now;
ProgressBar1.Max:=h_full;
Label10.Caption:=battle_time
Код:
[Hint] Unit1.pas(93): Variable 'res' is declared but never used in 'parse'
[Error] Unit1.pas(127): Incompatible types: 'Integer' and 'String'
[Error] Unit1.pas(128): Incompatible types: 'Integer' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Последний раз редактировалось Tide73; 18.07.2011 в 00:47.
|
|
|
18.07.2011, 08:59
|
#2
|
|
|
|
Разведчик
|
Регистрация: 23.01.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Здоровье босса в ProgressBar1
Вот его ошибка!
h_full,h_now: string; а надо Integer
Но если поставить Integer то ошибка будет здесь
|
Цитата: |
|
|
|
|
|
|
|
|
h_full:=parse ('<h_full>', '</h_full>', Memo2.Text); //Здоровье 100%
h_now:=parse ('<h_now>', '</h_now>', Memo2.Text); //Здоровья осталось |
|
|
|
|
|
Так как это String
PS. ProgressBar1 это всегда Integer
Последний раз редактировалось Fliva59; 18.07.2011 в 09:32.
|
|
|
18.07.2011, 10:32
|
#3
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Здоровье босса в ProgressBar1
|
Цитата: |
|
|
|
|
|
|
|
|
|
ProgressBar1 это всегда Integer
|
|
|
|
|
|
ProgressBar1.Position всегда Integer...
А насчёт кода, попробуй так:
Код:
ProgressBar1.Position:=strtoint(h_now);
ProgressBar1.Max:=strtoint(h_full);
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
Пользователь сказал cпасибо:
|
|
18.07.2011, 10:37
|
#4
|
|
|
|
Разведчик
|
Регистрация: 17.07.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Здоровье босса в ProgressBar1
Компилирует, но при запросе ошибка.
|
|
|
18.07.2011, 14:57
|
#5
|
|
|
|
Разведчик
|
Регистрация: 23.01.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Здоровье босса в ProgressBar1
Вот тебе код тут робит всё! Проверенно!!
Код:
procedure TForm1.Button1Click(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=*************');
i.Add('user=*************');
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);
Label1.Caption:=battle_time;
finally
IdHTTP1.Free
end;
end;
PS. Можно мемо и не подключать
|
|
|
18.07.2011, 16:26
|
#6
|
|
|
|
Разведчик
|
Регистрация: 17.07.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Здоровье босса в ProgressBar1
|
Цитата: |
|
|
|
|
|
|
|
|
|
Вот тебе код тут робит всё! Проверенно!!
Код:
procedure TForm1.Button1Click(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=*************');
i.Add('user=*************');
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);
Label1.Caption:=battle_time;
finally
IdHTTP1.Free
end;
end;
PS. Можно мемо и не подключать
|
|
|
|
|
|
Первый запрос проходит нормально, но ProgressBar1.Position:=strtoint(h_now); неработает, при втором нажатии на кнопку выдает ошибку
Последний раз редактировалось Tide73; 18.07.2011 в 19:26.
|
|
|
18.07.2011, 20:32
|
#7
|
|
|
|
Разведчик
|
Регистрация: 23.01.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Здоровье босса в ProgressBar1
При 2-ом запросе очищай ProgressBar1.Position и всё
|
|
|
08.06.2015, 00:35
|
#8
|
|
|
|
Разведчик
|
Регистрация: 21.04.2015
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Здоровье босса в ProgressBar1
Помогите, у меня ошибак вот здесь: что мне зделать?
name:=parse
Раrse ((((((((((((((((((
|
|
|
08.06.2015, 02:36
|
#9
|
|
|
|
Пехотинец
|
Регистрация: 27.12.2011
Сообщений: 73
Популярность: 2425
Сказал(а) спасибо: 334
Поблагодарили 57 раз(а) в 27 сообщениях
|
Re: Здоровье босса в ProgressBar1
Хм. Разве мало ботов для тюряги?)
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 17:12.
|
|