import win32com.client as wc
import win32com.server.register
import time
import sys
from decimal import *
import os
import winreg
import pythoncom
 
class MODULOSCOM:
    _public_methods_ = ['Calculo', 'Navegador']
    _reg_progid_ = "MODULOS.COM"
    _reg_clsid_ = "{80317A85-F824-45CD-82AC-3B3546C359EE}"
    _reg_desc_ = "Servidor COM Python Para PowerVISUAL"
 
    def Navegador(self, Texto):
        import webbrowser
        webbrowser.open(Texto)
        return True
 
    def Calculo(self, NumeroA, NumeroB, Operador, CantidadDecimales=2):
        if type(NumeroA) != Decimal:
            try:
                NumeroA = Decimal(str(NumeroA))
            except:
                return 0
        if type(NumeroB) != Decimal:
            try:
                NumeroB = Decimal(str(NumeroB))
            except:
                return 0
 
        if Operador == '+':
            Operacion = NumeroA + NumeroB
        elif Operador == '-':
            Operacion = NumeroA - NumeroB
        elif Operador == '*':
            Operacion = NumeroA * NumeroB
        elif Operador == '/':
            try:
                Operacion = Decimal(str(NumeroA)) / Decimal(NumeroB)
            except:
                return 0
 
        ResultadoPrevio = Decimal(str(Operacion))
        Resultado = ResultadoPrevio.quantize(Decimal('1') / Decimal('10') ** Decimal(str(CantidadDecimales)),
                                             rounding=ROUND_HALF_EVEN)
 
        return Resultado
 
def remove_registry_entry(clsid):
    try:
        reg_key = winreg.OpenKey(winreg.HKEY_CLASSES_ROOT, f"CLSID\\{clsid}", 0, winreg.KEY_SET_VALUE)
        winreg.DeleteKey(reg_key, "")
        print(f"Clave de registro de {clsid} eliminada.")
        winreg.CloseKey(reg_key)
    except Exception as e:
        print(f"Error al eliminar la clave de registro: {e}")
 
def check_registry_clsid(clsid):
    try:
        reg_key = winreg.OpenKey(winreg.HKEY_CLASSES_ROOT, f"CLSID\\{clsid}")
        winreg.CloseKey(reg_key)
        return True
    except FileNotFoundError:
        return False
 
if __name__ == "__main__":
    if len(sys.argv) > 1 and sys.argv[1].lower() == "register":
        # Registra el servidor COM
        win32com.server.register.UseCommandLine(MODULOSCOM)
        print("Servidor COM registrado.")
    elif len(sys.argv) > 1 and sys.argv[1].lower() == "unregister":
        try:
            print("Desregistrando el servidor COM...")
 
            # Intentamos desregistrar usando UseCommandLine
            win32com.server.register.UseCommandLine(MODULOSCOM, unregister=True)
            print("Desregistro usando UseCommandLine completado.")
 
            # Ahora eliminamos manualmente la clave del registro
            remove_registry_entry(MODULOSCOM._reg_clsid_)
 
            # Verificamos si la clave ha sido eliminada
            if not check_registry_clsid(MODULOSCOM._reg_clsid_):
                print("Servidor COM desregistrado correctamente.")
            else:
                print("El servidor COM sigue registrado.")
 
            # Liberar las instancias COM si están en memoria
            pythoncom.CoUninitialize()
            print("Instancias COM liberadas.")
 
        except Exception as e:
            print(f"Error al desregistrar el servidor COM: {e}")
    else:
        print("Usar 'register' o 'unregister' como argumento.")

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 Objeto      pic x(14) value "MODULOS.COM".
 01 ModulosCom      object reference COM.
 01 NumeroA     Pic X(15).
 01 NumeroB     Pic X(15).
 01 Operador        Pic X.
 01 Resultado       Pic X(15).
 PROCEDURE       DIVISION.
     invoke COM "CREATE-OBJECT" using Objeto returning ModulosCom. *> creo el objeto
     
     move "Text" OF CmText3 to NumeroA
     move "Text" OF CmText5 to NumeroB
     move "Text" OF CmText4 to Operador
     invoke ModulosCom "Calculo" using NumeroA NumeroB Operador returning Resultado
     
     move Resultado to "Caption" OF CmStatic6
     move Resultado to "Text" OF pasartexto
*    INVOKE pow-self "DisplayMessage" USING  resultado
     
     set ModulosCom to null

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 Objeto      pic x(14) value "MODULOS.COM".
 01 ModulosCom      object reference COM.
 01 cuit                  pic x(11).
 01 Resultado       Pic X(15).
 01 Texto                 pic x(100).
 PROCEDURE       DIVISION.
     invoke COM "CREATE-OBJECT" using Objeto returning ModulosCom. *> creo el objeto
     move spaces to texto
     move "Text" OF dire to texto
      invoke ModulosCom "Navegador" using texto returning Resultado
     
     set ModulosCom to null

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 ObjetoGenerico   pic x(21) value "LocPyCOM.elsCOMObject".
 01 URLCom           object reference COM.
 01 TextoDireccion   pic x(100).
 01 ResultadoUrl     pic x(100).
 
 01 Numero           pic s9(9) comp-5.
 
 
 *>Geolocalizacion
 01 ResultadoGeol    pic x(100).
 01 valorEstado      pic x(5).
 01 valorLatitud.
     03 v-Lat        pic x(15).
 01 valorLongitud.
     03 v-Lon        pic x(15).
     
 01 Tiempo           pic s9(9) comp-5.
 01 Url              pic x(512).
 01 url-maps         pic x(34) value "https://www.google.com/maps/place/".
 01 returnvalue      pic s9(9) comp-5.
 01 lang             pic x(3) value "esp".
 PROCEDURE       DIVISION.
     *> Objeto Creo
     invoke COM "CREATE-OBJECT" using ObjetoGenerico returning URLCom. *> creo el objeto     
     
     if URLCom = NULL
              display "ERROR: No se pudo crear objeto URLCom COM"
              exit program
     else 
              display "OK: se pudo crear objeto URLCom COM"     
     end-if.
     
     *> Set Atributo numero cliente
     move 530 to Numero.
 
     invoke URLCom "setValue" using Numero returning ResultadoUrl. *>Metodo.
*     display ResultadoUrl.
     
*    *> Get Atributo numero cliente
     move zeros to Numero.
     invoke URLCom "getValue" returning Numero.
     display "Retorno getValue:" , Numero.
     
     
     *> Metodo Geola
     move "Text" OF CmText-DIREC to TextoDireccion.
     move spaces                 to ResultadoGeol.
     invoke URLCom "CrearLocalizacion" using TextoDireccion returning ResultadoGeol. *>Metodo.
     display "ResultadoGeol:" , ResultadoGeol.
     unstring ResultadoGeol delimited by "|" into valorEstado valorLatitud  valorLongitud
     end-unstring.
 
*    CALL "Sleep"        WITH STDCALL USING  BY VALUE Tiempo.     
 
     display "Estado:" , valorEstado.
     display "LAtitud:" , v-Lat.
     display "LOngitud:" , v-Lon.
     
*muestro valores
     move valorLatitud  to "Text" OF CmText-Latitud.
     
     move valorLongitud to "Text" OF CmText-Longitud.
     
     move valorEstado   to "Text" OF CmText-ESTADO.
 
 
*Muestra Maps
 
     string  
         url-maps   delimited by spaces 
         
         valorLatitud delimited by spaces
         
         ","           delimited by spaces 
         valorLongitud delimited by spaces
         
         into Url
     end-string.
     display Url.
     MOVE Url TO "Text" OF CmText-URL.
 
 
*Rutina OrdoWebView       
*    INVOKE OrdoWebView1 "About".
     MOVE POW-TRUE TO "Anchor" OF OrdoWebView1.
     MOVE "https://www.google.com/" TO "HomeURL" OF OrdoWebView1.
     MOVE Url TO "HomeURL" OF OrdoWebView1.
    
     *> Metodo url
     move spaces                 to ResultadoUrl.
     move Url                    to TextoDireccion.
     invoke URLCom "url" using TextoDireccion returning ResultadoUrl. *>Metodo.
 
     
     MOVE 2 to "SearchEngine" OF OrdoWebView1. *>Google.
     INVOKE OrdoWebView1 "Init" USING Lang.
     move 0 to "MousePointer" OF pow-self.  
     
 
*final.
     set URLCom to NULL.
          
     
     

#Fecha 08-09-2025
#Programa:elsisloc.py
#para ejectuar ambiente desarrollo : python elsisloc.py --register o python elsisloc.py --unregister 
 
 
# Método 1: Eliminar claves del registro manualmente
#reg delete "HKEY_CLASSES_ROOT\LocPyCOM.elsCOMObject" /f
#reg delete "HKEY_CLASSES_ROOT\LocPyCOM.elsCOMObject.1" /f
#reg delete "HKEY_CLASSES_ROOT\CLSID\{fc6bf508-392e-45e9-bd6e-44943fcb216f}" /f
 
import pythoncom
import win32com.server.register
from win32com.server.exception import COMException
import ctypes 
import csv 
import os 
import sys
import time
from geopy.geocoders import Nominatim
 
# Configuración
user_agent = "mi_aplicacion_geolocalizacion_v1"
timeout = 10
max_retries = 3
retry_delay = 1
 
# Archivo de salida - usar ruta absoluta para evitar problemas con .exe
if getattr(sys, 'frozen', False):
    # Si estamos en un ejecutable PyInstaller
    base_path = os.path.dirname(sys.executable)
else:
    # Si estamos ejecutando desde Python
    base_path = os.path.dirname(os.path.abspath(__file__))
output_file = os.path.join(base_path, "coordenadas.csv")
 
# Geolocalizador (mover a función para evitar problemas de inicialización)
def get_geolocator():
    return Nominatim(user_agent=user_agent, timeout=timeout)
 
class Controller:
   
   _public_methods_ = ['setValue', 'getValue','url','CrearLocalizacion'] 
   _reg_progid_ = "LocPyCOM.elsCOMObject"
   _reg_verprogid_ = "LocPyCOM.elsCOMObject.1"
   _reg_desc_ = "Python Test COM Servicio"
   _reg_class_spec_ = "elsisloc.Controller"   
   _reg_clsid_ = "{fc6bf508-392e-45e9-bd6e-44943fcb216f}"
 
   def __init__(self):
      """Constructor de la clase"""
      print("Servidor COM correctamente")
      self.value = 1
      # Inicializar el archivo CSV
      self.inicializar_archivo_csv()
 
 
   def inicializar_archivo_csv(self):
        """Inicializa el archivo CSV si no existe"""
        try:
            if not os.path.exists(output_file):
                with open(output_file, "w", newline="", encoding='utf-8') as csvfile:
                    writer = csv.writer(csvfile)
                    writer.writerow(["Cliente" , "Dirección", "Latitud", "Longitud", "Estado","Timestamp"])
        except Exception as e:
            print(f"Error al inicializar CSV: {str(e)}")
 
   def CrearLocalizacion(self, direccion):
        """
        Procesa una sola dirección y la geocodifica
        Args:
            direccion (str): La dirección a geocodificar
        Returns:
            str: Resultado del proceso o mensaje de error
        """
        try:
            # Validar que se proporcione la dirección
            if not direccion or direccion.strip() == "":
                return "ERROR: La dirección no puede estar vacía"
            
            direccion = direccion.strip()
            print(f"Procesando dirección: {direccion}")
            
            latitud, longitud = self.geocodificar(direccion)
            
            if latitud and longitud:
                resultado = f"Dirección: {direccion}, Latitud: {latitud}, Longitud: {longitud}"
                print(resultado)
                self.guardar_resultado(direccion, latitud, longitud, "OK")
                return f"OK|{latitud}|{longitud}"
            else:
                error_msg = f"Error al geocodificar la dirección: {direccion}"
                print(error_msg)
                self.guardar_resultado(direccion, "", "", "ERROR")
                return f"ERROR|No se pudo geocodificar la dirección"
            
        except Exception as e:
            error_msg = f"ERROR: {str(e)}"
            print(error_msg)
            return error_msg            
   def geocodificar(self, direccion):
        """
        Geocodifica una dirección con reintentos
        """
        geolocator = get_geolocator()
        
        for attempt in range(max_retries):
            try:
                print(f"Intento {attempt + 1} para: {direccion}")
                location = geolocator.geocode(direccion)
                
                if location:
                    return location.latitude, location.longitude
                else:
                    print(f"No se encontraron resultados para: {direccion}")
                    return None, None
                    
            except Exception as e:
                print(f"Error en intento {attempt + 1}: {str(e)}")
                if attempt < max_retries - 1:
                    time.sleep(retry_delay * (attempt + 1))  # Aumentar delay progresivamente
                else:
                    print(f"Falló después de {max_retries} intentos")
                    return None, None
 
   def guardar_resultado(self, direccion, latitud, longitud, estado):
        """
        Guarda el resultado en el archivo CSV
        """
        try:
            with open(output_file, "a", newline="", encoding='utf-8') as csvfile:
                writer = csv.writer(csvfile)
                timestamp = time.strftime("%Y-%m-%d %H:%M:%S")
                nrocliente = self.value 
                writer.writerow([nrocliente,direccion, latitud, longitud, estado, timestamp])
        except Exception as e:
            print(f"Error al guardar en CSV: {str(e)}")
 
   def setValue(self, new_value):
      """
      Set Numero del cliente
      """
      try:
         self.value = new_value
         return
      except Exception as e:
         raise COMException(f"Error en el valor enviado: {str(e)}")
 
   def getValue(self):
      """
      Get Numero del cliente
      """
      try:
         return self.value if self.value is not None else "Value not set"
      except Exception as e:
         raise COMException(f"Error al obtener valor: {str(e)}")
      
   def url(self, Texto):
      try:
         import webbrowser
         webbrowser.open(Texto)
         return Texto
      
      except Exception as e:
         raise COMException(f"Error navegador: {str(e)}")      
 
