Az első részben, bemelegítésként csak annyit teszünk, hogy megnyitunk egy PowerPoint bemutatót, és lejátsszuk azt, valamint kiírjuk az adatait egy Memo komponensbe.
Megtehetjük, hogy készítünk egy Type Library-t a Project menü Import Type Library menüpontjával, de ha nem akarjuk, hogy a készítendő programunk csak adott Office verzióval működjön együtt, akkor ennek használatát kerüljük. Ha azonban Office konstansokat is akarunk használni, de nem akarjuk ezeket újra deklarálni, akkor készítsük el a Type Library-t, és hivatkozzunk rá a uses kulcsszó után. Ugyanitt adjuk meg az ActiveX és ComObj unit-okat is, mert ezekre is szükség lesz. Minden objektumnál az OleVariant típust fogjuk használni.
Első lépésben, mint mindig, most is csatlakoznunk kell az alkalmazáshoz. Ez az alábbi kódrészlettel lehetséges:
var
PPApp: OleVariant;
...
PPApp:=CreateOleObject('PowerPoint.Application');
A PPApp változóban megkapjuk a PowerPoint alkalmazás Application objektumát. Ennek az objektumnak a Presentations property-jében érjük el a megnyitott bemutatókat. A Presentations objektum Count property-je adja meg, hogy hány nyitott dokumentum (bemutató) van. Ugyanennek az objektumnak az Item függvényével lekérdezhetjük a paraméterként megadott sorszámú dokumentum Presentation típusú objektumát. Ha új dokumentumot akarunk létrehozni, akkor használjuk az Add függvényt, erről későbbi cikkekben lesz bővebben szó. Ha egy már létező dokumentumot szeretnénk megnyitni, akkor használjuk az Open függvényt:
Open
Osztály: Presentations
Open(
FileName: string
ReadOnly: boolean
Untitled: boolean
WithWindow: boolean
): Presentation
Egy meglévő bemutatót, vagy más PowerPoint fájlt az Open függvénnyel tudunk megnyitni.
Paraméterek
FileName: string
A fájl neve. Ezt a paramétert kötelező megadni.
ReadOnly: boolean
Opcionális paraméter, amely igaz érték esetén csak megtekintésre nyitja meg a dokumentumot. Az alapértelmezett értéke hamis, tehát ha elhagyjuk, akkor a dokumentum szerkeszthető, módosítható lesz.
Untitled: boolean
Szintén opcionális paraméter. Ha az értéke igaz, akkor a dokumentumot cím nélkül nyitja meg. Ez akkor használható, ha másolatot akarunk készíteni a dokumentumról. Az alapértelmezett értéke hamis, a cím ekkor a dokumentumban tárolt cím lesz.
WithWindow: boolean
Ez is egy opcionális paraméter, ami azt mondja meg, hogy a dokumentumot megnyitás után látni szeretnénk-e, vagy sem. Ha csak lejátszásra nyitjuk meg a dokumentumot, akkor adjunk meg hamis értéket, ha szerkesztésre is, akkor pedig igaz értéket. Ez utóbbi az alapértelmezett érték.
Visszatérési érték
Ha sikerült a dokumentumot megnyitni, akkor a dokumentum Presentation típusú objektumával tér vissza.
Ha megnyitottuk a dokumentumot, akkor kiolvassuk a tulajdonságait. Ehhez a Presentation objektum BuiltInDocumentProperties objektumát fogjuk felhasználni. Ez egy collection típusú objektum, amely DocumentProperty objektumokat tartalmaz. Minden ilyen objektum egy-egy tulajdonságot tartalmaz.
A BuiltInDocumentProperties objektum Count property-jéből megtudhatjuk, hogy mennyi tulajdonság van tárolva a collection-ban. Az egyes tulajdonságokhoz tartozó objektumokat az Item property-ből érhetjük el úgy, hogy indexként megadjuk a tulajdonság sorszámát.
v:=Presentation.BuiltInDocumentProperties.Item[i];
Ezzel megkapjuk a tulajdonság DocumentProperty objektumát, melynek Name property-jéből kiolvashatjuk a tulajdonság nevét, a Value property-ből pedig az értékét. A tulajdonságoknak több típusa is lehet, a típust a Type property-ből tudhatjuk meg, és az alábbi táblázat szerint azonosíthatjuk:
| Konstans |
Érték |
Típus |
| msoPropertyTypeNumber |
$01 |
egész szám |
| msoPropertyTypeBoolean |
$02 |
logikai |
| msoPropertyTypeDate |
$03 |
dátum és idő |
| msoPropertyTypeString |
$04 |
sztring |
| msoPropertyTypeFloat |
$05 |
valós szám |
| Ezek a konstansok az Office_TLB.pas-ban vannak deklarálva. |
A diavetítést a Presentation objektum SlideShowSettings objektumának Run metódusával tudjuk indítani.