Convertendo ppt para imagem e depois para flash - Ruby on Br

Carlos Eduardo 266 posts

Eu fiz este código para colocar em meu servidor, para converter arquivos do powerpoint para imagem e arquivos swf/flash, onde cada slide é um arquivo de imagem ou swf/flash.

Alguma sugestão para melhoria deste código?

require 'win32ole'
require 'fileutils'

class PowerPoint; end
    
    dir_da_conversao = "C:\\conversoes"
    
    ppt_filename = "ConhecendoSuaEstrutura2.ppt"
    
    dir_do_ppt = "#{ppt_filename.gsub('ppt','').gsub(' ','_')}"
    
    html_filename = "#{dir_da_conversao}\\#{dir_do_ppt}.jpg"  
    
    ppt = WIN32OLE.new('powerpoint.application')
    #ppt.Visible = true
    WIN32OLE.const_load(ppt, PowerPoint)
    ppt.Activate
    ppt.WindowState = 2 
    ppt.Presentations.Open('FileName' => "#{dir_da_conversao}\\#{ppt_filename}")
    ppt.ActivePresentation.SaveAs('FileName' => html_filename,
                                  'FileFormat' => PowerPoint::PpSaveAsJPG)

ppt.ActivePresentation.Close
    ppt.Quit
    
    convertidos = "#{dir_da_conversao}\\#{dir_do_ppt}"
    Dir.foreach(convertidos) do |x| 
	   next unless [".jpg", ".jpeg"].include?(File.extname(x).downcase)
	   puts "Got #{x}" 
	   app = `C:\\swftools\\jpeg2swf.exe -q 90 -z #{convertidos}\\#{x} -o #{convertidos}\\#{x.gsub(/(\D)(\d)\./, '\10\2.').gsub!('.JPG', '')}.swf ` 
    end

Qualquer dica é bem vinda

Grande abraço!

300 semanas atrás

Mereghost 1476 posts

OK, não muda nada (só acho que fica mais legível), mas o ruby interpreta os separadores de diretórios usando um simples forward slash (‘/’) mesmo no Windows.

O Dir.foreach, poderia se trocado por um Dir.glob(“*.{jpg.jpeg}”) já que o Windows é case insentive.

300 semanas atrás

Marcelo Júnior 811 posts

Carlos, soh para saber. Vc conseguiu fazer gerar a imagem sem abrir o PowerPoint?

300 semanas atrás

Carlos Eduardo 266 posts

Marcelo, sem abrir não, somente minizado, é que ficou tão rápido no servidor que ficou praticamente imperceptível a abertura do powerpoint. Então dá para usar =D

Abraço!

300 semanas atrás

Rodrigo Rosauro 310 posts

Vocês já tentaram deixar um powerpoint sempre aberto no servidor?
Em geral, os programas da M$ nunca abrem dois processos… isso pode poupar um pouco de processamento no servidor (evitanto ter que carregar o powerpoint toda vez).

300 semanas atrás Carlos Eduardo 266 posts	Eu fiz este código para colocar em meu servidor, para converter arquivos do powerpoint para imagem e arquivos swf/flash, onde cada slide é um arquivo de imagem ou swf/flash. Alguma sugestão para melhoria deste código? require 'win32ole' require 'fileutils' class PowerPoint; end dir_da_conversao = "C:\\conversoes" ppt_filename = "ConhecendoSuaEstrutura2.ppt" dir_do_ppt = "#{ppt_filename.gsub('ppt','').gsub(' ','_')}" html_filename = "#{dir_da_conversao}\\#{dir_do_ppt}.jpg" ppt = WIN32OLE.new('powerpoint.application') #ppt.Visible = true WIN32OLE.const_load(ppt, PowerPoint) ppt.Activate ppt.WindowState = 2 ppt.Presentations.Open('FileName' => "#{dir_da_conversao}\\#{ppt_filename}") ppt.ActivePresentation.SaveAs('FileName' => html_filename, 'FileFormat' => PowerPoint::PpSaveAsJPG) ppt.ActivePresentation.Close ppt.Quit convertidos = "#{dir_da_conversao}\\#{dir_do_ppt}" Dir.foreach(convertidos) do \|x\| next unless [".jpg", ".jpeg"].include?(File.extname(x).downcase) puts "Got #{x}" app = `C:\\swftools\\jpeg2swf.exe -q 90 -z #{convertidos}\\#{x} -o #{convertidos}\\#{x.gsub(/(\D)(\d)\./, '\10\2.').gsub!('.JPG', '')}.swf ` end Qualquer dica é bem vinda Grande abraço!

300 semanas atrás Mereghost 1476 posts	OK, não muda nada (só acho que fica mais legível), mas o ruby interpreta os separadores de diretórios usando um simples forward slash (‘/’) mesmo no Windows. O Dir.foreach, poderia se trocado por um Dir.glob(“*.{jpg.jpeg}”) já que o Windows é case insentive.

300 semanas atrás Marcelo Júnior 811 posts	Carlos, soh para saber. Vc conseguiu fazer gerar a imagem sem abrir o PowerPoint?

300 semanas atrás Carlos Eduardo 266 posts	Marcelo, sem abrir não, somente minizado, é que ficou tão rápido no servidor que ficou praticamente imperceptível a abertura do powerpoint. Então dá para usar =D Abraço!

300 semanas atrás Rodrigo Rosauro 310 posts	Vocês já tentaram deixar um powerpoint sempre aberto no servidor? Em geral, os programas da M$ nunca abrem dois processos… isso pode poupar um pouco de processamento no servidor (evitanto ter que carregar o powerpoint toda vez).