def show_message(message, title="Informacion"):
   ctypes.windll.user32.MessageBoxW(0, message, title, 0x40)
 
def DllRegisterServer(silent=False):
   try:
      pythoncom.CoInitialize()
      win32com.server.register.UseCommandLine(Controller)
      message = "Objeto registrado exitosamente."
   except Exception as e:
      message = f"Error al registrar el objeto: {e}"
   finally:
      pythoncom.CoUninitialize()
   if not silent:
      show_message(message, "Objeto registrado")
 
def DllUnregisterServer(silent=False):
   try:
      pythoncom.CoInitialize()
      win32com.server.register.UnregisterServer(
         Controller._reg_clsid_,
         Controller._reg_progid_
      )
      message = "Objeto anulado exitosamente."
   except Exception as e:
      message = f"Error al anular el registro del objeto: {e}"
   finally:
      pythoncom.CoUninitialize()
   if not silent:
      show_message(message, "Objeto no registrado")
 
if __name__ == '__main__':
   import sys
   silent = False
   if len(sys.argv) > 1:
      if len(sys.argv) > 2:   
         if sys.argv[2] == '--silent':
            silent = True
      if sys.argv[1] == '--register':
         DllRegisterServer(silent)
      elif sys.argv[1] == '--unregister':
         DllUnregisterServer(silent)
      elif "/Automate" in sys.argv:
         import win32com.server.localserver
         win32com.server.localserver.serve([Controller._reg_clsid_])
   else:
         show_message("Use:\nelsisloc.exe --register\nelsisloc.exe --unregister\n--silent: Silent mode", "Ayuda")

# -*- mode: python ; coding: utf-8 -*-
 
import os
import sys
import time
import win32com
 
