Отправить POST запрос на текущую страницу в webbrowserе

[Krasiosoft]

Сообщение от Человек_Борща

Браузер вообще не имеет методов для отправки POST-запросов.

Если речь идет о компоненте TWebBrowser, то там есть метод для отправки POST запроса:

procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant;
var PostData: OleVariant; var Headers: OleVariant); overload;

[nibufep]

Так кто-нибуть подскажет как исправить код?

[Stilet]

А ты проверяешь на сервере приход?
Или смотришь в сниффере?
На сервер то оно может нормально приходит.

[nibufep]

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

А ты проверяешь на сервере приход?
Или смотришь в сниффере?
На сервер то оно может нормально приходит.

По снифферу смотрю, запроса нет.

[min@y™]

Так кто-нибуть подскажет как исправить код?

Этот код не надо править.
Надо его выкинуть, затем чётко поставить задачу, максимально абстрагируясь от GUI, и написать свой хороший, годный код с нуля.

[Krasiosoft]

Что-то вроде этого должно быть:

var
    strData: string;
    PostData: OleVariant;
    Headers: OleVariant;
    i: Integer;
begin
    strData := 'Param1Name=' + HTTPEncode(Param1Value) + '&' +
        'Param2Name=' + HTTPEncode(Param2Value) + ...;

    PostData := VarArrayCreate([0, Length(strData) - 1], varByte);

    for i := 1 to Length(strData) do
        PostData[i-1] := Ord(strData[i]);

    Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;

    WebBrowser1.Navigate('http://www.programmersforum.ru', EmptyParam, EmptyParam, PostData, Headers);
end;

[Stilet]

По снифферу смотрю, запроса нет.

Дык а на сервере проверял? На сервер приходит то? Сниффер не всегда покажет то что нужно.

Что-то вроде этого должно быть:

Я бы не советовал так работать с юникодом. Должны быть функции, которые формируют строку в OleVariant. Я просто не пойму почему не написать

var
EncodedStr,Header: OleVariant;
begin
EncodedStr := 'text=x';
Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
WebBrowser1.Navigate('http://', EmptyParam,EmptyParam, EncodedStr , Header);
end;

Нет под рукой Делфи, проверить не смогу, но почему так не попробовал? Или пробовал?

[nibufep]

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

Дык а на сервере проверял? На сервер приходит то? Сниффер не всегда покажет то что нужно.

И на сервер не приходит.

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

Я просто не пойму почему не написать

var
EncodedStr,Header: OleVariant;
begin
EncodedStr := 'text=x';
Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
WebBrowser1.Navigate('http://', EmptyParam,EmptyParam, EncodedStr , Header);
end;

Нет под рукой Делфи, проверить не смогу, но почему так не попробовал? Или пробовал?

Так запрос как GET уходит.

[Stilet]

Из хелпа:

PostData contains the data sent to the server when using Navigate to generate an HTTP POST message. If PostData is NULL, Navigate generates an HTTP GET message. PostData is ignored if URL does not specify an HTTP URL.

Так что не может он get делать. или хелп врет.
Вот чувак тоже мучается: http://www.programmersforum.ru/showthread.php?p=712053

[nibufep]

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

Так что не может он get делать. или хелп врет.

Ну сниффер и сервер видет как GET.