Debugar WebService no Delphi XE2 com Windows 7
Parecia impossível, mas depois que eu consegui, vi que não tinha tanto mistério... Créditos ao Alexandre Machado [1]
- Registrando Aplicação no IIS
1 - Crie seu diretório virtual no "Default Web Site".
2 - Toda aplicação do "Default Web Site" deve utilizar o mesmo pool de aplicação "DefaultAppPool".
- Configurando WebService no Delphi XE2
Primeiramente, você deverá executar o Delphi como Administrador. Aconselho deixar esta opção marcada nas propriedades do executável, caso contrário, teria que clicar com o direito do mouse e mandar executar desta forma.
Em Project/Options, vá até a guia Debugger ...
1 - Aponte o w3wp do system 32 no campo Host Application.
2 - Defina o parâmetro -debug no campo Parameters.
Caso você não tenha registrado a aplicação no IIS como foi sugerido no início, você terá que passar mais parâmetros:
- Nome do WebSite: -s "WebSiteName"
- Nome do ApplicationPool: -ap "TheAppPoolName", mas isso não funciona do IIS 7 para frente, portanto o ideal é manter o DefaultAppPool.
- Pronto!
Agora basta parar o IIS pelo painel de controle e dar um Run (com debug) na aplicação no Delphi.
Com isso o Delphi levanta o w3wp e o mantém em estado de debug.
Se você não parar o IIS, após clicar em run no Delphi, vai avisar que o w3wp já está executando.