Ver Mensaje Individual
  #1  
Antiguo 29-06-2004
Avatar de Sr_Sombrero
Sr_Sombrero Sr_Sombrero is offline
Miembro
 
Registrado: may 2003
Posts: 49
Reputación: 0
Sr_Sombrero Va por buen camino
Enviar archivo por socket. 'TStream' y 'TFileStream' Incompatibles.

Estoy tratando de transferir un archivo a través de una conexión por socket.

Programo una "Console Application" por lo que no puedo recurrir a los componentes sockets que trae Delphi, así que uso una Librería WinSock que funciona casi igual que los TServerSocket y TClientSocket.

El problema surge cuando quiero enviar un archivo usando un código similar a este:

Código:
ClientSocket2.Socket.SendStream (TFileStream.Create (strFile, fmOpenRead or fmShareDenyWrite));
Esto funciona en los componentes sockets que trae Delphi, pero en el caso de la librería que uso me da el siguiente error al compilar:

"Incompatible types: 'TStream' and 'TFileStream'"

La primera solución que se me ocurre es (si se puede) transformar el TFileStream a TStream. ¿Cómo lo hago?

La segunda solución podría ser enviar el archivo de otra manera ¿SendBuffer serviría?

Gracias de antemano
Responder Con Cita