Форум: "Сети";
Поиск по всему сайту: 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.72 MB
Время: 0.026 c
1-22022           victor                2001-12-18 08:05  2002.01.08  
Нужен Label для отображения формул


4-22479           VitaS                 2001-11-02 21:08  2002.01.08  
Помогите свернуть мою программку в system tray


3-21901           victor                2001-12-06 09:46  2002.01.08  
проблема с удалением записей


3-21910           Wladimir              2001-12-04 08:01  2002.01.08  
Количество записей в таблице?


14-22410          fint                  2001-11-08 15:10  2002.01.08  
Попробуйте