![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Podrías probar con las componentes Indy, en particular la TIdFTP. También puedes usar WinInet. Si no mal recuerdo, el compañero seoane ha publicados varios ejemplos de uso. Si no, siempre está La Web de JM, que en su sección de Delphi trae una serie excelente de artículos acerca de WinInet, y en particular, su uso con FTP.
// Saludos |
#2
|
||||
|
||||
Roman de Ftp todavía no había puesto ningún ejemplo, pero lo puedo intentar. La siguiente función sube un archivo a un servidor FTP.
Los parámetros son: el archivo local, el archivo remoto (el que se va a crear), la dirección del servidor (el nombre o la ip), Usuario y password. Los parámetros Usuario y Password son PChar, así que si quieres usar una variable de tipo string tendrás que hacer el conveniente typecast ( PChar(variable) ), si por el contrario quieres hacer una conexión anónima utiliza nil en ambos parámetros. Ahora es cuando comenzamos a complicar la cosa, en vez de mandar un archivo vamos a mandar una imagen. De echo vamos a capturar la pantalla y subir la imagen al ftp, algo así como un pequeño espía.
Con esto ya se puede espiar a un incauto, solo hace falta convencerlo de que ejecute el programa, lo desbloquee en el firewall de windows y que no tenga otro firewall instalado. En serio, espiar a la gente es una cosa muy fea ![]() Última edición por seoane fecha: 02-09-2006 a las 02:47:48. |
#3
|
|||
|
|||
NO me funciona en Builder...
HOla amigos...ya me he vuelto un experto en traducir de Delphi a builder...
pero en este caso me sale un error extraño...esos de linker... en la primera parte para subir un archivo a un servidor ftp me sale cuando compilo : Código:
[Linker Error] Unresolved external 'InternetOpenA' referenced from C:\ARCHIVOS DE PROGRAMA\BORLAND\CBUILDER6\PROJECTS\UNIT1.OBJ [Linker Error] Unresolved external 'InternetConnectA' referenced from C:\ARCHIVOS DE PROGRAMA\BORLAND\CBUILDER6\PROJECTS\UNIT1.OBJ |
#4
|
|||
|
|||
hCon me devuelve NULL
hola amigos...estoy intentando traducir ese codigo a a C++ Builder pero en una parte no me funciona.....cuando llamo a InternetConnect, la funcion me devuelve NULL....que estoy haciendo mal??
aca esta la linea de codigo Código:
hCon= InternetConnect(hNet,Server.c_str(),(14147),"usuario1","1234", INTERNET_SERVICE_FTP,0,Context); no me funciona.... Gracias si alguien sabe como arreglar esto muchas gracias |
#5
|
||||
|
||||
Vamos por partes. Server.c_str() es el contenido de un Edit, pero no dices que has escrito en el Edit
![]() |
#6
|
|||
|
|||
Gracias seaone
En Server esta el contenido de un Edit1->Text = ftp://localhost...
el codigo que estoy utilizando es el siguiente...: Código:
HINTERNET hNet,hCon; DWORD Context=0; hNet = InternetOpen("agent",INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0); AnsiString LocalFile = Edit1->Text; // Edit1->Text = "C:\\Captura.jpg" AnsiString RemoteFile = Edit2->Text; // Edit2->Text = "Capturaftp.jpg" AnsiString Server = "ftp://localhost"; HResult Result; hCon= InternetConnect(hNet,Server.c_str(),(14147),"usuario1","1234", INTERNET_SERVICE_FTP,0,Context); Result = FtpPutFile(hCon,(LocalFile).c_str(),(RemoteFile).c_str(), FTP_TRANSFER_TYPE_BINARY, Context); InternetCloseHandle(hCon); cuando invoco hcon queda en Null....estoy utilizando filezilla Server que usa el puerto 14147.. Muchas gracias. en cuanto a lo del GetLast error....no se como usarlo...solo debugeo..para darme cuenta del error...y se que como hcon es un handle..no puede ser NULL...ahi esta el error...gracias amigo |
#7
|
||||
|
||||
Prueba usando "localhost" o "127.0.0.1" en vez de "ftp://localhost/", fíjate que lo que se pide es solo el nombre del servidor no una URL que es lo que tu le pasas.
|
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
conexion mediante ODBC a la base de datos mysql, por linea de codigo de delphi | sakuragi | Conexión con bases de datos | 21 | 15-03-2005 18:43:59 |
Conexion mediante ODBC, OLE DB, ADO? | tsomarp | Conexión con bases de datos | 1 | 25-02-2005 13:05:27 |
Conexion con Oracle mediante ADO | PTW | Oracle | 0 | 21-02-2005 14:50:25 |
Conexion a Access Mediante una DLL | Draco | Conexión con bases de datos | 0 | 29-04-2004 04:27:47 |
Conexion a DBF mediante DBE | Celta777 | Conexión con bases de datos | 2 | 18-10-2003 19:59:52 |
![]() |
|