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; |
|
|
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 |
|