Ayuda con Delphi

[Dark_RavenM]

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?

[[cHackAll]]

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

[Dark_RavenM]

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

[[cHackAll]]

Empezado por Dark_RavenM

...el tipo de dato que regresa asi se llama Collection de Visual Basic...

Tu lo has dicho, en Visual Basic.

Empezado por Dark_RavenM

...delphi lo reconoce como un varDispatch...

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..

[Dark_RavenM]

Dim objTarifa As clsTarifa
Dim objCC As clsCuotas
Dim intTmp as Integer
Dim colTmp as Collection
Set objTarifa = New clsTarifa
objTarifa.Ruta = "C:\"
objTarifa.Codigo = "15091001"
If objTarifa.Actualiza Then
   Set colTmp = objTarifa.CuotasC

objTarifa.CuotasC es el que regresa una coleccion

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

[danielDelphi]

Buenos dias,
Si alguien me pudiera colaborar con este problema les agradeceria de por vida
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


Muchas gracias de antemano

[rgstuamigo]

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.