8 respuestas en este tema

[Fleon]

Saludos a todos, sé que se puede abrir un documento word ó excel  a través de un olecontainer ó los servers, mi duda es, si hay forma de guardar en una BD la fecha y hora de modificación de esos documentos luego de que el usuario le haya dado a guardar en Excel O Word, ¿Es posible?, eso es para fines de crear un historial de modificaciones en un sistema de control de documentación que se está realizando en delphi.

 

Fleon xDD

[giulichajari]

Y porque no lo guardas tu mismo despues de generado? O el usuario debe hacerle cambios?

 

Existe el evento beforeSave, puedes probar con la rutina sql que guarda la fecha y nombre del documento dentro de este evento.

 

https://msdn.microso...e/ff840057.aspx

[egostar]

Saludos a todos, sé que se puede abrir un documento word ó excel  a través de un olecontainer ó los servers, mi duda es, si hay forma de guardar en una BD la fecha y hora de modificación de esos documentos luego de que el usuario le haya dado a guardar en Excel O Word, ¿Es posible?, eso es para fines de crear un historial de modificaciones en un sistema de control de documentación que se está realizando en delphi.
 
Fleon xDD

 
Hola
 
Se puede obtener la fecha de creación o la fecha de última modificación usando la función BuiltinDocumentProperties.
 

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: Variant;
  Archivo,
  Fecha: String;
begin
  if not OpenDialog1.Execute then exit;
  Archivo := OpenDialog1.FileName;
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(Archivo);
  //Debe de estar abierto el archivo para poder obtener la información
  Fecha := Excel.ActiveWorkbook.BuiltinDocumentProperties.Item['Last Save Time']; //'Creation Date', 'Last Save Time'
  ShowMessage( Fecha );
  Excel.Workbooks.Close;
end;

A ver si te da una idea.
 
Saludos

[Fleon]

Gracias amigos, haré las pruebas pertinentes, antes de alocarme, se puede guardar esos archivos en base de datos, abrir desde ella hacer, editarlo y guardar los cambios desde office directamente a la bd?, o es mejor tenerlo fisicamente?

 

Fleon xDD

[egostar]

Gracias amigos, haré las pruebas pertinentes, antes de alocarme, se puede guardar esos archivos en base de datos, abrir desde ella hacer, editarlo y guardar los cambios desde office directamente a la bd?, o es mejor tenerlo fisicamente?

 

Fleon xDD

 

No sé cual sea tu proceso, pero eso ya lo tienes y puede guardarse donde quieras.

 

Saludos

[Fleon]

Gracias Egostar, pero sácame una duda si un archivo .xlsx es abierto desde un campo blob y hacen cambios y al guardar esos cambios se reflejan automaticamente en ese campo blob ó debo crear algún procedimiento que lo haga?.

 

Fleon xDD

[egostar]

Gracias Egostar, pero sácame una duda si un archivo .xlsx es abierto desde un campo blob y hacen cambios y al guardar esos cambios se reflejan automaticamente en ese campo blob ó debo crear algún procedimiento que lo haga?.

 

Fleon xDD

 

 

No puedo asegurarlo, porque no se como abriste el archivo, pero para poder obtener esa información a través de la función que mencioné debes tener abierto el archivo con CreateOleObject() o con la unidad Excel2000 si la tienes.

 

Saludos

[Nikolas]

 
Hola
 
Se puede obtener la fecha de creación o la fecha de última modificación usando la función BuiltinDocumentProperties.
 

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: Variant;
  Archivo,
  Fecha: String;
begin
  if not OpenDialog1.Execute then exit;
  Archivo := OpenDialog1.FileName;
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(Archivo);
  //Debe de estar abierto el archivo para poder obtener la información
  Fecha := Excel.ActiveWorkbook.BuiltinDocumentProperties.Item['Last Save Time']; //'Creation Date', 'Last Save Time'
  ShowMessage( Fecha );
  Excel.Workbooks.Close;
end;

A ver si te da una idea.
 
Saludos

 

Me sirvió este info, gracias!

[egostar]

Vaya después de 2 años y medio ha servido de algo , un gusto leerte amigo Nikolas

 

Saludos