Вопрос о методе POST

← →
SDS (2001-06-11 10:06) [1]

Да то что вверху работать не может, но вот подправил и с тем же результатом
не обращайте внимания на обилие memo, это тестовый пример, просто надо узнать где ошибка.
Заранее благодарен, SDS.
А вообще надо на сервер http://www.e-shop.ru/actions/userinfo-ed.asp послать сроку
First_Name=Иван&Middle_Name=Иванович&Last_Name=Иванов&Tel=300000&E_Mail=s@mail.ru&User_ID=uiyuuyuiiyiyi&User_Info=098098&Code_Cat=1111111
Помогите, очень срочно

{Memo1.Items
First_Name=
Middle_Name=
Last_Name=
Tel=
E_Mail=
User_ID=
User_Info=
Code_Cat=
}

{Memo3.Items
Иван
Иванович
Иванов
300000
s@mail.ru
uiyuuyuiiyiyi
098098
R245678
}

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
st : string;

begin
Memo4.Lines.Clear;
for i := 0 to Memo3.Lines.Count - 1 do begin
NMURL1.InputString := Memo3.Lines[i];
Memo4.Lines.Add(NMURL1.Encode);
end;

for i := 0 to Memo3.Lines.Count - 1 do
st := st + Memo1.Lines[i] + Memo4.Lines[i] + "&";
delete(st, length(st), 1);

Edit1.Text := st;
Edit2.Text := "http://www.e-shop.ru/actions/userinfo-ed.asp";

NMHTTP1.Post(Edit2.Text, st);

Memo5.Text := NMHTTP1.Header;
Memo6.Text := NMHTTP1.Body;
end;

Вопрос о методе POST Найти похожие ветки