a = Analysis(
    ['elsisloc.py'],
    pathex=[],
    binaries=[
    (os.path.join(sys.prefix, 'Lib', 'site-packages', 'pywin32_system32', f'pythoncom{sys.version_info.major}{sys.version_info.minor}.dll'), '.'),
    (os.path.join(sys.prefix, 'Lib', 'site-packages', 'pywin32_system32', f'pywintypes{sys.version_info.major}{sys.version_info.minor}.dll'), '.')
    ],
    datas=[('elsisloc.py', '.')],
    hiddenimports=[
        'pythoncom',
        'win32com',
        'win32com.server',
        'win32com.server.register',
        'win32com.server.localserver',
        'pywintypes',
        'win32timezone',
        'ctypes',
    ],
    hookspath=[],
    hooksconfig={},
    runtime_hooks=[],
    excludes=[],
    noarchive=False,
)
pyz = PYZ(a.pure)
 
exe = EXE(
    pyz,
    a.scripts,
    a.binaries,
    a.datas,
    [],
    name='elsisloc',
    debug=False,
    bootloader_ignore_signals=False,
    strip=False,
    upx=True,
    upx_exclude=[],
    runtime_tmpdir=None,
    console=False,
    disable_windowed_traceback=False,
    argv_emulation=False,
    target_arch=None,
    codesign_identity=None,
    entitlements_file=None,
)

' =================================================================
' servidorCOM autor: @fastpho:
' Script: localizar_con_mapa.vbs
' Propósito: Probar el objeto COM, geocodificar una dirección
' y abrir la ubicación resultante en un mapa.
' =================================================================
 
' --- 1. Declaración de variables ---
Dim objGeo, direccion, resultado, partesResultado
Dim estado, latitud, longitud, mensaje
Dim askToOpenMap, mapURL, shell
 
' --- 2. Solicitar dirección al usuario ---
direccion = InputBox("Introduce la direccion a geocodificar:", "Geolocalizacion")
 
If direccion = "" Then
    MsgBox "No se ingreso ninguna direccion. El script finalizara.", vbExclamation, "Sin direccion"
    WScript.Quit
End If
 
' --- 3. Creación del Objeto COM ---
On Error Resume Next
Set objGeo = CreateObject("LocPyCOM.elsCOMObject")
On Error GoTo 0
 
' --- 4. Verificación y uso del objeto ---
If objGeo Is Nothing Then
    MsgBox "ERROR: No se pudo crear el objeto COM 'LocPyCOM.elsCOMObject'." & vbCrLf & vbCrLf & _
           "Por favor, asegurate de haber registrado el servidor COM.", vbCritical, "Error de Objeto"
Else
    ' Llamamos al método para obtener las coordenadas
    resultado = objGeo.CrearLocalizacion(direccion)
 
    ' Procesamos la respuesta que viene separada por "|"
    partesResultado = Split(resultado, "|")
    estado = partesResultado(0)
 
    If UCase(estado) = "OK" Then
        latitud = partesResultado(1)
        longitud = partesResultado(2)
        
        ' Mostramos el mensaje con el resultado exitoso
        mensaje = "Geocodificacion Exitosa" & vbCrLf & vbCrLf & _
                  "Latitud: " & latitud & vbCrLf & _
                  "Longitud: " & longitud
        MsgBox mensaje, vbInformation, "Resultado"
        
        ' Preguntamos al usuario si desea abrir el mapa
        askToOpenMap = MsgBox("¿Deseas abrir esta ubicacion en un mapa?", vbYesNo + vbQuestion, "Abrir Mapa")
 
        If askToOpenMap = vbYes Then
            ' Construye una URL de Google Maps moderna y confiable
            mapURL = "https://www.google.com/maps/search/?api=1&query=" & latitud & "," & longitud
            
            ' Abrimos la URL en el navegador por defecto
            Set shell = CreateObject("WScript.Shell")
            shell.Run mapURL
            Set shell = Nothing
        End If
    Else
        ' Mostramos el mensaje de error devuelto por el objeto COM
        mensaje = "La geocodificación fallo." & vbCrLf & vbCrLf & _
                  "Mensaje del servidor: " & partesResultado(1)
        MsgBox mensaje, vbExclamation, "Resultado con Error"
    End If
 
    ' Liberamos el objeto de la memoria
    Set objGeo = Nothing
End If