Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;



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;



Shura   (2001-10-05 11:10) [2]

Привет!
я столкнулся с этой же проблемой, решил ее сменой компоненты NMHTTP на
THttpCli из библиотеки ICS - Internet Component Suite.
Если сможете заставить работать NMHTTP, напишите pls как это у
вас получилось.




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх






Память: 0.75 MB
Время: 0.021 c
4-22510           Илья                  2001-10-14 18:06  2002.01.08  
Изменение свойств принтера


1-22052           avr555                2001-12-17 19:54  2002.01.08  
Перетаскиваемый компонент


1-22265           Ser_Kham1             2001-12-17 16:10  2002.01.08  
ListBox


1-22099           Юляшка                2001-12-19 17:43  2002.01.08  
Вопрос про DBGrid!!


1-22082           Chak                  2001-12-19 10:07  2002.01.08  
Как правильно передать параметр функции в DLL-ке.