Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como Liberar un OleObject ???? (https://www.clubdelphi.com/foros/showthread.php?t=31647)

AGAG4 13-05-2006 02:55:50

Como Liberar un OleObject ????
 
Buen día tengan todos ustedes, tengo una aplicación donde leo hojas de cálculo de Microsoft Excel, la forma que leo esto es creando OleObject, explico en el fuente:
Código Delphi [-]
//Primeramente declaro una variable 
Var
Excel : Variant; 
  Hoja : _WORKSHEET;
begin
  //***** Creamos el Objeto Ole *****//
  try
    Excel := CreateOleObject('Excel.Application');
  except
    Excel.Quit;
    showmessage('No se pudo crear el Objecto Excel.');
    raise;
  end;
 
  try
     //***** Asignamos el archivo a abrir *****//
     Excel.Workbooks.Open(edRuta.text);
     Libro :=Excel.WorkBooks[1].WorkSheets[edLibro.text];
     Excel.Visible := false;
 
     //Leemos Celdas de Interés
     Total:=Libro.Cells[1,1];
     Iva:=Libro.Cells[2,1];
  finally
     //Liberamos Hoja de Cálculo
     Excel.Workbooks.close;
     Excel.Quit;
     Excel:= Unassigned;
  end;
end;

El Problema que tengo es que NO me libera la Hoja de Cálculo dentro de Win98, se queda en memoría y si ejecuto varias veces este pedazo de código, la Pc se me Cicla y la tengo que Reiniciar.

Ya he buscado aqui en el foro y mencionan lo mismo para liberar un OleObject tengo que usar lo que añado en el finally....end :(, No ha habido alguien que haya usado estos objetos con Win98????

Con XP SI me libera el objeto.

Como se liberan los OleObject dentro de Win98????

Agradezco cualquier Sugerencia.


La franja horaria es GMT +2. Ahora son las 01:51:10.

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