Pasar un componente TDataBase a otra aplicacion en delphi

[ecfisa]

Hola Eduardo y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Conocen alguna manera sencilla de pasarle este componente ya instanciado a esta segunda aplicación?

Hasta donde sé no veo manera de enviar a otra aplicación una instancia en sí misma, ya que esta carecería de espacio o validez fuera del entorno de la primera. En cambio si es posible enviar los datos de dicha instancia u objeto.

Un modo sencillo que se me ocurre es guardar el componente desde la aplicación emisora y luego leerlo desde el componente de la aplicación receptora.

Aplicación emisora:

Código Delphi [-]
procedure SaveComponentToFile(aComponent: Tcomponent; aFileName: TFilename);
begin
  with TFileStream.Create(aFileName, fmCreate) do
  try
    WriteComponent(aComponent)
  finally
    Free
  end;
end;

Aplicación receptora:

Código Delphi [-]
procedure ReadComponentFromFile(aComponent: TComponent; aFileName: TFilename);
begin
 with TFileStream.Create(aFileName, fmOpenRead) do
  try
    ReadComponent(aComponent)
  finally
    Free;
  end;
  DeleteFile(aFileName); // (si deseas eliminarla)
end;

Pero no se evita el uso de otra instancia de la misma clase en la segunda aplicación.

Saludos.