Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Microsoft Excel [D7, Win95/98]

Jurden © (2002-11-28 14:36:00)
Здраствуйте! Почему после выполнения следующей процедуры Excel висит в памяти (из-за чего если не виснет все, виснет сама программа)?

procedure T_Auto.sbExportClick(Sender: TObject);
var
Excel: Excel97.TExcelApplication;
WorkBook: Excel97.ExcelWorkBook;
WorkSheet: Excel97.ExcelWorkSheet;
begin
if (FileName <> "") then
begin
Excel := Excel97.TExcelApplication.Create(Self);
Excel.Connect;
WorkBook := (Excel.Workbooks.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, False, 0));
WorkSheet := (WorkBook.Worksheets.Item[1] as Excel97._Worksheet);
// Работа с листом
WorkSheet := nil;
WorkBook := nil;
Excel.Quit;
FreeAndNil(Excel);
end
else
ShowMessage("Имя файла не выбрано!");
end;

Jurden (2002-11-28 15:39:00) [1]
[Error] deAuto.pas(164): Incompatible types: "TExcelApplication" and "Variant"

Song (2002-11-28 15:19:00) [2]
FreeAndNil(Excel); ???

Excel:=unAssigned;

Jurden (2002-11-28 15:14:00) [3]
Подправил, все равно висит.

procedure T_Auto.sbExportClick(Sender: TObject);
var
Excel: Excel97.TExcelApplication;
WorkBook: Excel97.ExcelWorkBook;
WorkSheet: Excel97.ExcelWorkSheet;
begin
if (FileName <> "") then
begin
Excel := Excel97.TExcelApplication.Create(Self);
Excel.Connect;
WorkBook := (Excel.Workbooks.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, False, 0));
WorkSheet := (WorkBook.Worksheets.Item[1] as Excel97._Worksheet);
// Работа с листом
WorkSheet := nil;
WorkBook.Close(False, FileNamem, EmptyParam, 0);
Excel.Disconnect;
FreeAndNil(Excel);
end
else
ShowMessage("Имя файла не выбрано!");
end;

sask (2002-11-28 14:49:00) [4]
Причем все это в соответствующие try...finally

sask (2002-11-28 14:46:00) [5]
После работы с книгой: WorkBook.Close
и вместо Excel.Quit поставить Excel.Disconnect

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »