Power Builder - Leer Archivos mayores de 1MB

Que tal amigos de la web del programador, un saludo desde Venezuela..

Mi consulta es para saber que me recomendarían para abrir un archivo de texto cuyo tamañano pueda superar 1MB.. (se que la función FILEOPEN puede abrir archivos hasta de un tamaño maximo de 32K), quisiera saber si me pueden ayudar o aconsejar para realizar el proceso de lectura de archivos mayores de ese tamaño...

Muchisimas Gracias por su ayuda....

Hola
Prueba con esto:

blob lbl_data
blob lbl_temp
long ll_file

ll_file = fileopen("Archivo.txt",streammode!)

DO WHILE FileRead(ll_file,lbl_temp) > 0
lbl_data += lbl_temp
LOOP

FileClose(ll_file)

Suerte !!

Hola amigos de la web del programador, un saludo desde Ecuador.
Tengo un problema similar pero al revez, necesito escribir un archivo pero solo me está dejando con un tamaño maximo de 32 kb y necesito escribir mas 50 kb.
El problema es que me escribe el archivo pero me corta el contenido. Recibo una cadena con aprox 50 kb y solo me genera un archivo de 32 kb.

Este es mi codigo:

// Crea el archivo auxiliar
ls_nombreFichero = is_directorio + "\contrato.html"
li_fichero = FileOpen (ls_nombreFichero, StreamMode!, Write!, LockReadWrite!, Replace!)
IF li_fichero < 0 THEN
MessageBox ("Error", "Error al abrir el fichero " + ls_nombreFichero, StopSign!)
END IF

blob ls_html_2

select contrato into :ls_html_2 from gestionit.PDA_CONTRATOS_HTML_TEMP;

ls_html_completo = string(ls_html_2,EncodingUTF16LE!)

// Escribir una línea en el fichero de salida
if FileWrite (li_fichero, ls_html_completo) = -1 then
MessageBox('Error', 'Error al escribir en el fichero ' + ls_nombreFichero, StopSign!)
end if

// Cerrar el fichero
if FileClose (li_fichero) = -1 then
MessageBox ("Error", "Error al cerrar el fichero " + ls_nombreFichero, StopSign!)
END IF

// Levanta el archivo con el objeto ole
ls_path = ls_nombreFichero
ole_1.Object.Navigate(ls_path)





Desde ya muchas gracias por su ayuda.