"El proyecto MiProyecto.exe ha lanzado una excepcion de la clase 'External: SIGSEGV'"
Este emnsaje de error me aparece cuando presiono el boton de cerrar el formulario que tiene el siguiente codigo:
delphi
procedure TfrmComSetup.btnOkCFGClick(Sender: TObject); begin //Cierro el puerto frmCom.Puerto_1.Active := false; //Aplico la nueva configuracion AplicaConfiguracionCom; //Abro el Puerto frmCom.Puerto_1.Active := True; //Guardo en archivo la nueva configuracion GuardaConfiguracionCom; //Cierro el formulario Close; end;
El programa se detiene en el procedimiento "GuardaArchivoCom".
delphi
procedure TfrmComSetup.GuardaConfiguracionCom; begin //with SetupFile do //begin SetupFile.WriteString('PARAMETER','ComPort',ComboBox1.Text); SetupFile.WriteString('PARAMETER','BaudRate',ComboBox2.Text); SetupFile.WriteString('PARAMETER','DataBits',ComboBox3.Text); SetupFile.WriteString('PARAMETER','Parity',ComboBox4.Text); SetupFile.WriteString('PARAMETER','StopBits',ComboBox5.Text); //end; Lista.Free ; SetupFile.Free; end;
Siguiendo el depurador me dice que algo esta mal escrito antes de "WriteString" de la primera linea. SetupFile es un archivo ini creado en otra parte del programa.
He buscado en los forors pero lo que he encontrado acerca del error es que se debe a algo del Firewall o del antivirus, En el programa que me base para este codigo corre perfectamente.
¿Alguna sugerencia?