Скачать: CL | DM;

Как после работы с Excel убивать его в памяти   Найти похожие ветки 

← →
Chainik   (2003-01-08 14:22) [0]

После написания такого кода:

procedure TForm1.Button1Click(Sender: TObject);
var vExcel: OLEVariant;
begin
vExcel := CreateOLEObject("Excel.Application");
vExcel.WorkBooks.open("D:\my.xls",true);
Edit1.Text:=vExcel.WorkBooks[1].WorkSheets[1].Cells[34,2];

//vExcel.Destroy;

vExcel.Quit;
// vExcel:=unassigned;


end;

Excel загружается (в смысле отображается в диспетчере задач) почему-то два раза: при запуске проги и при нажатии собственно на Button1. А при закрытии один пропадает.

---

← →
cult ©   (2003-01-08 15:15) [1]

значит, ты его где-то еще прописал, иначе он бы два раза не грузился

---

← →
Chainik   (2003-01-08 15:47) [2]

Да нет, вся прога состоит только из этого события

---

← →
Chainik   (2003-01-08 16:06) [3]

Кстати, я просто создал опять заново новый проект с этим событием и теперь действительно один раз появляется, но все же Quit не срабатывает.

---

← →
Matolch.   (2003-01-08 16:46) [4]

var
Form1: TForm1;
vExcel: OLEVariant; //ukj,

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
vExcel := CreateOLEObject("Excel.Application");
vExcel.WorkBooks.Add;//("D:\my.xls",true);
vExcel.WorkBooks[1].WorkSheets[1].Cells[34,2] := Edit1.Text;
vExcel.Quit; // если так, то Дельфя его сама убьет.
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
vExcel.Visible := False;// если не так, то не убьет
//vExcel.Quit; //А может так
end;

А два раза - наверняка до этого не вышел просто

---

← →
Matolch.   (2003-01-08 16:47) [5]

WM_QUIT ваще

---

← →
Chainik   (2003-01-08 17:41) [6]

Спасибо.

---

← →
TTCustomDelphiMaster ©   (2003-01-08 18:00) [7]

procedure TForm1.Button1Click(Sender: TObject);
var vExcel: OLEVariant;
begin
vExcel := CreateOLEObject("Excel.Application");
vExcel.WorkBooks.open("D:\my.xls",true);
Edit1.Text:=vExcel.WorkBooks[1].WorkSheets[1].Cells[34,2];

//vExcel.Destroy;

vExcel.Quit;
// vExcel:=unassigned;
vExcel := null;

end;

---

← →
Chainik   (2003-01-08 19:21) [8]

>to TTCustomDelphiMaster ©

Огр. спасибо, помогло.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c