Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Convertir SVG a PNG. (https://www.clubdelphi.com/foros/showthread.php?t=86383)

Neeruu 30-07-2014 21:32:12

Convertir SVG a PNG.
 
1 Archivos Adjunto(s)
Hola a todos... después de buscar y buscar... De probar varios componentes sugeridos y cosas sin llegar a los resultados deseados...

Post anterior http://www.clubdelphi.com/foros/showthread.php?t=82541

Encontré este ejemplo de como pasar de SVG a PNG.
El ejemplo esta en Javascript.... y necesito de la forma que sea crear una función donde le pase por parametro el svg, o el archivo que contiene los datos del svg y me devuelva el png....

Y necesito ayuda porque no tengo la mas remota idea de como hacer para pasar esa información y hacer que me devuelva el png desde delphi....

Ya tengo montado un server http, donde el html que tengo de ejemplo anda de maravilla... lo que necesito ahora es poder controlarlo desde delphi....

Ejemplo: http://techslides.com/demos/d3/convert-svg-png.html

Alguien podría ayudarme por favor!

Al archivo que se encuentra dentro del rar subido cambiar la extension de txt a svg

nlsgarcia 31-07-2014 02:48:16

Neeruu,

Cita:

Empezado por Neeruu
...Encontré este ejemplo de como pasar de SVG a PNG...El ejemplo esta en Javascript...

:rolleyes:

Revisa este código:
Código Delphi [-]
  procedure ExecNewProcess(ProgramName : String; Wait: Boolean);
  var
    StartInfo : TStartupInfo;
    ProcInfo : TProcessInformation;
    CreateOK : Boolean;
  begin
    FillChar(StartInfo, SizeOf(TStartupInfo), #0);
    FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
    StartInfo.cb := SizeOf(TStartupInfo);
    CreateOK := CreateProcess(nil, PChar(ProgramName), nil, nil, False,
                CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS,
                nil, nil, StartInfo, ProcInfo);
    if CreateOK then begin
      //may or may not be needed. Usually wait for child processes
      if Wait then
        WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    end else
      ShowMessage('Unable to run ' + ProgramName);
  
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
  
  procedure ConvertSVGtoPNG(aFilename: String);
  const
    ExecLine = 'c:\windows\system32\java.exe -jar C:\Apps\batik-1.7\batik-rasterizer.jar ';
  begin
    ExecNewProcess(ExecLine + aFilename, True);
  end;
El código anterior tomado de Converting SVG to PNG using C#, utiliza el Batik SVG Toolkit para convertir una imagen en SVG a PNG.

Nota: El código del ejemplo y el Batik SVG Toolkit, no fueron probados para efectos de este mensaje, quizás te interese probarlo :confused:

Espero sea útil :)

Nelson.


La franja horaria es GMT +2. Ahora son las 14:25:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi