Fórum Compartilhar uma conexao entre dois programas exe diferentes #14373

 
procedure TPrograma1.Button1Click(Sender: TObject);
var
   iteste: integer;
begin
   // pega o endereço da memória
   iteste := Integer(Conexao);
   // chama o outro programa passando o endereço.
   WinExec(PChar('D:\C_Fontes\ADM\Projeto\programa2.exe ' + IntToStr(iteste)),SW_SHOWNORMAL)
end;

 
procedure TPrograma2.FormCreate(Sender: TObject);
begin
   // Cria o componente em tempo de execução
   Conexao := TOracleSession.Create(Self);
   // Se não vir o parametro eu conecto novamente
   if Trim(ParamStr(1)) = '' then
   begin
      Conexao.LogonDatabase := 'BASE';
      Conexao.LogonUsername := 'USUARIO';
      Conexao.LogonPassword := 'Senha';
      Conexao.Connected := True;
   end
   else
   begin
     // Se vier o parametro eu utilizo a mesma conexão
      ShowMessage(ParamStr(1));
      Conexao := TOracleSession(StrToInt(ParamStr(1)));
      if Conexao.Connected then
        ShowMessage('Conectado')
      else
        ShowMessage('Não Conectado');
   end;
end;