Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-03-2007
Avatar de Durbed
Durbed Durbed is offline
Miembro
 
Registrado: ago 2004
Posts: 166
Poder: 20
Durbed Va por buen camino
Almacenar Scripts en la aplicacion

Tengo unos scripts que actualizan la estructura de una base de datos y no quiero distribuirlos los ficheros suletos con la aplicación. He intentado meterlos dentro de un archivo de recursos mediante el programa XN Resource Editor, y agrego el script con Import RC Data Resource, de forma que queda algo asi:
http://img385.imageshack.us/img385/2841/dibujovd3.jpg

pero luego no se como obtener el scrip, esto no me funciona:
Código Delphi
Código Delphi [-]
... 
implementation  
{$R scripts.res}  

procedure TForm1.Button1Click(Sender: TObject); 
begin   
  memo1.Lines.Text := LoadResString('SCR1'); 
end; 
...
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5
Responder Con Cita
  #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.275
Poder: 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
  #3  
Antiguo 19-03-2007
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 22
JXJ Va por buen camino
no te serviria metelos,. como constantes.
Código Delphi [-]
const 

scriptcreabasededatos := 'create database  ';
Responder Con Cita
  #4  
Antiguo 19-03-2007
Avatar de Durbed
Durbed Durbed is offline
Miembro
 
Registrado: ago 2004
Posts: 166
Poder: 20
Durbed Va por buen camino
Thumbs up

Gracias Neftali, funciono perfectamente.

JXJ, no puedo almacenarlo en constantes porque los scripts son largos y numerosos, y ademas es un coñazo , de esta forma elijo el script que quiero ejecutar y con 3 lineas actualizo la estructura de la base de datos.
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Formatear scripts SQL DarKraZY Varios 5 22-12-2006 17:58:27
FastReport y Scripts Jose Miguel Mun Impresión 1 14-12-2005 22:36:43
Generacion de scripts AMO Oracle 2 10-10-2005 17:55:15
Scripts? JMGR Varios 2 14-06-2005 21:03:49
Almacenar un proyecto Rav dentro de la aplicacion carlos7 Impresión 0 12-11-2004 10:05:51


La franja horaria es GMT +2. Ahora son las 14:34:08.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi