Guest FErnando Saboia Postado Junho 11, 2008 Denunciar Share Postado Junho 11, 2008 Estou quero compilar esse código:library CSOnline05;uses HTTPApp, ISAPIApp, Principal in 'Principal.pas' {WebModule1: TWebModule}, UnitSenha in 'UnitSenha.pas';{$R *.RES}exports GetExtensionVersion, HttpExtensionProc, TerminateExtension;begin Application.Initialize; Application.CreateForm(TWebModule1, WebModule1); Application.Run;end.Mas pelo CTRL + F9 apresenta esse erro.[Error] CSOnline05.dpr(16): Undeclared identifier: 'Application'[Error] CSOnline05.dpr(16): Missing operator or semicolon[Error] CSOnline05.dpr(17): Missing operator or semicolon[Error] CSOnline05.dpr(18): Missing operator or semicolonalguém poderia me ajudar.O erro é parado nessa linhabegin Application.Initialize; ( Linha que apresenta o Erro) Application.CreateForm(TWebModule1, WebModule1); Application.Run;end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 11, 2008 Denunciar Share Postado Junho 11, 2008 [Error] CSOnline05.dpr(16): Undeclared identifier: 'Application'[Error] CSOnline05.dpr(16): Missing operator or semicolon[Error] CSOnline05.dpr(17): Missing operator or semicolon[Error] CSOnline05.dpr(18): Missing operator or semicolonEsses erros são: Indentificador não declarado 'Application'Faltando operador ou ponto e virgulaA estrutura da sua dll não esta correta.Veja exemplos:http://www.portalprogramacao.org/forum/vie...hp?f=9&t=55http://br.answers.yahoo.com/question/index...28185342AA7Ivbmhttp://www.devmedia.com.br/articles/viewcomp.asp?comp=7902http://forum.devmedia.com.br/viewtopic.php...440a86095cab45ahttp://www.ramosdainformatica.com.br/art_r...es01.php?CDA=32abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Junho 12, 2008 Denunciar Share Postado Junho 12, 2008 OpaApplication se refere a um "Aplicativo" e fica na Unit FormsPorém como se trata de uma DLL não há necessidade dessa cláusulaO que voce tem que fazer é o seguintelibrary CSOnline05; uses HTTPApp, ISAPIApp, Principal in 'Principal.pas' {WebModule1: TWebModule}, UnitSenha in 'UnitSenha.pas'; {$R *.RES} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; end. Então se algum desses procedimentos que estão sendo exportados fizer o uso do WebModule, então você teria que criá-lo em tempo de execução ouu gerenciar o carregamento da DLL exemplo library CSOnline05; uses Windows, HTTPApp, ISAPIApp, Principal in 'Principal.pas' {WebModule1: TWebModule}, UnitSenha in 'UnitSenha.pas'; {$R *.RES} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; procedure DllMain(reason: integer); begin case reason of dll_process_attach: webmodule1 := twebModule1.Create; dll_process_detach: if assigned(WebModule1) then freeandnil(webmodule1); end; end; begin DllProc := @DllMain; DllProc(dll_process_attach); end.É uma base, mas pela estrutura que voce passou acredito que foi mexido os códigos, então com certezanão vai ser somente isso...abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Fernando Saboia Postado Junho 12, 2008 Denunciar Share Postado Junho 12, 2008 OpaApplication se refere a um "Aplicativo" e fica na Unit FormsPorém como se trata de uma DLL não há necessidade dessa cláusulaO que voce tem que fazer é o seguintelibrary CSOnline05; uses HTTPApp, ISAPIApp, Principal in 'Principal.pas' {WebModule1: TWebModule}, UnitSenha in 'UnitSenha.pas'; {$R *.RES} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; end. Então se algum desses procedimentos que estão sendo exportados fizer o uso do WebModule, então você teria que criá-lo em tempo de execução ouu gerenciar o carregamento da DLL exemplo library CSOnline05; uses Windows, HTTPApp, ISAPIApp, Principal in 'Principal.pas' {WebModule1: TWebModule}, UnitSenha in 'UnitSenha.pas'; {$R *.RES} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; procedure DllMain(reason: integer); begin case reason of dll_process_attach: webmodule1 := twebModule1.Create; dll_process_detach: if assigned(WebModule1) then freeandnil(webmodule1); end; end; begin DllProc := @DllMain; DllProc(dll_process_attach); end.É uma base, mas pela estrutura que voce passou acredito que foi mexido os códigos, então com certezanão vai ser somente isso...abraçoCara você foi perfeito, Deu certo na sua primeira opção Grande Abraco. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest FErnando Saboia
Estou quero compilar esse código:
library CSOnline05;
uses
HTTPApp,
ISAPIApp,
Principal in 'Principal.pas' {WebModule1: TWebModule},
UnitSenha in 'UnitSenha.pas';
{$R *.RES}
exports
GetExtensionVersion,
HttpExtensionProc,
TerminateExtension;
begin
Application.Initialize;
Application.CreateForm(TWebModule1, WebModule1);
Application.Run;
end.
Mas pelo CTRL + F9 apresenta esse erro.
[Error] CSOnline05.dpr(16): Undeclared identifier: 'Application'
[Error] CSOnline05.dpr(16): Missing operator or semicolon
[Error] CSOnline05.dpr(17): Missing operator or semicolon
[Error] CSOnline05.dpr(18): Missing operator or semicolon
alguém poderia me ajudar.
O erro é parado nessa linha
begin
Application.Initialize; ( Linha que apresenta o Erro)
Application.CreateForm(TWebModule1, WebModule1);
Application.Run;
end.
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.