Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Archivo _TLB (https://www.clubdelphi.com/foros/showthread.php?t=69987)

Paulao 23-09-2010 14:59:20

Archivo _TLB
 
Copie mis fuentes para otro directorio, todas las units, inclusive mi archivo GBL_Server_TLB. Criei un nuevo RemoteDataModule, del tipo:
RDM_PCP, Internal e taApartment(coClassName,Instancing y Threading Model). Quando criei, mi _TLB ok, sin problema. Fue hacia IRDM_Principal y criei un metodo ReadOnly, llamado RDM_PCP que es el nombre de mi RemoteDataModule que yo criei. Yo tengo un RDM_Principal, que es(RDM_Principal, Multiple Instance y Apartment). Este es el principal. Siempre que crio un otro RDM Internal, yo crio um metodo asi:
Código Delphi [-]
function Get_RDM_Pedidos: IRDM_Pedidos; safecall;
Y su implementacion es asi
Código Delphi [-]
function TRDM_Principal.Get_RDM_Pedidos: IRDM_Pedidos;
begin
  Result := RDM_PedidosFactory.CreateComObject(nil) as IRDM_Pedidos;
  Result.RDMServer := Self;
  SetarConexao(Result, IRDM_Pedidos, TRDM_Pedidos);
  TRDM_Pedidos(GetObject(Result, IRDM_Pedidos, TRDM_Pedidos)).RodaComponente;
end;
Que pasa es que con el nuevo RDM_PCP me lo da un error asi:
Undeclared Identifier "Get_RDM_PCP", pero no hay ningun Get_RDM_PCP en mi RDM_Principal declarado. So yo voy y pongo manualmente, me lo da un error asi:
Undeclared Identifier "RDM_Server", en este codigo
Código Delphi [-]
function TRDM_Principal.Get_RDM_PCP: IRDM_PCP;
begin
  Result := RDM_PCPFactory.CreateComObject(nil) as IRDM_PCP;
  Result.RDMServer := Self;=>Error aqui
  SetarConexao(Result, IRDM_PCP, TRDM_PCP);
  TRDM_PCP(GetObject(Result, IRDM_PCP, TRDM_PCP)).RodaComponente;
end;
Que devo hacer, para resuelver esto?


La franja horaria es GMT +2. Ahora son las 22:41:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi