[Помогите!] Hex в Post-запросе

[Diamant]

Исходник:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze, StdCtrls;
 
type
    TFNubForm = class(TForm)
    lbl_cookie: TLabel;
    Label1: TLabel;
    btn_go: TButton;
    btn_stop: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    AntiFreeze: TIdAntiFreeze;
    IdHTTP1: TIdHTTP;
    procedure btn_goClick(Sender: TObject);
    procedure btn_stopClick(Sender: TObject);
    private
    Stop: Boolean;
  public
    { Public declarations }
  end;
 
var
  my_post:string;
  PostData:TStringList;
  FNubForm: TFNubForm;
 
implementation
 
{$R *.dfm}
 
procedure TFNubForm.btn_goClick(Sender: TObject);
 
begin
  Stop := false;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
 
  while not Stop do
    begin
    my_post:=chr($09)+chr($01)+chr($0d)+chr($6f)+chr($62)+chr($6a)+chr($65)+chr($63)+chr($74)+chr($06)+chr($0d)+chr($63)+chr($6f)+chr($6d)+chr($6d)+chr($6f)+chr($6e)+chr($09)+chr($66)+chr($6f)+chr($72)+chr($6d)+chr($09)+chr($01)+chr($0f)+chr($61)+chr($72)+chr($65)+chr($61)+chr($5f)+chr($69)+chr($64)+chr($06)+chr($07)+chr($34)+chr($38)+chr($30)+chr($09)+chr($63)+chr($6f)+chr($64)+chr($65)+chr($06)+chr($0f)+chr($43)+chr($4f)+chr($4d)+chr($45)+chr($5f)+chr($49)+chr($4e)+chr($01)+chr($0d)+chr($61)+chr($63)+chr($74)+chr($69)+chr($6f)+chr($6e)+chr($06)+chr($0e)+chr($01);
 
      PostData:= TStringList.Create;
      PostData.Add(my_post);
 
      IdHTTP1.Request.CustomHeaders.Text:='Cookie: vkuid=' +edit1.Text +'; vkkey=' +edit2.Text;
      try
        Memo1.Lines.Text := IdHTTP1.Post('http://socdwar.ru/entry_point.php?code=COME%5FIN&object=common&action=action',PostData);
     except
 
    end;
 
end;
end;
procedure TFNubForm.btn_stopClick(Sender: TObject);
begin
Stop := true;
edit1.Enabled:=true;
edit2.Enabled:=true;
 
 
end;
 
end.

Значит в чем проблема. Мне нужно отправить Post-запрос. В тексте имеются какие то инородные символы, которые просто так не скопировать. Поэтому приходится отправлять hex'ом. Нужный хекс:

00000000  09 01 0d 61 63 74 69 6f 6e 06 00 0d 6f 62 6a 65      action   obje
00000010  63 74 06 0d 63 6f 6d 6d 6f 6e 09 66 6f 72 6d 09   ct  common form 
00000020  01 0f 61 72 65 61 5f 69 64 06 07 34 38 30 09 63     area_id  480 c
00000030  6f 64 65 06 0f 43 4f 4d 45 5f 49 4e 01 01         ode  COME_IN

А от программы идет:

00000000  61 63 74 69 6f 6e 06 00 0d 6f 62 6a 65 63 74 06   action   object 
00000010  0d 63 6f 6d 6d 6f 6e 09 66 6f 72 6d 09 01 0f 61    common form   a
00000020  72 65 61 5f 69 64 06 07 34 38 30 09 63 6f 64 65   rea_id  480 code
00000030  06 0f 43 4f 4d 45 5f 49 4e                          COME_IN

Тоесть каким то образом обризаются первых три числа (09 01 0d) и последних два (01 01). Помогите решить проблему.

[Рэйзор]

Ну у тебя же есть HEX, отправь посторонние символы в виде #XY

[TeedI]

Я конечно не разбираюсь в Делвях но,лично я бы сделал так :
Данную строку конвертируем в byte.

action   object  common form area_id  480 code  COME_IN

и уже ее отсылаем.
Попробуйте если пробовали

[Diamant]

Так я и добавляю в запрос хекс

my_post:=chr($09)+chr($01)+chr($0d)+chr($6f)+chr($62)+chr($6a)+chr($65)+chr($63)+chr($74)+chr($06)+chr($0d)+chr($63)+chr($6f)+chr($6d)+chr($6d)+chr($6f)+chr($6e)+chr($09)+chr($66)+chr($6f)+chr($72)+chr($6d)+chr($09)+chr($01)+chr($0f)+chr($61)+chr($72)+chr($65)+chr($61)+chr($5f)+chr($69)+chr($64)+chr($06)+chr($07)+chr($34)+chr($38)+chr($30)+chr($09)+chr($63)+chr($6f)+chr($64)+chr($65)+chr($06)+chr($0f)+chr($43)+chr($4f)+chr($4d)+chr($45)+chr($5f)+chr($49)+chr($4e)+chr($01)+chr($0d)+chr($61)+chr($63)+chr($74)+chr($69)+chr($6f)+chr($6e)+chr($06)+chr($0e)+chr($01);

Только когда смотрю трафик с бота, то первых трех и последних двух чисел нет.

[Rawwwwr]

Цитата: Сообщение от Diamant action object

[Diamant]

Ап!