Ayuda con Delphi
 

Hola a todos, instale un componente que es un archivo dll de visual basic en Delphi por que necesito sus finciones, todo esta instalado bien pero las funciones regresan una coleccion de datos no es un arreglo es una coleccion que solo conosco que visual basic utiliza, pero no se como manejarlas en Delphi, alguien tiene una idea?

Probablemente te este retornando una interfaz hija de IEnumVariant, pero no podemos hacer mucho si no nos explicas o muestras un poco mas.

Como que necesitarian?, el dll no lo puedo mandar por que tiene licencia, el tipo de dato que regresa asi se llama Collection de Visual Basic, delphi lo reconoce como un varDispatch

Tu lo has dicho, en Visual Basic.

Reconoce? entonces esto esta libreria es una ActiveX o una que exporta funciones?


No creo que sea "ilegal" si nos muestras una llamadita en Visual Basic no? o la declaracion u otro dato..

Si Delphi lo toma como un componente ActiveX

y asi lo tengo en Delphi

Código Delphi [-]

type
  TForm1 = class(TForm)
    objDia: TclsTarifa;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.FormCreate(Sender: TObject);
var
  info:variant;
  dispatch:idispatch
begin
   objDia.Ruta:='C:\';
   objDia.Codigo:='15091001';

   if objDia.Actualiza(TRUE) then
   begin
      dispatch:=objDia.CuotasC;
      info:=objDia.CuotasC;
   end;

pero ya no se como manejar el dispatch para obtener la informacion o la variable info como variant

Problema con un TQuery al capturar un parametro y utilizar la sentencia
 

Buenos dias,
Si alguien me pudiera colaborar con este problema les agradeceria de por vida:D
tengo un inconveniente al hacer la captura y entrega de un parametro desde una caja de texto a un Tquery
miren

Código Delphi [-]
Procedure TForm1.searchbtnClick(Sender: TObject); begin QryMostrar.Close; DataSource.DataSet := QryBuscar; QryBuscar.Params[0].Value := codetxt.Text; QryBuscar.Open; end;

luego de esto

la sentencia de la TQuery esta asi



Select * from comments where codigo = ":codigo"


Me presenta un error Q no he podido solucionar es el list index out of bounds (0) alguna idea:confused:


Muchas gracias de antemano

Código Delphi [-]
Procedure TForm1.searchbtnClick(Sender: TObject);
begin 
 QryMostrar.Close; 
 DataSource.DataSet := QryBuscar;
 QryBuscar.ParamByName('codigo').AsInteger:=StrToInt(codetxt.Text);//aqui modifique
 QryBuscar.Open;
end;

Aparte te aconsejo que la sentencia SQL lo tengas asi:

Código SQL [-]
Select * from comments where codigo =:codigo;

No pongas las comillas para el parámetro codigo.;)