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.042 c
14-22370
Zergg
2001-11-08 16:30
2002.01.08
About static DLL loading from CBuilder


4-22467
Shadow
2001-11-01 15:46
2002.01.08
TOPMOSTS


6-22275
Moscower
2001-10-08 12:43
2002.01.08
How can I send a chmod command to a Linux server via TNMFTP?


1-22251
Dreamer
2001-12-17 14:17
2002.01.08
Prompt nachset TLIST


1-22259
Rats
2001-12-12 17:55
2002.01.08
Curve finish (2 double)





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 ภาษาไทย turkish Ukrainian urdu Tiếng Việt 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