Svg

[Neftali [Germán.Estévez]]

¿Has probado el otro que hemos comentado?
Según la página compila en todas las versiones de Delphi.

[Neeruu]

Si he probado y no pude hacerlo andar...

Por Ahora lo que me queda es hacer una dll en delphi 7 donde paso como parametro el svg y que me devuelva el bitmap

Pero si alguien puede instalar el componente que sugiero y ver si puede hacerlo andar en delphi 2010 o por lo menos guiarme en que cambios debería hacer para que pueda utilizar el componente en delphi 2010 se lo voy a agradecer mucho....

Saludos.

[Neeruu]

Ahí pude hacer andar el componente que me pasaron (SimpleGraph) pero no me lee los svg que tengo....

Alguien podría explicarme esta linea de código...

Código Delphi [-]
const
  StreamSignature: DWORD =
    (Ord('S') shl 24) or (Ord('G') shl 16) or (Ord('.') shl 8) or Ord('0');

Esta constante se compara cuando cargo el svg en el procedimiento loadfromfile...

Código Delphi [-]

procedure TSimpleGraph.LoadFromFile(const Filename: String);
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

procedure TSimpleGraph.LoadFromStream(Stream: TStream);
var
  Signature: DWORD;
begin
  Stream.Read(Signature, SizeOf(Signature));
  if Signature <> StreamSignature then
    raise EGraphStreamError.Create(SStreamContentError);
  BeginUpdate;
  try
    Clear;
    ReadObjects(Stream);
    SaveModified := 2;
  finally
    EndUpdate;
  end;
end;

Alguna idea de lo que esta haciendo?