FiveTech Support Forums

Muy buenas, tengo que mandar un fichero a una direccion IP y a un puerto todo esto lo hace pero el oSocket:bClose = { || MsgInfo( "Server has closed!" ) } no funciona es decir yo cierro el socket pero no hace caso me gustaría saber como puedo borrar los datos del buffer y cerrar el socket una vez enviado el fichero con exito, mi ejemplo es:

function main(nIdWav)
local oWnd
if nIdWav<>nil
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd on init (oWnd:Hide(),BarixConn(nIdWav,@oWnd))
end if
return

function BarixConn(nId,oWnd)
local oSocket,b:=.f.

oSocket = TSocket():New( 2020 )
oSocket:bConnect = { || iif(SendFile(@oSocket,nId),(oSocket:End(),oWnd:end()),)}    
oSocket:bClose   = { || MsgInfo( "Server has closed!" ) }
oSocket:Connect( "192.168.0.200" ) // use the server IP address here

return nil

function SendFile(oSocket,nId)
local cFileName := curdrive() + ":\" + curdir()+"\dirsound\"+alltrim(nId)+".mp3",b:=.f.
if ! Empty( cFileName ) .and. File( cFileName )
oSocket:SendFile( cFileName)
oSocket:Close()
b:=.t.
end if
return b

Por favor guiarme no se si la clase TSocket es muy antigua o no yo utilizo FWH 809.

Un Saludo.

Hola,

El Codeblock, solo se ejecuta, si la maquina a la que te conectas, ha cerrado el socket y/o perdido la conexion, por lo tanto si tu lo cierras, no tiene por que ejecutarse ...

oSocket:bClose = { || MsgInfo( "Server has closed!" ) }

Normalmente se utiliza ...

oSocket:bClose = {|| oSocket:Close() }

Saludos ...

Andres Reyes

dear andres ,
i MAKE A QUESTION TO YOU FOR YOUR EXPLORER BAR CLASS
i WANT CREATE IT INTO A DIALOG
BUT IT RUN ERROR
hOW i MUST MAKE IT ?

Muchas gracias Andres, pero necesito cerrar el socket como sea, una pregunta se podría cerrar el socket y limpiar el buffer?

Un Saludo.

Muy buenas, sigo teniendo problemas con enviar un fichero a un dispositivo por socket pero el problema es que se queda enviando el fichero siempre,
¿Alguien me puede ayudar para ver como enviar un archivo y seguidamente cerrar la conexion?

Un Saludo.