Error : El Objeto no está conectado al Servidor

[guillotmarc]

Tengo un problema al ejecutar una aplicación Delphi 6 sobre Windows 7 en un ordenador determinado (en otros ordenadores Windows 7 funciona perfectamente).

Ayer lo instalé y se ejecutaba sin problemas. Pero esta mañana me informan de que al arrancar sale un error : "El objeto no está conectado al Servidor".

La Splash Screen de la aplicación aparece sin problemas (mostrando datos de la base de datos, Firebird 2.05 en la misma máquina, por lo que la conexión con la base de datos funciona perfectamente), pero no llega a mostrar el formulario principal, salta este error.

Entiendo de que no puede cargar un servidor COM del sistema operativo, pero no soy capaz de identificar el módulo en cuestión para poder intentar reinstalarlo o repararlo.

Os dejo una copia del Log del Error de la MadExcept, a ver si alguien más ducho que yo en el tema me puede ayudar a identificar mejor el problema.

Gracias.

date/time : 2010-04-15 12:59
computer name : --
user name : Rosa Maria
operating system : Windows NT New Service Pack 2 build 6002
system language : Spanish
system up time : 1 hour 26 minutes
program up time : 7 seconds
physical memory : 365/954 MB (free/total)
free disk space : (C 30,77 GB
process id : $c00
executable : iDATA_Opticas.exe
exec. date/time : 2010-04-15 12:59
version : 4.5.9.3
madExcept version : 2.7b
exception class : EOleSysError
exception message : El objeto no está conectado al servidor.

main thread ($380):
004f2019 +00 iDATA_Opticas.exe
765fd0d7 +10 kernel32.dll BaseThreadInitThunk

thread $fa4 (TTimerThread):
773d5e74 +00 ntdll.dll KiFastSystemCallRet
773d4774 +0a ntdll.dll NtDelayExecution
765f993e +4c kernel32.dll SleepEx
>> created by main thread ($380) at:
765fd0d7 +10 kernel32.dll BaseThreadInitThunk

thread $fe0:
773d5e74 +00 ntdll.dll KiFastSystemCallRet
773d50a4 +0a ntdll.dll NtRemoveIoCompletion
765fd0f5 +23 kernel32.dll GetQueuedCompletionStatus
>> created by main thread ($380) at:
765fd0d7 +10 kernel32.dll BaseThreadInitThunk

thread $b48:
773d5e74 +00 ntdll.dll KiFastSystemCallRet
773d4774 +0a ntdll.dll NtDelayExecution
765f993e +4c kernel32.dll SleepEx
765b1c5d +0a kernel32.dll Sleep
>> created by main thread ($380) at:
765fd0d7 +10 kernel32.dll BaseThreadInitThunk

modules:
00400000 iDATA_Opticas.exe 4.5.9.3 C:\iDATA Opticas
02910000 dbexpint.dll C:\iDATA Opticas
10000000 fbclient.dll 2.0.1.12855 C:\iDATA Opticas
4dae0000 Midas.dll 6.0.10.157 C:\Windows\system32
685d0000 olepro32.dll 6.0.6002.18005 C:\Windows\system32
6aee0000 HHCtrl.OCX 6.0.6001.18000 C:\Windows\system32
6af70000 UNIDRVUI.DLL 0.3.6002.18005 C:\Windows\system32\spool\DRIVERS\W32X86\3
6e2c0000 RICHED20.DLL 5.31.23.1229 C:\Windows\system32
70920000 RICHED32.DLL 6.0.6001.18000 C:\Windows\system32
72480000 oledlg.dll 6.0.6001.18000 C:\Windows\system32
724c0000 rasadhlp.dll 6.0.6000.16386 C:\Windows\system32
724d0000 pnrpnsp.dll 6.0.6001.18000 C:\Windows\system32
72500000 winrnr.dll 6.0.6002.18005 C:\Windows\System32
72580000 UNIDRV.DLL 0.3.6002.18005 C:\Windows\system32\spool\DRIVERS\W32X86\3
72650000 napinsp.dll 6.0.6001.18000 C:\Windows\system32
726d0000 winspool.drv 6.0.6002.18005 C:\Windows\system32
72a90000 wsock32.dll 6.0.6001.18000 C:\Windows\system32
74480000 NLAapi.dll 6.0.6001.18000 C:\Windows\system32
744c0000 OLEACC.dll 4.2.5406.0 C:\Windows\system32
74500000 winmm.dll 6.0.6002.18005 C:\Windows\system32
74770000 comctl32.dll 6.10.6002.18005 C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.6002.18005_none_5cb72f96088b0de0
74a70000 uxtheme.dll 6.0.6001.18000 C:\Windows\system32
74d00000 wshtcpip.dll 6.0.6001.18000 C:\Windows\System32
74d40000 NTMARTA.DLL 6.0.6002.18005 C:\Windows\system32
74dc0000 rsaenh.dll 6.0.6002.18005 C:\Windows\system32
75040000 mswsock.dll 6.0.6002.18005 C:\Windows\System32
750b0000 version.dll 6.0.6002.18005 C:\Windows\system32
75210000 dhcpcsvc6.DLL 6.0.6002.18005 C:\Windows\system32
75240000 WINNSI.DLL 6.0.6001.18000 C:\Windows\system32
75250000 dhcpcsvc.DLL 6.0.6002.18005 C:\Windows\system32
75290000 IPHLPAPI.DLL 6.0.6002.18005 C:\Windows\system32
75430000 mpr.dll 6.0.6002.18005 C:\Windows\system32
754b0000 SAMLIB.dll 6.0.6002.18005 C:\Windows\system32
754d0000 DNSAPI.dll 6.0.6002.18005 C:\Windows\system32
758b0000 Secur32.dll 6.0.6002.18051 C:\Windows\system32
75980000 PSAPI.DLL 6.0.6000.16386 C:\Windows\system32
75a20000 shell32.dll 6.0.6002.18005 C:\Windows\system32
76530000 USP10.dll 1.626.6002.18005 C:\Windows\system32
765b0000 kernel32.dll 6.0.6002.18005 C:\Windows\system32
76690000 ole32.dll 6.0.6002.18005 C:\Windows\system32
767e0000 WLDAP32.dll 6.0.6002.18005 C:\Windows\system32
76830000 user32.dll 6.0.6002.18005 C:\Windows\system32
768d0000 RPCRT4.dll 6.0.6002.18024 C:\Windows\system32
76b30000 WS2_32.dll 6.0.6001.18000 C:\Windows\system32
76b60000 comdlg32.dll 6.0.6002.18005 C:\Windows\system32
76be0000 IMM32.DLL 6.0.6002.18005 C:\Windows\system32
76c00000 msvcrt.dll 7.0.6002.18005 C:\Windows\system32
76cb0000 ADVAPI32.dll 6.0.6002.18005 C:\Windows\system32
76d80000 MSCTF.dll 6.0.6002.18005 C:\Windows\system32
76e50000 LPK.DLL 6.0.6002.18051 C:\Windows\system32
76e60000 SHLWAPI.dll 6.0.6002.18005 C:\Windows\system32
76ec0000 iertutil.dll 8.0.6001.18904 C:\Windows\system32
770b0000 wininet.dll 8.0.6001.18904 C:\Windows\system32
771a0000 CLBCatQ.DLL 2001.12.6931.18000 C:\Windows\system32
77230000 urlmon.dll 8.0.6001.18904 C:\Windows\system32
77370000 ntdll.dll 6.0.6002.18005 C:\Windows\system32
774a0000 GDI32.dll 6.0.6002.18005 C:\Windows\system32
774f0000 oleaut32.dll 6.0.6002.18005 C:\Windows\system32
775b0000 NSI.dll 6.0.6001.18000 C:\Windows\system32
775c0000 Normaliz.dll 6.0.6000.16386 C:\Windows\system32
7c340000 MSVCR71.dll 7.10.3052.4 C:\iDATA Opticas

disassembling:
004f2019 sub_4f2019: ; function entry point
004f2019 > pop ebx
004f201a ret

[marcoszorrilla]

Hola Marc:

Por qué no pruebas a instalar Delphi en esa máquina y correr el programa desde Delphi siempre suele darte más información en que línea exacta falla etc...


Un Saludo.

[guillotmarc]

La verdad es que no entiendo porqué las MadExcept no me marcan la línea del error (aunque mucho me temo que será en el mismo Create del Formulario Principal), pero no puedo instalar Delphi en ese Ordenador, es de un cliente (que además está en otra ciudad).

Por el error estoy seguro de que reinstalando Windows se solucionaría, pero antes de tener que llegar a eso me gustaría intentar reparar el problema.

Gracias Marcos.

[yapt]

Yo uso EurekaLog. Porque no pruebas a bajar la demo (30 dias) y tratas de que te indiquen la linea que falla ? A ver si hay mas suerte que con las MadExcept.

El otro día leí que delphi tiene un Remote Debugger (la verdad es que no tenia ni idea) y que puedes hacer debug (linea a linea) en una máquina remota. Pero no tengo ni idea de como funciona.

Saludos.

[Casimiro Notevi]

Empezado por yapt

[..]El otro día leí que delphi tiene un Remote Debugger (la verdad es que no tenia ni idea) y que puedes hacer debug (linea a linea) en una máquina remota. Pero no tengo ni idea de como funciona.
Saludos.

Sí, yo lo he usado en varias ocasiones, tres veces, para ser exactos, y salvo la lentitud por internet, me fue muy útil para unos casos del estilo de este en las que no puedes ir al cliente ni instalarle delphi.

[yapt]

Una guia rápida de uso ????

(por pedir, que no quede)

[Casimiro Notevi]

Lo he usado unas pocas veces, muy separadas en el tiempo, la última vez fue hace 3 ó 4 años para solucionar un problema con un cliente de Valencia, yo estoy en Málaga.
Lo malo es que no tomé notas de cómo hacerlo porque por aquella época iba siempre "a la carrera", tenía varias llamadas más que atender y me dije que cuando terminara de atender a todos los clientes me pondría a escribir una guía de cómo hacerlo, por si volvía a ser necesario en el futuro.
Evidentemente, con el trabajo diario, nunca escribí esa guía , así que explicaré lo que recuerdo:

1. Instalar el remote debug, viene con todas las versiones de delphi
2. En project/options/linker hay que marcar "include remote debug symbols"
3. Compilar el programa
4. Copiar el ejecutable y el fichero creado .rsm en el equipo remoto
5. Con el código fuente abierto, ir a Run/parameters/remote, poner la ruta local donde se haya grabado el ejecutable y la IP del equipo remoto (si está detrás de un router, habrá que poner la IP del router y este debe tener una redirección (NAT) a la IP local del equipo que vamos a conectar), igual que cualquier otra conexión de control remoto normal.
6. Marcar "Debug project on remote machine"
7. Pulsar "Load"
8. y listo... paciencia, a esperar...

Esto es lo que he podido recordar haciendo ahora una prueba por red local, espero que sirva de "base" para que podáis probar y depurar los pasos hasta que os funcione, siento no haberlo anotado todo en su día, pero son las cosas que pasan cuando hay mucha desorganización en la empresa y estás solo, los demás estaban todos de vacaciones y estaba yo totalmente solo ese verano, lo recuerdo porque me iba a la cafetería yo sólo con el periódico y no estaban mis compañeros hablando de fútbol y baloncesto, que es de lo único que hablan , qué descanso!!!

[guillotmarc]

Muchas gracias, probaré primero el EurekaLog, y si no consigo más información miraré a ver que se puede hacer con el Remote Debugger.

Gracias a todos.

[yapt]

Casimiro Notevi, esta es una perfecta guia para empezar. Si puedo probarlo, trataré de hacer una guia (con capturas de pantalla y eso), aunque el tiempo... siempre el tiempo.....

Bueno, guillotmarc, que tengas suerte. Ya nos contarás como acaba.

Saludos.