Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Evitar errores al cerrar la aplicación servidor (no se cierra) y al elegir una base de datos.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1088 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2014-01-24 11:51:19 +00:00
parent 0b46cdef0f
commit e7f72e71ac
3 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Servidor/Configuracion/uConexionBD.pas
View File

@ -85,6 +85,9 @@ begin
edtPath.Text := dmServer.FDBPath; edtPath.Text := dmServer.FDBPath;
edtUser.Text := dmServer.FDBUser; edtUser.Text := dmServer.FDBUser;
edtPassword.Text := Decrypt(dmServer.FDBPass); edtPassword.Text := Decrypt(dmServer.FDBPass);
if OpenDialog.InitialDir = '' then
OpenDialog.InitialDir := ExtractFilePath(Application.ExeName);
end; end;
procedure TfrConexionBD.Finalize; procedure TfrConexionBD.Finalize;

6
Source/Servidor/uDataModuleServer.pas
View File

@ -258,7 +258,8 @@ end;
procedure TdmServer.DetenerLog; procedure TdmServer.DetenerLog;
begin begin
FEscribirLog.Free; DriverManager.OnTraceEvent := NIL;
FreeAndNIL(FEscribirLog);
end; end;
procedure TdmServer.DriverManagerTraceEvent(Sender: TObject; const Text: string; procedure TdmServer.DriverManagerTraceEvent(Sender: TObject; const Text: string;
@ -268,6 +269,8 @@ begin
end; end;
procedure TdmServer.EscribirLog(const AMensaje: String); procedure TdmServer.EscribirLog(const AMensaje: String);
begin
if Assigned(FEscribirLog) then
begin begin
FEscribirLog.Enter; FEscribirLog.Enter;
try try
@ -276,6 +279,7 @@ begin
FEscribirLog.Leave; FEscribirLog.Leave;
end; end;
end; end;
end;
procedure TdmServer.RefrescarConexion; procedure TdmServer.RefrescarConexion;
begin begin

2
Source/Servidor/uServerMainForm.pas
View File

@ -56,7 +56,7 @@ uses
procedure TfServerForm.actCerrarExecute(Sender: TObject); procedure TfServerForm.actCerrarExecute(Sender: TObject);
begin begin
Application.Terminate; Application.MainForm.Close;
end; end;
procedure TfServerForm.actRestartExecute(Sender: TObject); procedure TfServerForm.actRestartExecute(Sender: TObject);