String is too long to fit

[Cristian Novoa]

Yo subo archivos a la base de datos sql server así:

lcFString = CREATEBINARY(FILETOSTR("video.mp4"))

IF ! ejecuta_bd("UPDATE tabla SET valor = ?lcFString WHERE codigo = 'VIDEO")
RETURN

ENDIF

Para bajarlo:

lcSQL = "SELECT valor from tabla WHERE codigo = 'VIDEO'"

IF ejecuta_bd(lcSQL, "cVideo")
RETURN .F.
ENDIF

*-- Da error si el archivo pesa más de 15mb "String is too long to fit."
*-- El tamaño maximo de un string en VFP es 16777184
=STRTOFILE(cVideo.valor, ".\temp\video.mp4")

Quiero compartir con ustedes, el hecho de que pude sortear este error, cambiando el STRTOFILE a:

COPY MEMO valor TO .\temp\video.mp4

Este archivo pesa más de 200mb.

La solución la encontré en el siguiente link:

https://stackoverflow.com/questions/70894450/visual-foxpro-memo-field-operations-lead-to-string-is-too-long-to-fit-error

[Richard Silva]

Excelente, muchas gracias por compartirlo!

Saludos