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

[nibufep]

Доброго времени суток!
Как можно на текущую открытую страницу отправить POST запрос?

[min@y™]

post не странице посылается, а серверу.
чо за франкенштейна рожаешь?

[nibufep]

Сообщение от min@y™

post не странице посылается, а серверу.
чо за франкенштейна рожаешь?

Ну да, как послать запрос серверу и отобразить страницу?

[min@y™]

Ну да, как послать запрос серверу и отобразить страницу?

на мой вопрос ответь сначала.

чо за франкенштейна рожаешь?

[nibufep]

нужно отправить сообщение на страницу. Нашел вот процедуру:

procedure SubmitPostForm;
var
strPostData: string;
Data: Pointer;
URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
strPostData := 'text=15454';
PostData := VarArrayCreate([0, Length(strPostData) - 1], varByte);
Data := VarArrayLock(PostData);
try Move(strPostData[1], Data^, Length(strPostData));finally VarArrayUnlock(PostData);end;
URL := 'http://site.ru/';
Flags := EmptyParam;
TargetFrameName := EmptyParam;
Headers := EmptyParam;
Form1.WebBrowser1.Navigate(URL, Flags, TargetFrameName, PostData, Headers);
end;

Почему криво отправляет?

[min@y™]

Нашел вот процедуру

не читал.

Почему криво отправляет?

тебе не кажется, что это вопрос автору говнокода?

[Человек_Борща]

нужно отправить сообщение на страницу. Нашел вот процедуру:

Потому что у unicode строк длинна одного символа - 2 байта.

[nibufep]

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

Потому что у unicode строк длинна одного символа - 2 байта.

а как тогда сделать?

[Человек_Борща]

а как тогда сделать?

move, length и умножение на два.

[nibufep]

procedure TForm.Button1Click(Sender: TObject);
var
i: Integer;
EncodedStr: string;
Header: OleVariant;
Post: OleVariant;
begin
EncodedStr := 'text=x';
Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
for I := 1 to Length(EncodedStr) do
Post[I - 1] := Ord(EncodedStr[I]);
Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
WebBrowser1.Navigate('http://site', EmptyParam,EmptyParam, Post, Header);
end;

Почему с английским текстом все работает нормально, но если в запросе есть русский текст то ошибка:

overflow while converting variant of type word into type byte