Изменить пост запрос TWebBrowser

[J-Max]

Мне надо перехватить параметр message и заменить его значение на свое. Как это сделать?
например передается в PostData message=привет
Надо заменить на message=сообщение1
В WebBrowser1BeforeNavigate2 вроде можно это делать, но там PostData в виде каракуль. можно как-то её перекодировать в нормальный вид, отпарсить нажную мне строку, заменить, снова перевести в те каракули и продолжить отправку?

[Diogo76]

Сообщение от J-Max

Мне надо перехватить параметр message и заменить его значение на свое. Как это сделать?
например передается в PostData message=привет
Надо заменить на message=сообщение1
В WebBrowser1BeforeNavigate2 вроде можно это делать, но там PostData в виде каракуль. можно как-то её перекодировать в нормальный вид, отпарсить нажную мне строку, заменить, снова перевести в те каракули и продолжить отправку?

function Str2Variant(S: string): OleVariant;
var
  Data:Pointer;
begin
  Result:=VarArrayCreate([0,Length(S)],varByte);
  Data:=VarArrayLock(Result);
  try
    Move(S[1],Data^,Length(S));
  finally
    VarArrayUnlock(Result);
  end;
  Result[Length(S)]:=0;
end;

procedure TfrmMain.Weber1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  Post: WideString;
  S : String;
begin
  if нужно_изменять_данные then
  begin
    Post:=Postdata;
    SetString(S, PChar( PWideChar( Post ) ), Length( Post )*2 );
    // тут делаете свои операции со строкой S в которой содержится информация пост-запроса
    ......

    // Присваиваем обратно новые данные
    PostData := Str2Variant(S);
    OleVariant(pDisp).Navigate2 (URL, Flags, TargetFrameName, PostData, Headers);
    Cancel:=True;
    exit;
  end;
end;