Rem ( Proceso de servidor )
Rem ( De la línea enviada por el cliente leemos hasta el carácter de marca, para extraer el nombre del fichero )
Protocolo TCP: recibir hasta carácter marca ( FIC, "|", 10 )
Rem ( Quitamos el carácter de marca al nombre del fichero )
Set ( FIC, left(FIC, len(FIC)-1) )
Rem ( Recepción del tamaño del fichero (dato que va a continuación del carácter de marca) )
Protocolo TCP: recibir línea ( TAM, 10 )
Rem ( Recibir el fichero )
Protocolo TCP: recibir fichero ( tempPath() + "/" + FIC, 10 )
Rem ( Comprobamos si el fichero ha sido guardado )
¿Existe fichero? ( tempPath() + "/" + FIC, OK_EXI_FIC, TAM_BYT )
If ( (OK_EXI_FIC) & (TAM_BYT = TAM) )
Rem ( Enviamos el byte 1 si todo ha ido bien y un 0 si ha habido algún problema )
Set ( BYT, stringToNumber(getAsciiCharCode("1", "ISO-8859-1")) )
Set ( BYT, stringToNumber(getAsciiCharCode("0", "ISO-8859-1")) )
Protocolo TCP: enviar byte ( BYT, 10 )