Помогите С Отправкой Пост Запроса На Delphi 7

[Ярослав]

Помогите с отправкой пост запроса на Delphi 7 зделал всё вроде правельно но когда запустил программу вёл данные и нажал старт появляеться ошыбка html:=IdHTTP1.Post('https://arena-fighting.ru/imhero/?', Data);

вот код программы

var
Data: TStringList;
html: string;
Crazymethod:string;
Crazyviewer_id:string;
Crazyauth_key:string;
Crazykills:string;
Crazydeaths:string;
Crazyopit:string;
Crazymoneygame:string;
Crazyselfkills:string;
Crazygood:string;
Crazysuper:string;
begin
Crazymethod:= sEdit1.Text;
Crazyviewer_id:=sEdit2.Text;
Crazyauth_key:=sEdit3.Text;
Crazykills:=sEdit4.Text;
Crazydeaths:=sEdit5.Text;
Crazyopit:=sEdit6.Text;
Crazymoneygame:=sEdit7.Text;
Crazyselfkills:=sEdit8.Text;
Crazygood:=sEdit9.Text;
Crazysuper:=sEdit10.Text;
Application.ProcessMessages;
Data:= TStringList.Create();
try
Data.Add(Crazymethod);
Data.Add(Crazyviewer_id);
Data.Add(Crazyauth_key);
Data.Add(Crazykills);
Data.Add(Crazydeaths);
Data.Add(Crazyopit);
Data.Add(Crazymoneygame);
Data.Add(Crazyselfkills);
Data.Add(Crazygood);
Data.Add(Crazysuper);
html:= IdHTTP1.Post('https://arena-fighting.ru/imhero/?', Data);
finally
Memo1.text:= html;
Data.Free;
end;
end;

вот скрин программы

 

[Lomanu4]

Помогите с отправкой пост запроса на Delphi 7 зделал всё вроде правельно но когда запустил программу вёл данные и нажал старт появляеться ошыбка html:=IdHTTP1.Post('https://arena-fighting.ru/imhero/?', Data);

вот код программы

var
Data: TStringList;
html: string;
Crazymethod:string;
Crazyviewer_id:string;
Crazyauth_key:string;
Crazykills:string;
Crazydeaths:string;
Crazyopit:string;
Crazymoneygame:string;
Crazyselfkills:string;
Crazygood:string;
Crazysuper:string;
begin
Crazymethod:= sEdit1.Text;
Crazyviewer_id:=sEdit2.Text;
Crazyauth_key:=sEdit3.Text;
Crazykills:=sEdit4.Text;
Crazydeaths:=sEdit5.Text;
Crazyopit:=sEdit6.Text;
Crazymoneygame:=sEdit7.Text;
Crazyselfkills:=sEdit8.Text;
Crazygood:=sEdit9.Text;
Crazysuper:=sEdit10.Text;
Application.ProcessMessages;
Data:= TStringList.Create();
try
Data.Add(Crazymethod);
Data.Add(Crazyviewer_id);
Data.Add(Crazyauth_key);
Data.Add(Crazykills);
Data.Add(Crazydeaths);
Data.Add(Crazyopit);
Data.Add(Crazymoneygame);
Data.Add(Crazyselfkills);
Data.Add(Crazygood);
Data.Add(Crazysuper);
html:= IdHTTP1.Post('https://arena-fighting.ru/imhero/?', Data);
finally
Memo1.text:= html;
Data.Free;
end;
end;

вот скрин программы

какую ошибку выбивает в логе?

 

[Ярослав]

какую ошибку выбивает в логе?

вообше не какой

 

[Lomanu4]

какую ошибку выбивает в логе?

ты указал https,если не подключил библиотеки работать не будет,пробуй через синапс.

 

[Ярослав]

я подключил синап в кинул dll с программой в юсер добавил модули и не робит серавно ошыбка
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ExtCtrls, sSkinManager, sSkinProvider, sEdit,
ComCtrls, sTrackBar, lib, httpsend,ssl_openssl;

ошыбка здесь html:= IdHTTP1.Post('https://arena-fighting.ru/imhero/?', Data);

 

