Метод Post в Webbrowser в Vbscript

Тема в разделе "Delphi - СОМ", создана пользователем programmister, 4 окт 2005.

Статус темы:
Закрыта.
  1. programmister

    programmister Гость

    Всем привет!!!

    Подскажите, пожалуйста!
    В некоторой кастомизируемой системке (SalesLogix), создаю на форме объект Microsoft WebBrowser. На нем нужно выести результат URL и часть данных передать методом POST.
    В нем есть иетод Navigate, в котором присутствует параметр PostData. В Delphi проверял - все работает, а вот в этом VBS - никак!!!
    Вот пример:

    procedure TForm1.Button1Click(Sender: TObject);
    var
    i: Integer;
    EncodedStr: string;
    Header: OleVariant;
    Post: OleVariant;
    begin
    EncodedStr := 'family=Фамилия&name=Имя&sname=Отчество&seria=8000&num=123456&region=2';
    Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
    for I := 1 to Length(EncodedStr) do
    Post[I - 1] := Ord(EncodedStr);
    Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
    WebBrowser1.Navigate('http://results.rustest.ru/ivcct/', EmptyParam, EmptyParam, Post, Header);
    end;

    Как это в VBScript написать?

    Спасибо!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей