https://foro.gambas-es.org/viewtopic.php?f=1&t=1712&p=10020#p10020
-----------------------------------
soplo
Domingo, 03 Julio 2011, 05:44

Re: Socket En Internet, Descargar
-----------------------------------
Hola
Si abres un socket al servidor luego puedes leer los primeros 10 bytes así.
dim Datos as string
read #s, datos,10

con lo que obtienes un string de 10 caracteres cada uno de los cuales corresponde al valor binario que estás recibiendo. También podrían ser bytes.
Dim Datos as new byte[], contador as integer, B as byte
for contador=1 to 10
   read #S,B
   Datos.add(B)
next

Pero ambos casos requieren que el servidor te envíe los diez primeros bytes de ese fichero. Otra alternativa es descargarlo (mediante ftp o un wget) y luego leerlo así (supondiendo que esté en un fichero temporal llamado t.tmp)
Dim Datos as string
Datos=left(file.load("t.tmp"),10)

O igual que antes si lo quiers en bytes
Dim Datos as new byte[], contador as integer, B as byte
for contador=1 to 10
   B=cbyte( chr(mid ( file.load("t.tmp") ,contador,1)))
   Datos.add(B)
next

bueno, supongo que se entiende
 :mryellow:


