Tema: Ayuda CORBA
Ver Mensaje Individual
  #1  
Antiguo 12-06-2011
Rolroy Rolroy is offline
Registrado
NULL
 
Registrado: may 2011
Posts: 4
Reputación: 0
Rolroy Va por buen camino
Ayuda CORBA

Hola amigos, tengo un problema, estoy implementando una aplicación con Delphi 5 que tiene una BD en SQL Server 2000 y CORBA, en una prueba sin BD, he hecho correr el Servidor "Server", el problema es cuando hago correr despues el Cliente localmente, me sale el error "NO_IMPLEMENT", cierro el mensaje o presiono el botón aceptar y me sale el formulario con form1 en la barra de títulos y sin nada en Label, inclusive he registrado el servicio por el cmd, y nada; este es el código de la aplicación Cliente:
Código Delphi [-]
unit UCliente;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Server_TLB, ExtCtrls, StdCtrls, CorbaObj;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    
  public
     InfoServer: IInformacion;
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin 
 InfoServer := TInformacionCorbaFactory.CreateInstance('');
 Label1.Caption := 'Objeto Corriendo ' + InfoServer.WhichUser +
 's machine, which is called ' + InfoServer.WhichMachine;
 Timer1.Enabled := True
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Try
  Caption := DateTimeToStr(InfoServer.CurrentDateAndTime)
 except
  Caption := 'Servidor de Informaciones'
 end
end;
end.
Por favor les pido que me ayuden, esto es con fines de estudios, le agradezco de antemano valiosa ayuda.

Última edición por Casimiro Notevi fecha: 12-06-2011 a las 17:43:05.
Responder Con Cita