Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Redes";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Pregunta sobre el método POST Encontrar ramas similares


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

Los tipos son el código, pero no funciona (todo se envía al servidor). NMHTTP corta la solicitud, pero el servidor no recibe datos.
en la página devuelta, los campos DEBUG INFO no deben estar vacíos,
Ayuda a encontrar donde el error es muy urgente.
Gracias de antemano, SDS.


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

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

procedimiento TForm1.Button1Click (Sender: TObject);
var
poststr: string;
i: entero;
st: cadena;

comenzar
Memo4.Lines.Clear;
para i: = 0 a Memo3.Lines.Count - comienza 1
NMURL1.InputString: = Memo3.Lines [i];
Memo4.Lines.Add (NMURL1.Encode);
fin;

Memo2.Lines.Clear;
para i: = 0 a Memo3.Lines.Count - comienza 1
st: = st + Memo1.Lines [i] + Memo4.Lines [i];

si i <> Memo3.Lines.Count - 1 entonces
st: = st + "&";
Memo2.Lines.Add (St);
fin;


St: = "";
para i: = 0 a 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;
fin;



SDS   (2001-06-11 10:06) [1]

Sí, el hecho de que la parte superior no puede funcionar, pero ahora se corrige con el mismo resultado.
No preste atención a la abundancia de notas, este es un ejemplo de prueba, solo necesita saber dónde está el error.
Gracias de antemano, SDS.
En general, es necesario enviar una fecha al servidor 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=uiyuuyuiiyiyiyiyiyUser_Info=098098&Code_Cat=1111111
Ayuda, muy urgente.


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

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



procedimiento TForm1.Button1Click (Sender: TObject);
var
i: entero;
st: cadena;

comenzar
Memo4.Lines.Clear;
para i: = 0 a Memo3.Lines.Count - comienza 1
NMURL1.InputString: = Memo3.Lines [i];
Memo4.Lines.Add (NMURL1.Encode);
fin;


para i: = 0 a Memo3.Lines.Count - 1 do
st: = st + Memo1.Lines [i] + Memo4.Lines [i] + "&";
eliminar (st, longitud (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;
fin;



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

Hi!
Me encontré con el mismo problema, decidí reemplazarlo con el componente NMHTTP en
THttpCli de la biblioteca ICS - Internet Component Suite.
Si puedes hacer funcionar el NMHTTP, escribe pls como este
tienes



Páginas: 1 rama entera

Foro: "Redes";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.55 MB
Tiempo: 0.021 c
1-22244
Socol
2001-12-15 15:42
2002.01.08
Descargar archivo!


3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi


6-22304
sedoy
2001-10-11 14:09
2002.01.08
Servidor cliente en Internet a través de un proxy.


7-22427
KLM
2001-09-20 06:34
2002.01.08
Protección de copia


6-22282
Maamed
2001-10-08 10:08
2002.01.08
AYUDA AYUDA !!! antes de 01 / 11 ¿Cómo escribir un programa para trabajar en Pocket CE?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español