Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-04-2006
davidvamo davidvamo is offline
Registrado
 
Registrado: feb 2006
Posts: 7
Poder: 0
davidvamo Va por buen camino
Thumbs down Delphi: nome funciona el post con TServerXMLHTTP40

Buenas compañer@s :

llevo como unos dos meses intentando que me funcione el componente : "TServerXMLHTTP40" y el envío de datos por POST.

Mi programa hace lo siguiente: tengo que enviar por "post" (obligatorio) un archivo XML y el parámetro de envío es xmlQuestion.

Tengo que enviar por post porque tiene capada la url (get) a 2k de tamaño.

Por cierto uso W2000PRO SP4 + DELPHI 7 + MSXML PARSER 4 - creo que voy completo de "parches" -

Os paso función para ver si sabéis donde me equivoco:

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var
   ServerXMLHTTP: TServerXMLHTTP40;
   url, usr, pwd: String;
begin
   url := 'https://xxxxx/yyy.asp'';
   usr := 'usuario';
   pwd := 'password';
 
   ServerXMLHTTP:=TServerXMLHTTP40.Create(NIL);

  ServerXMLHTTP.open('POST',url,false,usr,pwd);
//  ServerXMLHTTP.setRequestHeader('Content-Type','text/xml');
  ServerXMLHTTP.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
  // memo1 contiene el archivo xml
  // reemplazo saltos de linia por '' para tener texto todo seguido
  Memo1.Text:=StringReplace(Memo1.Text,CHR(13)+CHAR(10),'',[rfReplaceAll]);
  ServerXMLHTTP.send('xmlQuestion=' + Memo1.text);

  // memo2 muestro resultado devuelto y me devuelve error interno de la compañia que envío el post
  memo2.Text := ServerXMLHTTP.responseText;
  ServerXMLHTTP.Free;
end;

Muchas gracias por todo
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
sin delphi instalado no funciona mi programa Pascual Montes Varios 9 07-01-2007 21:46:53
mandar variables "post" desde delphi luisgutierrezb HTML, Javascript y otros 3 01-12-2005 20:21:41
¿Como funciona delphi con word? lazarous Varios 2 28-11-2005 16:55:36
IBDatase Insert Post Edit Post ariefez Firebird e Interbase 4 12-10-2005 02:53:04
No funciona GROUP BY en una SQL (ADO de delphi) hacia un AS400 Javier_A Conexión con bases de datos 2 04-06-2004 14:21:28


La franja horaria es GMT +2. Ahora son las 17:40:08.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi