Me lleva el Diablo....................

[sercornejov]

Hola.

Creo que este hilo es aca...

Tengo que terminar la tesis de mi esposa que es a la final una aplicación tipo ENCARTA o algo así.

Tengo aprox 135 imágenes en jpg, bmp y gif (bueno es lo de menos pues las puedo colocar todas en un solo formato) y tengo los textos en un archivo de word (con formato de títulos y todo - bonito )

La idea es guardar todo en una tabla; las imagenes como ymágenes y los textos como blob que guarden un formato rtf para concervar los formatos.

El gran problema:

TENGO QUE TENER TODO EN UN CD Y DEBE CORRER DESDE EL CD EN CASI CUALQUIER PC SIN NECESIDAD DE INSTALACIÓN!!!!!!!!

Tengo siempre la opción de dos directorios: uno para las imágenes y otro para los RTF, pero no es elegante y ademas la información puede ser plagiada más facilmente, de hecho si se copia al D.D. puede ser modificada...

Cual es la mejor opción para hacer esto, de la manera más eficiente...

Que pena acosar desde ya pero si no presento esto el Domingo talvez mi esposa no se gradue este año, lo cual puede derivar en un juicio de divorcio y la verdad... yo la amo mucho y no ....

Sergio

[marcoszorrilla]

Tienes que decir que base de datos utilizas, de esta manera creo que se te podrá ayudar.

Lo del domingo será broma no, no creo que en la Universidad trabajen el domingo.

Un Saludo.

[marcoszorrilla]

Bueno por si acaso la tabla fuera Paradox, y sería un cargo de conciencia que divorciaras por semejante caso.

Accessing Paradox Tables on CD or Read-Only Drive - by Borland Developer Support Staff

Technical Information Database

TI1333D.txt Accessing Paradox Tables on CD or Read-Only Drive
Category atabase Programming
Platform :All
Product elphi All

Description:
This Technical Information document will step through the concepts
regarding accessing Paradox tables which are located on a CD-ROM or
any read-only device.

The Paradox locking scheme requires the existence of a PDOXUSRS.LCK
file to handle its locking logic. This file is generally created at
run-time and resides in the directory which also contains the tables.
However, with a CD-ROM there is not a way to create this file at
run-time on the CD-ROM. The solution is simple, we create this file
and put it on the CD-ROM when the CD is pressed. The following steps
will give you a very simple utility program for creating the
PDOXUSRS.LCK file which you will then copy to the CD-ROM image.

1. Starting with a blank project add the following components: TEdit,
TButton and TDatabase.


2. In the OnClick event for the button use the following code:

   procedure TForm1.Button1Click(Sender: TObject);
   begin
     if ChkPath then
       Check(DbiAcqPersistTableLock(Database1.Handle,
                  'PARADOX.DRO','PARADOX'));
   end;


   3. The ChkPath function is a user defined method of the form. It will 
   simply check the path entered in the Edit box and make sure it exists. 
   Here is the function:

   function TForm1.ChkPath : Boolean;
   var
     s : array[0..100] of char;
   begin
     If DirectoryExists(Edit1.Text) then begin
       DataBase1.DatabaseName:= 'TempDB';
       DataBase1.DriverName:= 'Standard';
       DataBase1.LoginPrompt:= false;
       DataBase1.Connected := False;
       DataBase1.Params.Add('Path=' + Edit1.Text);
       DataBase1.Connected := TRUE;
       Result := TRUE;
     end
     else begin
       StrPCopy(s,'Directory : ' + Edit1.text + ' Does Not Exist');
       Application.MessageBox(s, 'Error!', MB_ICONSTOP);
       Result := FALSE;
     end;
   end;

   { Note: Don't forget to put the function header in the public section 
           of the form.}


   4. There is one more thing you need to add before compiling, in the 
   Uses statement at the top of the unit add the following units: 
     Delphi 1.0: FileCtrl, DbiProcs, DbiTypes, DbiErrs.
     Delphi 2.0: FileCtrl , BDE


   When you have compiled and executed the utility program, it will 
   create two files in the directory you specified. The two files created 
   are: PDOXUSRS.LCK and PARADOX.LCK. 

   Note: The PARADOX.LCK file is only necessary when accessing Paradox for 
   DOS tables so you can delete it. 


   5. The only thing left for you to do is copy the remaining file 
   (PDOXUSRS.LCK) to the CD-ROM image. Of course your tables will be 
   Read-Only. 

   Note: If you want to clean up this utility for future use, you can 
   change the text property of the Edit box to be some default directory 
   and change the Caption property of the Button to be something more 
   meaningful.


   Here is the final version of the code:

   unit Unit1;

   interface

   uses
     Windows, Messages, SysUtils, Classes, Graphics, Controls, 
     Forms, Dialogs,  DB, StdCtrls, FileCtrl,

     {$IFDEF WIN32}
       BDE;
     {$ELSE}
       DbiProcs, DbiTypes, DbiErrs;
     {$ENDIF }


   type
     TForm1 = class(TForm)
       Edit1: TEdit;
       Button1: TButton;
       Database1: TDatabase;
       procedure Button1Click(Sender: TObject);
     private
       { Private declarations }
     public
       { Public declarations }
       function ChkPath : Boolean;
     end;

   var
     Form1: TForm1;

   implementation

   {$R *.DFM}

   function TForm1.ChkPath : Boolean;
   var
     s : array[0..100] of char;
   begin
     If DirectoryExists(Edit1.Text) then begin
       DataBase1.DatabaseName:= 'TempDB';
       DataBase1.DriverName:= 'Standard';
       DataBase1.LoginPrompt:= false;
       DataBase1.Connected := False;
       DataBase1.Params.Add('Path=' + Edit1.Text);
       DataBase1.Connected := TRUE;
       Result := TRUE;
     end
     else begin
       StrPCopy(s,'Directory : ' + Edit1.text + ' Does Not Exist');
       Application.MessageBox(s, 'Error!', MB_ICONSTOP);
       Result := FALSE;
     end;
   end;

   procedure TForm1.Button1Click(Sender: TObject);
   begin
     if ChkPath then
       Check(DbiAcqPersistTableLock(Database1.Handle,
                  'PARADOX.DRO','PARADOX'));
   end;

   end.

Un Saludo.

[roman]

Posteado originalmente por marcoszorrilla
TI1333D.txt Accessing Paradox Tables on CD or Read-Only Drive
Category atabase Programming
Platform :All
Product elphi All

Ya yo lo decía: la programación es cosa de risa

// Saludos

[roman]

Quizá entiendo mal, pero el prblema con la solución de marcoszorrilla es que aún así debe instalar el bde en la pc donde se ejecute ¿no?.

Dependiendo del tipo de aplicación, si puede prescindir de consultas sql quizá una opción sería utilizar ClientDataSets que permiten manejar una base de datos de escritorio sin necesidad de instalar nada. Únicamente requieren la presencia de midas.dll en el directorio de la aplicación.

// Saludos

[__cadetill]

Posteado originalmente por roman
Únicamente requieren la presencia de midas.dll en el directorio de la aplicación.

y si añades MidasLib en el uses de algun formulario, ni eso, ya que se incluira en el exe

[marcoszorrilla]

Otra solución sería guardar en una carpeta los archivos en formato Word, con nombres secuenciales doc1......doc135
y en otra las imagenes img1....img135

Por medio de un bucle, o cargar los nombres en una stringlist y la imagen que les corresponde

Con la paleta servers abriríamos el archivo de Word y simultaneamente cargaríamos la imagen correspondiente en un Timage, como solo son 135, puede hacerse sin utilizar bases de datos.

No si ya lo dice Román, la programación bien enfocada puede ser de risa, lo único es que este hombre se está jugando su devenir conyugal y por eso estamos todos tratando de aportar ideas, antes de que llegue el "dies dominicus", fecha límite para le entrega según parece.

Un Saludo.

[roman]

Posteado originalmente por marcoszorrilla
Otra solución sería guardar en una carpeta los archivos en formato Word, con nombres secuenciales doc1......doc135
y en otra las imagenes img1....img135

Normalmente yo haría esto que dices ya que no me gusta mucho eso de guardar imágenes en campos blob, pero él menciona que por cuestiones de plagio no quisiera colcar las imágenes y archivos sueltos.

Quizá si sercornejov nos explicara a grandes rasgos el diseño de la aplicación podríamos darle ideas más concretas.

Por lo pronto, si estuviera en sus zapatos comenzaría diciéndole a mi esposa que la quiero mucho y que estamos juntos en las buenas y en las malas.

// Saludos

[sercornejov]

Bueno. muchas gracias a todos por su preocupación por mi futuro conyugal...

Lo de la entrega para el domingo es porque hoy (lunes) a las 8:00 a.m. era la entrega, eso en términos prácticos no da DOMINGO.

Afortunadamente para mi, para mi esposa, para mis hijas y para todos los involucraos de manera sentimental, misericordiosa o curiosa, la Universidad amplio el plazo para la entrega hasta el día Jueves.

Finalmente he hecho el manejo mediante HTML, Flash y otros.

Lo del plagio quedo sin piso, pues finalmente es propiedad de la Universidad y es ella quien se debe preocupar por eso.

Lo de la base de datos quedo para una aplicación aparte que pensamos desarrollar para acompañar un libro que tiene pensado escribir mi esposa con relación al tema de la tesis.

Bueno creo que de todas maneras la información es muy valiosa y los votos por mi conyugalidad más importante aún...

Que Dios los bendiga y de todas formas en otro hilo posterior expondre bien lo que tengo para ver si así de paso en mi WEB pongo la solución para todos aquellos que la necesiten, que son muchos...

Sergio

Aun Casado y amado....