Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Networks";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Down

Question about the POST method Find similar branches


SDS   (2001-06-10 23:58) [0]

Guys, here’s the code, but it doesn’t work (everything is sent to the server) NMHTTP completely completes the request, but the server does not receive data
in the returned page, the DEBUG INFO fields must not be empty,
help find where the error is very urgent
Thanks in advance, SDS.


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

{Memo2.Items Ivan Ivanovich Ivanov Xnumx s@mail.ru uiyuuyuiiyiyi Xnumx Rxnumx }

procedure TForm1.Button1Click (Sender: TObject);
was
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]

Yes, it cannot work at the top, but I corrected it with the same result
do not pay attention to the abundance of memo, this is a test case, you just need to find out where the error is.
Thanks in advance, SDS.
In general, it is necessary to send the deadline to the server http://www.e-shop.ru/actions/userinfo-ed.asp
First_Name=Ivan&Middle_Name=Ivanovich&Last_Name=Ivanov&Tel=300000&E_Mail=s@mail.ru&User_ID=uiyuuyuiiyiyi&User_Info=098098&Code_Cat=1111111
Help, very urgent


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

{Memo3.Items Ivan Ivanovich Ivanov Xnumx s@mail.ru uiyuuyuiiyiyi Xnumx Rxnumx }



procedure TForm1.Button1Click (Sender: TObject);
was
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]

Hi!
I ran into the same problem, solved it by changing the NMHTTP components to
THttpCli from the ICS library - Internet Component Suite.
If you can make NMHTTP work, write pls like this
you succeeded.



Pages: 1 whole branch

Forum: "Networks";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Top





Memory: 0.55 MB
Time: 0.022 c
3-21917
Termik
2001-12-04 11:43
2002.01.08
Accessing a table by a name recorded in a variable


1-22135
Derzky
2001-12-19 19:51
2002.01.08
How to transfer the launched file to another folder?


14-22339
Chinese How Zo Vut
2001-11-01 10:12
2002.01.08
Programmer, what's your name?


3-21963
szap
2001-12-05 11:53
2002.01.08
Speed


7-22439
PONTIY
2001-09-27 09:18
2002.01.08
Displaying an already created (Create) component on another form





afrikaans albanian Arabic armenian azerbaijani basque belarusian bulgarian catalan Chinese (Simplified) Chinese (Traditional) croatian Czech danish Dutch English estonian filipino finnish French
galician georgian German greek haitian Creole hebrew Hindi hungarian icelandic Indonesian Irish italian Japanese Korean latvian lithuanian macedonian malay maltese norwegian
persian polish portuguese Romanian russian serbian slovak Slovenian Spanish swahili Swedish Thai turkish Ukrainian urdu Vietnamese welsh yiddish bengali bosnian
cebuano Esperanto gujarati hausa hmong igbo javanese kannada Khmer lao latin maori marathi mongolian nepali punjabi somali tamil telugu yoruba
zulu
English French German Italian Portuguese Russian Spanish