Transferencia de archivos

[Silver]

Hola, me gustaría que me expusierais el código necesario para transferir cualquier tipo de archivo desde un PC hasta otro mediante los componentes TClientSocket y TServerSocket, u otros componentes más eficaces (que disponga Delphi) para realizar dicha tarea. Respecto a los FTP, no creo que sean necesarios, ya que, el FTP envía el archivo a un servidor, y a mi me interesa de que se envie un archivo mediante una IP y un puerto determinado. ¡Gracias!

EnviarArchivo(Ordenador,Archivo,CarpetaDestino);

Más o menos así de simple. :-D

[delphi.com.ar]

Si lo quieres hacer solo con Winsock, vas a tener que crear tu propio protocolo interno, o buscar si existe alguno.
Te cuento lo que he hecho en mi programa "PeepMachine" que puedes bajar de mi página. Tanto el programa que escucha como el que envía interpreta envían paquetes con headers, donde el hader indica el tipo de paquete y el tamaño, de esta manera creo algo como un stream con las funciones básicas, CreateFile, CloseFile, Write, Read y Seek.
Te recomiendo buscar en la Web, seguramente exista algo que te solucione tu problema, mismo puedes poner un FTPServer del otro lado, si no me equivoco en Torry.net existe uno free.

Saludos!

[madman]

Hola!

Lo ke muchos no hacen es no checar los foros anteriores con muchas preguntas, y que las estan volviendo a repetir en estos.

http://www.clubdelphi.com/foros/archivo/viewtopic.php?t=16771&highlight=como+transferir+archivos

Aki esta un ejemplo ke un compañero aporto a los foros anteriores.

P.D.
Antes de ingresar a estos foros, sheka los anteriores.
http://www.clubdelphi.com/foros/archivo (http://www.clubdelphi.com/foros/archivo/)