| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

выгрузка chartobject-а в html [D7, Win95/98, NT4, Win2k, WinXP]

yaric ©   (2008-06-26 14:56:00) 

Привет всем не могу разобраться с выгрузкой из Excel отдельного Chart в Html. По примерам с инета пришел к такому коду:

         var Book:_WorkBook;
              Sheet:_WorkSheet;
              AShape:ExcelXp.Shape;
              Path:TFileName;
         begin  
                   ...............
                   Path:=ExtractFilePath(Application.ExeName)+'1.htm';          
                   Book.Activate(lcid);
                   Book.PublishObjects.Add(xlSourceChart,
                                           Path,
                                           Sheet.Name,
                                           AShape.Name,
                                           xlHtmlStatic,
                                           EmptyParam,
                                           EmptyParam).Publish(false);
        end;



Код компилируется..однако при выполнении происходит исключительная ситуация. Скажите пожалуйста в чем может быть проблема уже пару дней бьюсь над проблемой не могу разобраться. Сохранение всей книги не подходит..так как там много графиков и нельзя из них найти необходимый.

---

Сергей М.   (2008-07-02 00:41:00) [1]

> выявил в результате закоментирования строки


А про встроенный в Делфи отладчикты, конечно, ничего не слыхал..


> Исключительная ситуация TOleException


Класс исключения сам по себе не интересен.

Приводи код ошибки (см. TOleException.ErrorCode) и дословный текст сообщения об исключении

---

big_yaric   (2008-07-01 23:23:00) [2]

выявил в результате закоментирования строки....

---

brother   (2008-07-01 12:56:00) [3]

> выходе из процедуры

откуда такая уверенность?

---

yaric   (2008-07-01 12:23:00) [4]

Исключительная ситуация TOleException происходит при выходе из процедуры в которой содержиться приведенный код.
Я так думаю что связана ошибка c строкой кода

Book.PublishObjects.Add(xlSourceChart,
                                          Path,
                                          Sheet.Name,
                                          AShape.Name,
                                          xlHtmlStatic,
                                          EmptyParam,
                                          EmptyParam).Publish(false);

так как при ее коментировании ошибка пропадает....

---

brother   (2008-07-01 11:18:00) [5]

погорячился... но
1.какая?
2.инициализацию book не увидел

---

brother   (2008-07-01 11:09:00) [6]

> var Book:_WorkBook;               Sheet:_WorkSheet;    
>           AShape:ExcelXp.Shape;               Path:TFileName;
>           begin                       ...............   
>                  Path:=ExtractFilePath(Application.ExeName)+'1.
> htm';                              Book.Activate(lcid);
>                    Book.PublishObjects.Add(xlSourceChart,
>                                             Path,      
>                                      Sheet.Name,        
>                                    AShape.Name,        
>                                    xlHtmlStatic,        
>                                    EmptyParam,          
>                                  EmptyParam).Publish(false);
>          end;

и

> lcid:=0;  lcid := GetUserDefaultLCId;  fXL := TExcelApplication.
> Create(nil);  try          fXL.ConnectKind         := ckRunningOrNew;
>           fXl.Application.AutomationSecurity := 1;      
>    fXL.DisplayAlerts[lcid] := False;          fXL.AutoQuit
>            := False;          fXL.Visible[lcid]       :=
> false;          fXL.Connect;          Book:=(fxl.Workbooks.
> Add('c:\1.xls', lcid) as _Workbook);

вообще похоже)

> Какая конкретно ?

---

yaric   (2008-07-01 10:47:00) [7]

я просто не приводил весь кодю инициализацию книги делаю вот так:


 lcid:=0;
 lcid := GetUserDefaultLCId;
 fXL := TExcelApplication.Create(nil);
 try
         fXL.ConnectKind         := ckRunningOrNew;
         fXl.Application.AutomationSecurity := 1;
         fXL.DisplayAlerts[lcid] := False;
         fXL.AutoQuit            := False;
         fXL.Visible[lcid]       := false;
         fXL.Connect;

         Book:=(fxl.Workbooks.Add('c:\1.xls', lcid) as _Workbook);


---

Anatoly Podgoretsky   (2008-06-27 08:34:00) [8]

Book не инициализирован.

---

Сергей М.   (2008-06-26 20:04:00) [9]

> при выполнении происходит исключительная ситуация


Какая конкретно ?

---

Наверх