Форум: "Сети";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизВопрос о методе POST Найти похожие ветки
← →
SDS (2001-06-10 23:58) [0]Ребята вот код, но он не работает (на сервер все посылается) NMHTTP коретно завершает запрос, но сервер не получает данные,
в возвращаемой странице поля DEBUG INFO не должны быть пустыми,
помогите найти где ошибка очень срочно
Заранее благодарен, SDS.
{Memo1.Items
First_Name=
Middle_Name=
Last_Name=
Tel=
E_Mail=
User_ID=
User_Info=
Code_Cat=
}
{Memo2.Items
Иван
Иванович
Иванов
300000
s@mail.ru
uiyuuyuiiyiyi
098098
R245678
}
procedure TForm1.Button1Click(Sender: TObject);
var
poststr : string;
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;
Memo2.Lines.Clear;
for i := 0 to Memo3.Lines.Count - 1 do begin
st := st + Memo1.Lines[i] + Memo4.Lines[i];
if i <> Memo3.Lines.Count - 1 then
st := st + "&";
Memo2.Lines.Add(St);
end;
St := "";
for i := 0 to Memo2.Lines.Count - 1 do
st := st + Memo2.Lines[i];
Edit1.Text := "http://www.e-shop.ru/actions/userinfo-ed.asp";
NMHTTP1.Post(Edit2.Text, st);
Memo5.Text := NMHTTP1.Header;
Memo6.Text := NMHTTP1.Body;
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c