FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Subir archivo a internet con componente IdHTTP1
hola a todos necesitaria saber como hacer para subir un archivoa internet con el componente IdHTTP1.
para conectarme hice lo siguiente Código:
IdHTTP1.Host :='Host'; IdHTTP1.Port := 21; IdHTTP1.ReadTimeout := 5000; IdHTTP1.Request.Username := 'Nombre usuario'; IdHTTP1.Request.Password := 'contraseña'; try IdHTTP1.Connect; except ShowMessage('No se conecto'); end; |
#2
|
|||
|
|||
para subir ficheros necesitas mejor el idFTP no el IdHTTP,
Aqui tienes un ejemplo, pon en el form un idFTP, dos botones y un OpenDialog1. Yo lo he probado y funciona, estaría mejor con una barra de progreso y hacer comprobaciones y demás, pero funcionar funciona.
Última edición por cocute fecha: 21-01-2010 a las 23:12:48. |
#3
|
|||
|
|||
aqui te subo un ejemplo con barra de progreso e info de conexión:
http://www.terawiki.clubdelphi.com/a...HostPorFTP.zip |
#4
|
|||
|
|||
error 'Illegal PORT command'
hola muchas gracias por tu pronta respuesta. Hago todo como me decis, se conecta bien, pero cuando llega a linea de subir el archivo me da este error 'Illegal PORT command'. y no tengo idea de que puede ser... desde ya muchas gracias.
|
#5
|
|||
|
|||
Solucionado
al componente idftp1 en su propiedad Passive ponerla a TRUE. Gracias
|
#6
|
|||
|
|||
hola, ya he logrado subir todos mis archivos a internet son como 30... recorri mi carpeta 'prueba' y fui subiendo de a uno, mediante
Código:
var sr: TSearchRec; Directorio:String; begin Directorio:='C:\prueba\'; if idFTP1.Connected then begin if FindFirst(Directorio + '*', faAnyFile, sr) = 0 then repeat if (sr.Attr and faDirectory = 0) or (sr.Name <> '.')and (sr.Name <> '..') then idFTP1.Put(Directorio + sr.Name, 'public_html/Descargas/pruebas/'+ sr.Name); until FindNext(sr) <> 0; FindClose(sr); idFTP1.Disconnect; ShowMessage('Fichero subido.'); end; end; |
#7
|
|||
|
|||
hola a todos, me surgio una duda que tengo que poner en idFTP1.Port:=? porque yo tenia 21 porque en un ejemplo estaba asi... pero en realidad que deberia poner? Gracias desde ya.
|
#8
|
|||
|
|||
para subir ficheros por FTP siempre se suele usar el puerto 21, vamos es el puerto por defecto, asi que dejalo ese mismo.
|
#9
|
||||
|
||||
Hola que tal, pero si en verdad se necesita enviar por el componente IDHTTP comos e haría???
esto por los permisos de los usuarios que no les liberan el puerto de FTP pero si tiene Internet y por ahí como podríamos mandar los archivos???? |
#10
|
||||
|
||||
En este hilo puedes ver un par de ejemplos para subir archivos usando HTTP, uno usando Indy y el otro usando WinInet.
Pero el punto es que necesitas tener en el servidor un script que procese los datos POST que le mandas. Dicho script puedes hacerlo con PHP o algún otro lenguaje. // Saludos |
#11
|
||||
|
||||
Gracias Roman, creo que lo me falta es el script que procese el archivo que estoy subiendo, en fin lo voy a hacer.
Nuevamente gracias y saludos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
subir archivo a servidor ftp | m8estrella83 | Internet | 6 | 29-03-2012 12:58:38 |
subir determinado archivo | Migue Rguez | HTML, Javascript y otros | 4 | 13-05-2006 11:10:56 |
Subir log a internet | sitrico | Internet | 3 | 09-12-2004 14:03:37 |
Subir pagina realizada en delphi 7 a internet | danytorres | Internet | 8 | 30-09-2004 19:47:09 |
Cómo subir información a una bd en internet automáticamente | osvrom | Internet | 4 | 20-03-2004 00:21:57 |
|