[Обсуждение] помогите плиз

[drui7]

хочу научиться отсылать и получать POST запросы в самодельной программе написанной на дельфи) пожалуйста скиньте исходник для чего нибудь работающего с этими запросами.или помогите советом,как это лучше сделать

[Nice42rus]

procedure TForm1.Work;
var
  PostData: TStringList;
  work: String;
begin
  PostData := TStringList.Create;
  PostData.Add('key=' + AuthKey);
  PostData.Add('action_id=' + ActionId.text);
  PostData.Add('user=' + vkid);
  PostData.Add('city=' + CityId.text);
  PostData.Add('sig=' + IntToStr(random(10)) + IntToStr(random(10)) +
    IntToStr(random(10)) + 'c26db0521' + IntToStr(random(10)) +
    IntToStr(random(10)) + IntToStr(random(10)) + 'a30ee7084f562d0e4');
  PostData.Add('action_type=3');
  PostData.Add('method=doCityAction');
  try
    work := IdHTTP1.POST
      ('http://109.234.156.250/prison/universal.php?doCityAction', PostData);
  finally
    PostData.Free;
  end;
end;

Вот тебе пример кода для посылке запроса на выполнение "движух на зонах", если есть хоть какието знание в делфи то разберёшься! Тут о основном используется компонент Indy HTTP для посылки post запросов

[drui7]

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

[Nice42rus]

procedure TForm1.work;
var
  PostData: TStringList;
  work: String;
begin
  PostData := TStringList.Create;
  PostData.Add('key=' + auth.text);
  PostData.Add('action_id=' + NomerZadanya.text);
  PostData.Add('user=' + userVKid.text);
  PostData.Add('city=1');
  PostData.Add('sig=' + IntToStr(random(10)) + IntToStr(random(10)) +
    IntToStr(random(10)) + 'c26db0521' + IntToStr(random(10)) +
    IntToStr(random(10)) + IntToStr(random(10)) + 'a30ee7084f562d0e4');
  PostData.Add('action_type=3');
  PostData.Add('method=doCityAction');
  try
    work := IdHTTP1.POST
      ('http://109.234.156.250/prison/universal.php?doCityAction', PostData);
  finally
  begin
    PostData.Free;
    if work <> '' then
    begin
      Delete(work, 1, Pos('<energy>', work) + Length('<energy>') - 1);
      work := Copy(work, 0, Pos('</energy>', work) - 1);
      if work = '' then
        work := '0';
      Label1.Caption := work;
    end;
  end;
end;
end;

Вот, c помощью функций Pos, delete и copy.

Дело в том что после post запроса , переменная work содержет в себе ответ от сервера которй содержит в данном случае информацию о том, сколько осталось энергии

[drui7]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, XPMan;

type
TForm1 = class(TForm)
Button1: TButton;
XPManifest1: TXPManifest;
IdHTTP1: TIdHTTP;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
PostData: TStringList;
work: String;
auth,NomerZadanya,userVKid:shortstring;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
PostData := TStringList.Create;
PostData.Add('key=' + auth);
PostData.Add('action_id=' + NomerZadanya);
PostData.Add('user=' + userVKid);
PostData.Add('city=1');
PostData.Add('sig=' + IntToStr(random(10)) + IntToStr(random(10)) +
IntToStr(random(10)) + 'c26db0521' + IntToStr(random(10)) +
IntToStr(random(10)) + IntToStr(random(10)) + 'a30ee7084f562d0e4');
PostData.Add('action_type=3');
PostData.Add('method=doCityAction');
try
work := IdHTTP1.POST
('http://109.234.156.250/prison/universal.php?doCityAction', PostData);
finally
begin
PostData.Free;
if work <> '' then
begin
Delete(work, 1, Pos('<energy>', work) + Length('<energy>') - 1);
work := Copy(work, 0, Pos('</energy>', work) - 1);
if work = '' then
work := '0';
Label1.Caption := work;
end;
end;
end;

end;

end.
[Ссылки могут видеть только зарегистрированные пользователи. ]
вот так получилось...говорит,что дубликат ресурса...хм

[Nice42rus]

Держи исходник, всё работает

[drui7]

спасибо конечно) но я в своём хотел разобраться чтоб потом не ошибаться так

[Nice42rus]

Эта общая ошибка заключается не в коде а в файлах.
Удали из каталога с проектом все файлы *.RES к едрене фене. Пусть перекомпилируются заново. У тебя путаница (повтор) в ресурсах.

[drui7]

спасибо.учту.кстати, у меня почему то не пишет кол-во енергии...в том,который ты скинул...(

[Nice42rus]

Если не работает значит ты ввёл неверные данные!

[drui7]

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