https://foro.gambas-es.org/viewtopic.php?f=1&t=4462&p=25474#p25474
-----------------------------------
v3ctor
Sabado, 14 Marzo 2015, 16:23

Re: Programacion De Red (envio De Archivo De Texto)
-----------------------------------
algo asi seria enviar un archivo??
no se como leerlo y guardarlo en el serividor???

sigo haciendo pruebas

[code linenumbers=false syntax=gambas]Public Sub EnviarArchivo()
  Dim ArchivoRED As File
   
  Print "nombre archivo es=" & ganador.DirArchivoRED
  
  If Exist(ganador.DirArchivoRED) = True Then
     Print "archivo existe"
     ArchivoRED = Open ganador.DirArchivoRED For Read
     
     If FMain.Socket12.Status = Net.Connected Then
       Write #ArchivoRED, Len(ArchivoRED)
     Endif

     Close #ArchivoRED
  Endif

End[/code]


editado:no no funciona la linea write solo permite string  :roll:


