Проблема пост запросов

Mad_Sanek · #1 19.07.2011, 11:49

есть код (кину целиком):

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls, ComCtrls, IdAntiFreezeBase, IdAntiFreeze, ShellAPI,
  sSkinManager, sPageControl, acProgressBar, sCalculator, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    Button3: TButton;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Button4: TButton;
    Label6: TLabel;
    Edit6: TEdit;
    Button5: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Button6: TButton;
    Button7: TButton;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    IdAntiFreeze1: TIdAntiFreeze;
    sSkinManager1: TsSkinManager;
    sPageControl1: TsPageControl;
    sTabSheet1: TsTabSheet;
    sTabSheet2: TsTabSheet;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button10Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=93');
    list.Add('amount=' + Edit11.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button11Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=64');
    list.Add('amount=' + Edit12.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button12Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=65');
    list.Add('amount=' + Edit13.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button13Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=66');
    list.Add('amount=' + Edit14.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button14Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=67');
    list.Add('amount=' + Edit15.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button15Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=68');
    list.Add('amount=' + Edit16.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button16Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=69');
    list.Add('amount=' + Edit17.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button17Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=70');
    list.Add('amount=' + Edit18.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button18Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
  try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=71');
    list.Add('amount=' + Edit19.Text);
    list.Add('x=63');
    list.Add('y=13');
    s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
  except
  end;
  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TStringList;
  html, s1, s2, s3, s4: string;
  list: TStringList;
begin
  list := TStringList.Create();
  try
    list.Add('loginForm_default_username=' + Edit1.Text);
    list.Add('loginForm_default_password=' + Edit2.Text);
    s1 := IdHTTP1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0', list);
    s2 := Copy(s1, Pos('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/GameAPI.php?req=', s1), length(s1));
    Delete(s2, Pos('&ref_pid', s2) - 14, length(s2));
    s3 := IdHTTP1.Get(s2);
  except

  end;
  if Pos('dosid', s3) <> 0 then
    Label4.Caption := 'Зашли'
  else
    Label4.Caption := 'НЕ зашли';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  If Edit2.PasswordChar = #0 then
    Edit2.PasswordChar := '*'
  else
    Edit2.PasswordChar := #0;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  list: TStringList;
  s1, s2, s3: string;
begin
  list := TStringList.Create();
    try
    list.Add('action=internalHandel');
    list.Add('subAction=bid');
    list.Add('bazarID=93');
    list.Add('amount=' + Edit4.Text);
    list.Add('x=63');
    list.Add('y=13');
         s1 := IdHTTP1.post('http://' + Edit3.Text +
      '.darkorbit.bigpoint.com/indexInternal.es', list);
      except
    end;

  if Pos('infoPopup', s1) <> 0 then
    ShowMessage('Ставка сделана')
  else
    ShowMessage('Ошибка');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  sPageControl1.Pages[1].TabVisible := true;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
form2.show;
end;

end.

Mad_Sanek · #2 19.07.2011, 11:50

Синтаксических ошибок дельфи не выдает (Delphi XE стоит)
Авторизация проходит успешно.
Есть вторая вкладка с кнопками для отсылания POST запросов.
Есть конкретный сайт, на нем есть сервер, который прописывается в Edit'е
в List записываются все параметры, которые нужно отослать серверу
Дело в том что при проверке (она составлено правильно, вроде) выдает ошибку (пост запрос или не принят сервером или не отсылался, скорее первое). И при ручной проверке (истории) также нет записи. (в этом случае даркорбит, делается ставка на торгах)
Почему пишет ошибку? Общался с 2мя друзьями, у них кусок кода с непосредственной отслыкой пакета работает замечательно.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	RSS лента	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Новости сайта Новости форума	Ссылки и Баннеры Donate О сайте Реклама Контакты