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

[Sascha]

там половину скрипта убрать можно просто вписываешь " Data.Add('method='+ Edit1.text) тут к примеру ничего менять ненужно убираем Edit1.text и прописываем Data.Add('method=savedata44') далше идет твой id Data.Add('viewer_id='+Edit2.txt) и так далие убрать можно гдето 4 Edit, останится только то что нужно заполнить вообщем это 4 калонки id, key, moneygame, opit можно также оставить kills и deaths , также нужно знать что стоит ограничение на деньги и опит, вроде до 100 проходит , и на твоем видео ошибка и за того что ты пытаешься скомпилировать 2 раза одну и тоже прогу иногда нужно закрывать прогу чтобы её скомпелировать опять

 

[Ярослав]

там половину скрипта убрать можно просто вписываешь " Data.Add('method='+ Edit1.text) тут к примеру ничего менять ненужно убираем Edit1.text и прописываем Data.Add('method=savedata44') далше идет твой id Data.Add('viewer_id='+Edit2.txt) и так далие убрать можно гдето 4 Edit, останится только то что нужно заполнить вообщем это 4 калонки id, key, moneygame, opit можно также оставить kills и deaths , также нужно знать что стоит ограничение на деньги и опит, вроде до 100 проходит , и на твоем видео ошибка и за того что ты пытаешься скомпилировать 2 раза одну и тоже прогу иногда нужно закрывать прогу чтобы её скомпелировать опять

Вод так ?

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
Data.Add('method='+ sEdit1.text);
Data.Add('viewer_id='+ sEdit2.text);
Data.Add('auth_key='+ sEdit3.text);
Data.Add('kills='+ sEdit4.text);
Data.Add('deaths='+ sEdit5.text);
Data.Add('opit='+ sEdit6.text);
Data.Add('moneygame='+ sEdit7.text);
Data.Add('selfkills='+ sEdit8.text);
Data.Add('good='+ sEdit9.text);
Data.Add('super='+ sEdit10.text);
Application.ProcessMessages;
Data:= TStringList.Create();
try
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);
except
    on E: Exception do
  end;
Memo1.text:= html;
Data.Free;
end;

 

[Ярослав]

Вод так ?
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
Data.Add('method='+ sEdit1.text);
Data.Add('viewer_id='+ sEdit2.text);
Data.Add('auth_key='+ sEdit3.text);
Data.Add('kills='+ sEdit4.text);
Data.Add('deaths='+ sEdit5.text);
Data.Add('opit='+ sEdit6.text);
Data.Add('moneygame='+ sEdit7.text);
Data.Add('selfkills='+ sEdit8.text);
Data.Add('good='+ sEdit9.text);
Data.Add('super='+ sEdit10.text);
Application.ProcessMessages;
Data:= TStringList.Create();
try
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);
except
on E: Exception do
end;
Memo1.text:= html;
Data.Free;
end;

если так то тогда ошыбка
[Warning] Unit1.pas(109): Variable 'Data' might not have been initialized

 

[Sascha]

если так то тогда ошыбка
[Warning] Unit1.pas(109): Variable 'Data' might not have been initialized

нет не так ,ты формируешь сразу 2 запроса

 

[Ярослав]

нет не так ,ты формируешь сразу 2 запроса

Можешь пожалуйста скинуть готовый проект ? не код а уже исходник полностю ?

 

[Sascha]

Можешь пожалуйста скинуть готовый проект ? не код а уже исходник полностю ?

сейчас твой сделаю и скину

 

[Lomanu4]

Вод так ?
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
Data.Add('method='+ sEdit1.text);
Data.Add('viewer_id='+ sEdit2.text);
Data.Add('auth_key='+ sEdit3.text);
Data.Add('kills='+ sEdit4.text);
Data.Add('deaths='+ sEdit5.text);
Data.Add('opit='+ sEdit6.text);
Data.Add('moneygame='+ sEdit7.text);
Data.Add('selfkills='+ sEdit8.text);
Data.Add('good='+ sEdit9.text);
Data.Add('super='+ sEdit10.text);
Application.ProcessMessages;
Data:= TStringList.Create();
try
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);
except
on E: Exception do
end;
Memo1.text:= html;
Data.Free;
end;

proshy vstavlyaete cod,cherez panel vstavit'

 

[Ярослав]

сейчас твой сделаю и скину

ок спасибо

 

[Sascha]

Вот держи :)

 

[Ярослав]

Спасибо, а какого это компонента у меня нету ?

 

[Sascha]

Спасибо, а какого это компонента у меня нету ?
Посмотреть вложение 107

Indy component у меня xe5 разница версий , попробуй без него