Ver Mensaje Individual
  #9  
Antiguo 04-08-2015
osmeg osmeg is offline
Miembro
NULL
 
Registrado: may 2014
Posts: 18
Reputación: 0
osmeg Va por buen camino
Buenas noches Dec,

De antemano gracias por el recurso compartido de transferencia de archivos. Me tome el atrevimiento de tomar el código que adjuntaste para revisar su comportamiento porque necesito realizar algo similar. Sin embargo, a pesar de que realizo los pasos tal cual como los indicas en un mensaje anterior para el envío de archivos, no logro que se cree el archivo b.txt (ni en el computador local como en otro de la misma red). Sé que esta discusión es algo avanzada (llevo poco programando Delphi) pero me gustaría poder realizar esa transferencia de archivos. No he modificado el código que adjuntaste.

Con respecto al problema, el código indicado en la parte inferior perteneciente al método ServerClientRead. Este código nunca es ejecutado porque la cadena s llega vacía, pero no encuentro el motivo.

Código Delphi [-]
    if s <> '' then
    begin
    t := TStringList.Create();
    try
      t.Text := s;
      t.SaveToFile( 'b.txt' );
    finally
      t.Free();
    end;

    SLog( 'Server Client Read Received ' );
    end;

Entiendo que este post es un poco viejo pero agradezco si me puedes orientar en algun paso adicional que sea necesario realizar para que la transferencia del archivo sea satisfactoria.
Responder Con Cita