hola compañeros,
 
tengo el siguiente caso del cual agradezco la poca o mucha ayuda...
 
debo consumir un webservice, del cual nos dan un archivo tlb, e importado este
tlb por poryect / import type library
 
me a adicionado unos componentes....en la pestaña XXXX
 
he tratado de usarlo asi...
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   ProcInt1.Autenticar('NOMBRE_USER', 'CONTRASENA') ;
 
  // siendo ProcInt1 el componente tipo TProcInt
  // autenticar uno de los metodos que trae ProcInt

end;
 
 
----
 
en el uses adicione la correspondiente unidad GProcInt_TLB
 
en donde esta definido ..
...
...
...
 
// *********************************************************************//
// Declaration of CoClasses defined in Type
Library                      
// (NOTE: Here we map each CoClass to its Default
Interface)             
// *********************************************************************//
  ProcInt = IProcModules;
 
...
....
....
 
// *********************************************************************//
// The Class CoProcInt provides a Create and CreateRemote method
to         
// create instances of the default interface IProcModules exposed
by             
// the CoClass ProcInt. The functions are intended to be used
by            
// clients wishing to automate the CoClass objects exposed by
the        
// server of this
typelibrary.                                  \
         
// *********************************************************************//
  CoProcInt = class
    class function Create: IProcModules;
    class function CreateRemote(const MachineName: string): IProcModules;
  end;
 
 
--------------------------------------------------
 
luego de presionar el boton me saca este mensaje de error
 
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleSysError with message 'Clase no
registrada'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help  
---------------------------

la verdad... se que algo tengo mal...  por eso recurro a su ayuda...y pues he
buscado en internet  y no he visto algo parecido...
 
gracias por la ayuda
 

Ricardo Cabra




[Non-text portions of this message have been removed]