FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Como aun no he podido instalar el SOAP en delphi 5 (Casimiro Notevi y yo no perdemos la esperanza ), he estado buscanco mas informacion sobre el componente de indy TidHTTP y he conseguido realizar "post" y "get" al Web Service que me quería conectar. Os pongo el codigo utilizado para cada uno:
Código:
procedure TForm1.Get(Sender: TObject); begin http.Request.Username:='user'; http.Request.Password:='pass'; showmessage(http.Get('http://apidelproveedor.com')); //esto funciona y devuelve un fichero xml con la informacion que solicito. end; Código:
procedure TForm1.post-subiendofichero(Sender: TObject); var datos: TIdMultiPartFormDataStream; begin http.Request.Username:='user'; http.Request.Password:='pass'; datos:= TIdMultiPartFormDataStream.Create; datos.AddFormField('description','prueba'); datos.AddFormField('comments','comentario sobre el documento'); datos.AddFormField('reference','3'); datos.AddFile('file','C:\firmar1.pdf','application/pdf'); showmessage(http.Post('http://apidelproveedor.com', datos)); datos.free; end; Código:
procedure TForm1.post-sinenviarfichero(Sender: TObject); var aStream: TMemoryStream; Params: TStringStream; begin http.Request.ContentType:='application/x-www-form-urlencoded'; http.Request.Username:='user'; http.Request.Password:='pass'; aStream := TMemoryStream.create; Params := TStringStream.create(''); try Params.WriteString('name=' + 'pepe' + '&'); Params.WriteString('email=' + 'pep@hotmail.com' + '&'); Params.WriteString('id-country=' + 'ES' + '&'); Params.WriteString('id-number=' + '44444444P'); with HTTP do begin try HTTP.Post('http://apidelproveedor.com', Params,aStream); except on E: Exception do showmessage('Error encountered during POST: ' + E.Message); end; end; aStream.WriteBuffer(#0' ', 1); showmessage(PChar(aStream.Memory)); except end; params.free; aStream.free; end; Gracias por sus comentarios, me estan sirviendo de mucho. Saludos.
__________________
El saber no ocupa lugar. |
#2
|
|||
|
|||
Tras revisar mas información, he averiguado que el componente idTHHP posee la accion "DoRequest". He utilizado el siguiente código:
Código:
http.Request.Username:='User'; http.Request.password:='pass'; resultado:= TSTringStream.create(''); http.DoRequest(hmdelete,'direccion del recurso a eliminar',nil,resultado); "DOCTYPE HTML PUBLIC '-//IETF//DTD HTML 2.0//EN" Alguien sabe que tipo de error es este? Hay alguna otra forma de realizar un "delete" a un web service? Saludos.
__________________
El saber no ocupa lugar. |
#3
|
|||
|
|||
No encuentro nada, de como poder realizar un "delete" utilizando Indy.
Nadie puede ayudarme??? Alguna idea???????????
__________________
El saber no ocupa lugar. |
#4
|
||||
|
||||
¿Delete?, pero este hilo no trataba de "cómo me autentifico"
|
#5
|
|||
|
|||
Tienes razon, pero ha evolucionado.
Ya el tema de la autentificacion quedo resuelto, como he comentado más arriba. Ahora el problema ha evolucionado a "delete". Es mas conveniente crear un nuevo hilo?
__________________
El saber no ocupa lugar. |
#6
|
||||
|
||||
Imagina que alguien sabe la respuesta a esa pregunta y lee en el título: "Como me autentifico". ¿Crees que entrará a contestarte sobre el delete?, pues eso
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Socket Error # 10054 con TIdHTTP | rolandoj | Internet | 10 | 19-01-2012 15:45:11 |
Ayuda urgente con Indy TIdHTTP | Pugile | C++ Builder | 1 | 17-03-2011 12:21:04 |
TIDHTTP Con User y Pass | Neeruu | Varios | 0 | 28-12-2009 13:36:49 |
Como pasar de TidHTTP con TWebModule a Web Service con XML ? | rolandoj | Internet | 1 | 20-10-2008 17:45:48 |
TIdHTTP, dlls.... | betto | Internet | 3 | 27-03-2007 21:49:03 |
|