Archivos txt

[Neftali [Germán.Estévez]]

Te cojo algunos trozos que uso yo.

Tengo un fchero .RC de texto con es definido (mira el último recurso):

CBSTYLE_RO        BITMAP  "Resources\CheckBoxStylesDisabled.bmp"
CBSTYLEFOCUSED_RO BITMAP  "Resources\CheckBoxStylesFocusDisabled.bmp"
CALCULADORA       BITMAP  "Resources\Calculadora.bmp"

// Paginas web de traduccion
RES_HTML_PAGE2                     RCDATA  "Resources\_html2.txt"

El fichero _html2.txt es un fichero de texto con TAGS HTML.

Para compilar este fichero .RC utiulizo un fichero por lotes .CMD con lo siguiente:

brcc32 AppRes.rc >> Errores.txt

Que me genera un fichero AppRes.res para mi aplicación y que tengo añadido al proyecto.

Y el código que utilizo en mi proyecto es algo así:

Código Delphi [-]
var
  rs: TResourceStream;
  tf: TStrings;
  b:Boolean;
  resName:String;
begin
  // Se trata de seguridad de Visualizacion?
  resName := 'RES_HTML_PAGE2';
  // Llamar a la búsqueda de recurso
  b := FindInstanceOfResource(resName, RT_RCDATA, HInstance);
  if not b then begin
    // Error de recurso no encontrado
    raise ...
    Exit;
  end;
  // Crear el StringList
  tf := TStringList.Create;
  // proteccion para liberar
  try
    // proteccion
    try
      // Cargar el recurso
      rs := TResourceStream.Create(HInstance, resName, RT_RCDATA);
      tf.LoadFromStream(rs);
    except
      // Error recurso no encontrado (al recuperar)
      raise ...
      Exit;
    end;

    // Devolvemos el TEXTO COMPLETO
    Result := tf.Text;

  // liberar
  finally
    rs.Free;
    tf.Free;
  end;