Buenas a todos,
Tengo un componente activex para conectarme contra una camaraip de videovigilancia, hasta aquí bien ya que tengo importado dicha activex.
El problema viene que tengo un ejemplo en VB que funciona i que intento pasar a Delphi y no se.
el codigo vb original pone
[VB]
Set theBuilder = New JxGraphicBuilder
theBuilder.JoinPin theBuilder.Decoder, JxMjpegBox1.Displayer
Dim theFilter As JxMjpegFilter
Set theFilter = theBuilder.Filter
theFilter.Mode = JX_FILTER_FIND_ONLY_JPEG_PICTURE
Dim theDecoder As JxMjpegDecoder
Set theDecoder = theBuilder.Decoder
theDecoder.Mode = JX_DECODER_IJL
[/VB]
entiendo lo que hace declar unas varibles y les asigna valores el problema es que no se como hacer el New ya que JxGraphicBuilder es una clase que viene en el activex pero que no tiene metodo constructor.
he intentado hacer lo siguiente.
Código Delphi
[-]
// primero declarar las variables
theBuilder : JxGraphicBuilder;
theFilter : JxMjpegFilter;
theDecoder : JxMjpegDecoder;
// despues el siguiente codigo
theBuilder.JoinPin(theBuilder.Decoder,mjpg.Displayer );
theFilter := IJxMjpegFilter(theBuilder.Filter);
theFilter.Mode := JX_FILTER_FIND_ONLY_JPEG_PICTURE;
theDecoder := IJxMjpegDecoder(theBuilder.Decoder);
theDecoder.Mode := JX_DECODER_IJL;
El compilado no peta pero al ejecutar el codigo peta en la primera linia ya que theBuilder no esta creado.
Alguien sabe que deberia hacer.
Muchisimas gracias.