Отправить пост и получить ответ

[brownb]

Подскажите как отправить Пост запрос и получить содержимое страницы допустим в мемо(html код).Как отправить пост я знаю а вот как получить ответ нет.Буду очень признателен!

[come-on]

Как отправить пост я знаю а вот как получить ответ нет.

смешно

[brownb]

procedure TForm1.Button1Click(Sender: TObject);
var
  EncodedDataString: string;
  PostData: OleVariant;
  Headers: OleVariant;
  i: integer;
begin { TForm1.Button1Click }
  // First, create a URL encoded string of the data
  EncodedDataString := 'dologin=Submit&txtLogin=asdasd&txtPassword=1234567';

  // The PostData OleVariant needs to be an array of bytes
  // as large as the string (minus the 0 terminator)
  PostData := VarArrayCreate([0, length(EncodedDataString)-1], varByte);

  // Now, move the Ordinal value of the character into the PostData array
  for i := 1 to length(EncodedDataString) do
    PostData[i-1] := ord(EncodedDataString[i]);

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

  // Parameters 2 and 3 are not used, thus EmptyParam is passed.
  WebBrowser1.Navigate('www.site.com/login.php',
                       EmptyParam, EmptyParam, PostData, Headers);
end;

Вот так отправляю пост запросы.наверное криво(( ну все же ).Теперь такая проблема
допустим есть три значения а1,а2,а3
Есть пост запросologin=Submit&txtLogin=asda sd&txtPassword=1234567

Как добавить после каждого параметра значение(по очереди) и отправить пост.Допустим
dologin=Submita1&txtLogin=asdasd&txtPassword=123456 7
пост
dologin=Submitа2&txtLogin=asdasd&txtPassword=123456 7
пост
dologin=Submitа3&txtLogin=asdasd&txtPassword=123456 7
пост
dologin=Submit&txtLogin=asdasdа1&txtPassword=1234567
пост
dologin=Submit&txtLogin=asdasdа2&txtPassword=1234567
.....

[brownb]

И еще вопрос,как разбить строку в меме на параметры через разделитель то есть
777|888 - строка в мемо
777 - первый параметр
888 второй параметр
edit1.text=param1
edit2.text=param2

[mitiay]

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

И еще вопрос,как разбить строку в меме на параметры через разделитель то есть
777|888 - строка в мемо
777 - первый параметр
888 второй параметр
edit1.text=param1
edit2.text=param2

toje interesno

[Serge_Bliznykov]

И еще вопрос,как разбить строку в меме на параметры через разделитель то есть
777|888 - строка в мемо
777 - первый параметр
888 второй параметр
edit1.text=param1
edit2.text=param2

например, через простейший парсинг:

s := Memo1.Strings[i];
if Pos('|', s)>0 then begin
  edit1.text=copy(s,1, Pos('|', s)-1);
  edit2.text=copy(s,Pos('|', s)+1, Length(s));
end
else  begin
  edit1.text=s;
  edit2.text='';
end;

[brownb]

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

например, через простейший парсинг:

s := Memo1.Strings[i];
if Pos('|', s)>0 then begin
  edit1.text=copy(s,1, Pos('|', s)-1);
  edit2.text=copy(s,Pos('|', s)+1, Length(s));
end
else  begin
  edit1.text=s;
  edit2.text='';
end;

 var
s:string;
i:integer;
begin
s := Memo3.lines.Strings[i];
if Pos('|', s)>0 then begin
  edit1.text:=copy(s,1, Pos('|', s)-1);
  edit2.text:=copy(s,Pos('|', s)+1, Length(s));
end
else  begin
  edit1.text:=s;
  edit2.text:='';
end;

пробую так,пустота в едитах

[Serge_Bliznykov]

пробую так,пустота в едитах

так и должно быть.
Вы же забыли указать номер строки i (i - это индекс (номер) строки в Memo, которая Вам нужна)

например, если Вам нужна первая строка в мемо, тогда так:

 s:= Memo3.lines.Strings[0];

[brownb]

Спасибо!Помогите с третьим постом

[Serge_Bliznykov]

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

Спасибо!Помогите с третьим постом

я ни разу в жизни не использовал TWebBrowser...
поэтому, возможно, ляпну ерунду..

я бы попробовал так.

После отправки запроса, просто получил содержимое документа.

попробуйте код отсюда:
How can I get HTML source code from TWebBrowser


p.s. и учтите, что взламывать сайты перебором долго и бесперспективно.
Да и незаконно!