execution d'un fichier pps dans form ou un panel

Version imprimable

17/06/2008, 10h06
samschu

execution d'un fichier pps dans form ou un panel

bonjour à tous,

J'aimerai éxecuter un fichier powerpoint dans une form ou dans un panel sous bcb.
j'ai essayé d'utiliser les composants TOlecontainer, TpowerpointApplication et TpowerpointPrésentation, mais tous font éxecuter le fichier en plein écran !!!

j'avais vu une solution en Delphi mais cela ne marche pas en bcb.

merci de votre aide. :?
17/06/2008, 10h46
Baxter67

:recherch:

http://www.developpez.net/forums/sho...&highlight=pps

http://www.developpez.net/forums/sho...&highlight=pps

Cordialement Baxter

Merci baxter67,

J'ai bien fait des recherches mais les solutions ne conviennes pas car l'execution se fait toujours en plein ecran !!!

Par contre ci-joint un bout de code qui pourrai convenir, mai comment enlever les scrollbars et mettre l'ecran sans bordure ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "PowerPoint_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadClick(TObject *Sender)
{
    Variant FilePPS;
 
    if(OpenDialog->Execute())
        {
        FilePPS = OpenDialog->FileName;
        ptrFichierPPS = PowerPointApplication->Presentations->Open(FilePPS,(MsoTriState)0,(MsoTriState)0,(MsoTriState)0);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RUNClick(TObject *Sender)
{
    int i, nbrSlide;
 
    // se connecte a poiwerpoint appilcation
    PowerPointPresentation->ConnectTo(ptrFichierPPS);
    // Init la presentation
    PowerPointPresentation->SlideShowSettings->ShowType = ppShowTypeWindow; //ppShowTypeSpeaker; //
    PowerPointPresentation->SlideShowSettings->ShowWithNarration = msoFalse;
    PowerPointPresentation->SlideShowSettings->StartingSlide = 1;
    nbrSlide = PowerPointPresentation->Slides->Count;
    PowerPointPresentation->SlideShowSettings->EndingSlide = nbrSlide;
    // definit la taille de la form
    PowerPointPresentation->Application->Height = Form1->Height;
    PowerPointPresentation->Application->Width  = Form1->Width;
 
    // on lance l'animation
    PowerPointPresentation->SlideShowSettings->Run();
 
    do
    {
    i = PowerPointApplication->ActivePresentation->SlideShowWindow->View->CurrentShowPosition;
    } while(i<=nbrSlide-1);
 
    PowerPointPresentation->Close();
    PowerPointApplication->Disconnect();
    PowerPointApplication->Quit();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::QUITClick(TObject *Sender)
{
    PowerPointApplication->Quit();
    PowerPointApplication->Free();
    PowerPointPresentation->Free();
    Close();
}
//---------------------------------------------------------------------------

17/06/2008, 13h59
blondelle

Salut samschu
A ma connaissance le diaporama s'affiche toujours en plein ecran.
Si en Delphi comme tu le dit il on reussi a contourner le probleme c'est peut etre possible de traduire le source en BCB
17/06/2008, 14h38
bandit boy

Salut,
il existe une méthode en dérivant le CPPWebBrowser.
Je l'utilise déjà et elle fonctionne très bien.
17/06/2008, 15h53
samschu

pour blondelle

Re bonjour,

Ben en fait avec le code que j'ai fourni, l'animation fonctionne bien dans un écran,

Mais dans ce cas il y a les bords et le scrollbar qui gènent !!

Autrement avec le TOlecontainer, comment faire pour lancer automatiquement l'animation sans faire un boubleclick ?

Deux facon de charger TOleContainer
Soit

Code:

1
2
3
4
5
6
7
8
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
if (OpenDialog1->Execute()) {
      Form1->Caption = OpenDialog1->FileName;
      OleContainer1->CreateObjectFromFile(OpenDialog1->FileName, false);
      }
}

Soit

Code:

1
2
3
4
5
6
7
8
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
if (OpenDialog1->Execute()) {
      Form1->Caption = OpenDialog1->FileName;
      OleContainer1->CreateLinkToFile(OpenDialog1->FileName, false);
      }
}

19/06/2008, 14h54
samschu

bonjour,

Merci à tout ceux qui ont répondu, mais le probleme reste, je vais voir si je peux le solutionner avec un ocx ou activex

Citation:

Envoyé par samschu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "PowerPoint_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadClick(TObject *Sender)
{
    Variant FilePPS;
 
    if(OpenDialog->Execute())
        {
        FilePPS = OpenDialog->FileName;
        ptrFichierPPS = PowerPointApplication->Presentations->Open(FilePPS,(MsoTriState)0,(MsoTriState)0,(MsoTriState)0);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RUNClick(TObject *Sender)
{
    int i, nbrSlide;
 
    // se connecte a poiwerpoint appilcation
    PowerPointPresentation->ConnectTo(ptrFichierPPS);
    // Init la presentation
    PowerPointPresentation->SlideShowSettings->ShowType = ppShowTypeWindow; //ppShowTypeSpeaker; //
    PowerPointPresentation->SlideShowSettings->ShowWithNarration = msoFalse;
    PowerPointPresentation->SlideShowSettings->StartingSlide = 1;
    nbrSlide = PowerPointPresentation->Slides->Count;
    PowerPointPresentation->SlideShowSettings->EndingSlide = nbrSlide;
    // definit la taille de la form
    PowerPointPresentation->Application->Height = Form1->Height;
    PowerPointPresentation->Application->Width  = Form1->Width;
 
    // on lance l'animation
    PowerPointPresentation->SlideShowSettings->Run();
 
    do
    {
    i = PowerPointApplication->ActivePresentation->SlideShowWindow->View->CurrentShowPosition;
    } while(i<=nbrSlide-1);
 
    PowerPointPresentation->Close();
    PowerPointApplication->Disconnect();
    PowerPointApplication->Quit();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::QUITClick(TObject *Sender)
{
    PowerPointApplication->Quit();
    PowerPointApplication->Free();
    PowerPointPresentation->Free();
    Close();
}
//---------------------------------------------------------------------------

ah d'accord :(
si jamais tu arrive a le faire en petit, tu peut me tenir au courant sa m'intéreeserais aussi :)
Je vais un peu chercher de mon coté quand j'orais un peu le temps, mais bon la jai un deplacement donc sa va etre dur :S

je ne pensais pas que cela soit possible mais j'ai une solution qui n'est pas parfaite car elle laisse une barre noire sup et inf sur l'ecran, mais on peut dimensionner l'affichage
Le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <utilcls.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 Variant vMSPowerPoint, NameSpace;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // ne pas oublier d'inclure " #include <utilcls.h> "
//    Variant vMSPowerPoint, NameSpace;
        try
    {
    // on récupére l'instance active.
    vMSPowerPoint = Variant::GetActiveObject("PowerPoint.Application");
    }
        catch(...)
    {
    // sinon on crée une nouvelle instance
    vMSPowerPoint = Variant::CreateObject("PowerPoint.Application");
    }
    // on rend Visible l'instance d'Excel que nous avons défini
    vMSPowerPoint.OlePropertySet("Visible", true);
    vMSPowerPoint.OlePropertyGet("Presentations").OleFunction("Open", "C:\\Documents and Settings\\blondelle\\Mes documents\\PowerPoint\\Présentation1.ppt", false);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OlePropertySet("ShowType", 1); // 1, 2, NULL
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run").OlePropertySet("Top", 10);
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run").OlePropertySet("Left", 10);
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run").OlePropertySet("Height", 300);
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run").OlePropertySet("Width", 300);
}
//---------------------------------------------------------------------------

Si tu a le lien du code Delphi ce serait interressant de voir si l'on peut le traduire

On peut eliminer les bandes noires en ajustant les parametres de dimension d'affichage voici ce qui fonctionne chez moi sans bande noire

Code:

1
2
3
4
5
6
7
8
9
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OlePropertySet("ShowType", 1); // 1, 2, NULL
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run").OlePropertySet("Top", 10);
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run").OlePropertySet("Left", 10);
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run").OlePropertySet("Height", 225);
vMSPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run").OlePropertySet("Width", 300);
}