Luacom Ve Ppt Için Bu Koda Bir Baka Bilirmisiniz

[zamanmakinesi]

luacom ile ppt ve pps dosyalarını açmak için böyle bir kod buldum
anlayan bir arkadaş bu kodu izah edebilir mi
ben pps sunumlarımı amsye embed ederek açmak istiyorum acaba bu kod bunu yaparmı
[code]
--
-- PowerPoint LuaCOM control
--
-- Mark Stroetzel Glasberg
-- 28/10/2002
--

PPT = {}

function PPT:Open()
local process = create_process{cmd="C:\\Program Files\\Microsoft
Office\\Office10\\POWERPNT.EXE /AUTOMATION"}
sleep(3)
self.ppt = luacom_GetObject("Powerpoint.Application")
end

function PPT:GetObject()
self.ppt = luacom_GetObject("Powerpoint.Application")
local prs = self.ppt.Presentations
self.pr = prs:Item(1) -- Filename is also valid. Ex:
"D:\\mark\\test.ppt"
self.view = self.pr.SlideShowWindow.View
end

function PPT:Close()
self.ppt:Quit()
end

function PPT:ListFiles(dir)
local fs = self.ppt.FileSearch
fs.LookIn = dir
fs.FileName = "*.ppt"
fs.FileType = 5
fs.SearchSubFolders = 1
local n = fs:Execute()
local files = fs.FoundFiles
local i = 1
while n >= i do
print("<option value='"..files.Item(i).."'><br>")
print(files.Item(i))
i = i + 1
end
end

function PPT:Filename(filename)
self.ppt.Visible = 1
self.pr = self.ppt.Presentations:Open(filename)
end

function PPT:Start()
local pr = self.pr
if pr == nil then
print("Cannot Start presentation without a filename")
return
end
pr.SlideShowSettings.StartingSlide = 1
pr.SlideShowSettings.EndingSlide = pr.Slides.Count
local cur = pr.SlideShowSettings:Run()
self.view = cur.View
end

function PPT:First()
self.view:First()
end

function PPT:Last()
self.view:Last()
end

function PPT:Next()
self.view:Next()
end

function PPT:Previous()
self.view:Previous()
end [/code] Edited March 18, 2012 by zamanmakinesi

[HalilYanar]

Onları Global Fuctions a yapıştırcaksın galiba

[KintaRo]

office belgeleri direk ams içinde gösterilemez ama içindeki verileri alıp/verebilirsin

[zamanmakinesi]

[quote name='KintaRo' date='19 March 2012 - 08:30 ' timestamp='1332138633' post='1171889']
office belgeleri direk ams içinde gösterilemez ama içindeki verileri alıp/verebilirsin
[/quote]
ozaman ofice belgelerini veri tabanı gibi kullanma mantığı var