Клиент idHTTP, отправка GET запроса серверу.

[Prostaf]

Здравствуйте, уважаемые. Прошу помочь. Написал сервер на idhttpserver, функции сервера прием get запроса. Теперь требуется написать клиент на idhttp, чтобы клиент посылал тот самый get запрос серверу(пока что по локальной сети). Запрос идет на http://<URL>:8443/payment_app.cgi?command=check&txn_i d=1234567&account=101&sum=10.45.

command, txn_id, account и sum определенные параметры, которые должен проверять сервер и выдавать ответ в .xml файле типа

<?xml version="1.0" encoding="UTF-8"?>
<response>
<osmp_txn_id>1234567</osmp_txn_id>
<result>0</result>
<comment></comment>
<pay_id>XXXX</pay_id>
</response>

Сервер уже умеет парсить .xml ответ, который заготовлен и лежит на диске.

Сам код сервера

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComObj, MSXML, xmldom, XMLIntf, msxmldom, XMLDoc, ActiveX;

type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    bnStop: TButton;
    bnStart: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    edMessage: TMemo;
    edLog: TMemo;
    XMLDocument1: TXMLDocument;
    Button1: TButton;
    procedure bnStartClick(Sender: TObject);
    procedure bnStopClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    procedure SetBtnsState;
    procedure ShowError (const s: string; const args: array of const);
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

uses
uServer;

resourcestring
  SERROR_START = 'Error occured while starting server.'#$D#$A'\s';
  SERROR_STOP = 'Error occured while stopping server.'#$D#$A'\s';

procedure TfrmMain.bnStartClick(Sender: TObject);
begin
try
 dmServer.Server.Active := True;
 edMessage.Lines.Add('Ожидание клиента ' + DateTimeToStr(now));
 edLog.Lines.Add('Сервер успешно запущен ' + DateTimeToStr(now));
except
  on E: Exception do
      ShowError (SERROR_START, [E.Message]);
end;
  SetBtnsState;
end;

procedure TfrmMain.bnStopClick(Sender: TObject);
begin
  try
   dmServer.Server.Active := False;
   edMessage.Lines.Add('Клиенты не принимаются  ' + DateTimeToStr(now));
   edLog.Lines.Add('Работа сервера приостановлена ' + DateTimeToStr(now));
  except
    on E: Exception do
    ShowError (SERROR_STOP, [E.Message]);
  end;
  SetBtnsState;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var
  xml: TXMLDocument;
  i: Integer;
  txn_id, pay_id, result,comment: string;
  node:IXMLNode;
begin
  CoInitialize(Nil);
try
  xml := TXMLDocument.Create(frmMain);
  xml.LoadFromFile('D:\otvet.xml');
  xml.Active := True;
  for i := 0 to XML.DocumentElement.ChildNodes.Count - 1 do
begin
   node:= xml.DocumentElement.ChildNodes.Get(i);
    //xml.DocumentElement.ChildNodes.g
   // pay_id := xml.DocumentElement.ChildNodes[i].ChildNodes['pay_id'].Text;
    //edLog.Lines.Add(node.NodeName+' '+node.Text);
   edMessage.Lines.Add(node.Text);
   //edLog.Lines.Add(txn_id);

end;
  xml.Active := False;
  xml := Nil;
finally
  CoUninitialize;
end;

end;

procedure TfrmMain.SetBtnsState;
begin
bnStart.Enabled := NOT dmServer.Server.Active;
bnStop.Enabled := NOT bnStart.Enabled;
  end;
procedure TfrmMain.ShowError(const s: string; const args: array of const);
begin
  MessageDlg(Format(s, args), mtError, [mbOK], 0);
end;
  end.

unit uServer;

interface

uses
  SysUtils, Classes, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdCustomHTTPServer, IdHTTPServer, IdContext, uMain, Dialogs;

type
  TdmServer = class(TDataModule)
    Server: TIdHTTPServer;
    procedure ServerCommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmServer: TdmServer;

implementation

{$R *.dfm}

uses
  uClientContext;

procedure TdmServer.DataModuleCreate(Sender: TObject);
begin
  //Server.ContextClass := TClientContext;
end;

procedure TdmServer.ServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
//var
//  LClientContext: TClientContext;
begin
//  LClientContext := TClientContext (AContext);
//  LClientContext.HelloMessage :=  frmMain.edMessage.Text;
//  LClientContext.LogStrings := frmMain.edLog.Lines;
//  LClientContext.HandleRequest(ARequestInfo, AResponseInfo);
  //(AContext.Connection.Socket.ReadLn);
  AContext.Connection.Socket.ReadLn;
  AContext.Connection.Socket.WriteLn(frmMain.edMessage.Text+#13#10);
  AContext.Connection.Disconnect;
end;

end.

[Stilet]

Так а в чем проблема?

var s:string
...
s:=IdHTTP.Get('http://<URL>:8443/payment_app.cgi?command=check&txn_i d=1234567&account=101&sum=10.45. ');

[Prostaf]

Сообщение от Stilet

Так а в чем проблема?

Как прочитать параметры сервером, которые отображаются в запросе?

[Stilet]

ARequestInfo.Params['account'] даст 101
Ну и так далее.