Допустим есть адрес до скрипта и есть некая сторока
(Такая например: login=Zlo&pass=564321&x=0&y=0)
которую нужно передать скрипту методом пост.

Нашел вот этот код:

Код

var    LoginDialog: TLoginDialog;    Flags, TargetFrameName, PostData, Headers: OleVariant;    S: String;  ...  with TLoginDialog.Create(Application) do   try    if ShowModal = mrOk then     begin      S := Format('UserName=%s&Password=%s', [Edit1.Text, Edit2.Text]);      PostData := VarArrayCreate([1, Length(S) + 1], varByte);      System.Move(S[1], VarArrayLock(PostData)^, Length(S) + 1);      VarArrayUnlock(PostData);      Headers :=         'Content-Type: application/x-www-form-urlencoded'#10#13;      WebBrowser1.Navigate('http://intranetserver/secretpage', Flags,        TargetFrameName, PostData, Headers);    end;  finally    Free;  end;

Но немогу понять как его переделать под свои "нужды"!

Может ктонить объяснит?
Или напишет как это сделать проще?

Так кажется всетаки разобрался! Сделал так:

Код

procedure TForm1.Button3Click(Sender: TObject); var    Flags, TargetFrameName, PostData, Headers: OleVariant;    S: String; begin S:='login='+Edit2.Text+'&pass='+Edit3.Text+'&x=0&y=0'; //-------- PostData := VarArrayCreate([1, Length(S) + 1], varByte);     System.Move(S[1], VarArrayLock(PostData)^, Length(S) + 1);      VarArrayUnlock(PostData);      Headers :=         'Content-Type: application/x-www-form-urlencoded'#10#13; //-------- WebBrowser1.Navigate('http://www.domen.ru/login.php', Flags, TargetFrameName, PostData, Headers); end;

Но всеравно что-то не так....
Можете как аналагичным образом послать пост запрос блинной более 255 символов?
И расскажите плиз что делает код находящийся между комментариями?

Лучше юзай TIdHTTP... Или тебе нужно именно через браузер ?

Именно через браузер!

Это сообщение отредактировал(а) Zlo - 28.8.2005, 21:37

во-первых: что именно "не так"?
во-вторых: по коду:
PostData := VarArrayCreate([1, Length(S) + 1], varByte); -- создаеш вариантный массив для данных формы
System.Move(S[1], VarArrayLock(PostData)^, Length(S) + 1); -- толкаеш в этот массив ( с блокировкой ( без нее писать нельзя ) ) свою строку
VarArrayUnlock(PostData); -- снимаеш блокировку
Headers := 'Content-Type: application/x-www-form-urlencoded'#10#13; -- заголовок, говорящий о том, что скрипту придет форма ( в зависимости от заголовка данные разбираются разными способами )

_hunter
Спасибо!

Цитата(_hunter @ 29.8.2005, 11:37)

System.Move(S[1], VarArrayLock(PostData)^, Length(S) + 1); -- толкаеш в этот массив ( с блокировкой ( без нее писать нельзя ) ) свою строку

а зачем к строке S прибовлять 1?

Цитата(Zlo @ 28.8.2005, 20:29)

Можете помочь каким образом послать пост запрос длинной более 255 символов используя TWebBrowser?

Цитата

там не к строке прибавляется а длина считается ( с учетом завершающего символа )

Цитата

Можете помочь каким образом послать пост запрос длинной более 255 символов используя TWebBrowser?

так и слать...

_hunter

Цитата(_hunter @ 5.9.2005, 11:25)

так и слать...

А Дельфа ругается что типа строка больше 255 символов в переменной S!

Ну так Меню:
Project -> Options -> Compiler
Поставь галочку Huge Strings.