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

[Krasiosoft]

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

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

Можете показать код, который нормально отправлял POST? Тот, в котором только латинские буквы были.

[nibufep]

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

Можете показать код, который нормально отправлял POST? Тот, в котором только латинские буквы были.

Вот:

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;

[Stilet]

Как вариант: Поменяй String на AnsiString.

P.S. Все равно что-то ты не то делаешь. Ерунда какая-то...

[Krasiosoft]

Сообщение от 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;

EncodedStr := 'text=x';

Допустим, нам нужно вместо x передать слово "Привет". Тогда вид будет такой:

EncodedStr := 'text='+HTTPEncode('Привет');

[nibufep]

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

EncodedStr := 'text=x';

Допустим, нам нужно вместо x передать слово "Привет". Тогда вид будет такой:

EncodedStr := 'text='+HTTPEncode('Привет');

overflow while converting variant of type word into type byte

[Krasiosoft]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  EncodedStr: string;
  Header: OleVariant;
  Post: OleVariant;
begin
  EncodedStr := 'text='+HTTPEncode('Привет');
  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;

У меня все отлично компилирует. Но у меня старенький Delphi 7.

[Krasiosoft]

Посмотрите, что у Вас возвращает функция HTTPEncode. У меня это string, т.е. не unicode.

[nibufep]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  EncodedStr: string;
  Header: OleVariant;
  Post: OleVariant;
begin
  EncodedStr := 'text='+HTTPEncode('Привет');
  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;

У меня все отлично компилирует. Но у меня старенький Delphi 7.

А вот стало отправлять, просто случайно вставил не в тот пример. Спасибо! Только вот проблема появилась, возможно кто-то знает, в mysql "Привет!" записывается как: Привет! а при выводе на страницу уже отображается нормально "Привет!" (но только если кодировка файла UTF-8 если ANSI то крякозябры тоже). С чем это может быть связано?

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

Ещё раз повторюсь, unicode-символ занимает 2 байта. На Delphi 7 проблем не будет, т.к. string там AnsiString, а на версии > 2007, string уже UnicodeString. Проблема при создании массива и при помещении строки в массив с использованием move (что быстрее, чем цикл по символам).
Можно ещё HTTP-кодировать (как русские ссылки кодируются, так и тут), тогда тоже проблему решит.

в mysql "Привет!" записывается как: Привет!

Кодировка в базе не правильно выставлена. Но думаю это не так важно, если из базы выводит нормально.

[Krasiosoft]

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

записывается как: Привет!

Это UTF-8, который мы захотели прочесть как ANSI. Т.е. в базу он сохраняет в UTF-8, а средство, которое отображает информацию с базы, думает, что там ANSI.