[Lomanu4]

я подключил синап в кинул dll с программой в юсер добавил модули и не робит серавно ошыбка
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ExtCtrls, sSkinManager, sSkinProvider, sEdit,
ComCtrls, sTrackBar, lib, httpsend,ssl_openssl;

ошыбка здесь html:= IdHTTP1.Post('https://arena-fighting.ru/imhero/?', Data); Посмотреть вложение 100

кинь исходник,поможем

 

[Ярослав]

кинь исходник,поможем

http://rghost.ru/6y54YGZ8y

 

[Sascha]

http://rghost.ru/6y54YGZ8y

сылка не правильная или удалёная

 

[Ярослав]

сылка не правильная или удалёная

да я уже удалил исходник так как
Lomanu4 уже скачал его и исправит его сегодня

 

[Sascha]

да я уже удалил исходник так как
Lomanu4 уже скачал его и исправит его сегодня

тогда хорошо, а то думал что у меня инет глючит

 

[Sascha]

если ты можешь исправить ошыбку то вот исходник ****

скачал , посмотрю только адрес то правельный по запросу там ничего нету кроме
{"result":"0"} сама игра где

 

[Ярослав]

скачал , посмотрю только адрес то правельный по запросу там ничего нету кроме
{"result":"0"} сама игра где

http://vk.com/app4985024 вот игра запрос появить когда в бой сыграешь убёш когото возьмёшь монеты выдешь из боя и там появиться запрос с данными и его надо отправлять много раз

 

[Sascha]

запрос попробуй сделать так
method=savedata44&viewer_id=ваш id&auth_key=ваш auth_key&kills=количество убийств&deaths=количество смертей&opit=количество опыта&moneygame=количество денег&selfkills=количество самоубийств&killall=ваш id

 

[Ярослав]

запрос попробуй сделать так
method=savedata44&viewer_id=ваш id&auth_key=ваш auth_key&kills=количество убийств&deaths=количество смертей&opit=количество опыта&moneygame=количество денег&selfkills=количество самоубийств&killall=ваш id

куда я его должен вставить ? method=savedata44&viewer_id=****&auth_key=*****&kills=2&deaths=1&opit=10&moneygame=2&selfkills=0&good=-****&super=****

 

[Sascha]

у тебя неправельный запрос , вот твой запрос :
method=viewer_id=auth_key=kills=50deaths=20opit=50moneygame=50selfkills=50good=super=
ты пропустил &
а вот как должно
method=savedata44&viewer_id=****&auth_key=*********&kills=2&deaths=1&opit=10&moneygame=2&selfkills=0&good=****&super=******

 

[Sascha]

IdHTTP1.Request.UserAgent :=
      'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:37.0) Gecko/20100101 Firefox/37.0';
Data.Add(Crazymethod+Crazyviewer_id+Crazyauth_key+Crazykills+Crazydeaths+Crazyopit+Crazymoneygame+Crazyselfkills+Crazygood+Crazysuper);
html:= IdHTTP1.Post('https://arena-fighting.ru/imhero/?', Data);

тут вроде

 

[Lomanu4]

IdHTTP1.Request.UserAgent :=
      'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:37.0) Gecko/20100101 Firefox/37.0';
Data.Add(Crazymethod+Crazyviewer_id+Crazyauth_key+Crazykills+Crazydeaths+Crazyopit+Crazymoneygame+Crazyselfkills+Crazygood+Crazysuper);
html:= IdHTTP1.Post('https://arena-fighting.ru/imhero/?', Data);

тут вроде

вот как помогаешь,даешь правльный ответ и все история на этом заканчиваеться,ты ломаешь голову,а в ответ даже спасибо не дадут:(

 

[Sascha]

Всё готово, код работает вот пример работы

 

[Ярослав]

вот как помогаешь,даешь правльный ответ и все история на этом заканчиваеться,ты ломаешь голову,а в ответ даже спасибо не дадут:(

Спасибо БОЛЬШОЕ!

 

[Lomanu4]

Спасибо БОЛЬШОЕ!

spasibo ne mne govori a Sane