Rolroy
12-06-2011, 14:44:48
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:
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.
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.