Ver Mensaje Individual
  #2  
Antiguo 19-03-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.319
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Yo utilizao esto.
Los guardo como RCDATA.

Para comprobar que existen:

Código Delphi [-]
  // Llamar a la búsqueda de recurso
  b := FindInstanceOfResource('NOMBRE_RES', RT_RCDATA, HInstance);

Para recuperarlo (utilizo TStringList)

Código Delphi [-]
  // Crear el StringList
  tf := TStringList.Create;
  // proteccion para liberar
  try
    // proteccion
    try
      // Cargar el recurso
      rs := TResourceStream.Create(HInstance, 'NOMBRE_RES', RT_RCDATA);
      tf.LoadFromStream(rs);
    except
      // Error recurso no encontrado 
      ...
    end;

    // en TS tienes el recurso

  // liberar
  finally
    rs.Free;
    tf.Free;
  end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita