WebSnap Intraweb (Como chamar mais de um PageForm)

Question

:shock: Bom dia galera,Bom aqui vai mais um de meus problemas. Tenho uma aplica��o WebSnap com intraweb. Enquanto tenho apenas um formulario intraweb (IWPageForm) trabalho normalmente. O problema � qu...

Czapelini · Answer

Se entendi a sua pergunta, vc quer trabalhar com m�ltiplos formul�rios com intraweb certo?

Vamos supor que vc tem dois formul�rios (com os seguintes nomes):
Form1:Principal
Form2: O que vc quer chamar � partir do principal

No bot�o (ou link) do form1 que vai chamar o form2 vc escreve o seguinte c�digo:

[b:fdaa5de4b4]Var
formulario02: TFMForm2
Begin
formulario02:=TFMForm2.Create(WebApplication);
formulario02.Show;
end;[/b:fdaa5de4b4]

Se vc precisar retornar ao principal, no bot�o de fechar utilize: Hide
Vc tamb�m dever� destruir o formularios com Release se precisar retornar para ele ap�s algum tempo.

Esse exemplo foi baseado no livro Delphi7 internet e banco de dados do Facunte (pag303);
espero ter ajudado
Abra�os

Castor Troy · Answer

:D Usei este c�digo s� que mesmo assim n�o consigo acessar outro form. Parece que ele chama sempre o mesmo. Ser� que o problema estano websanap?. Para fazer esta aplica��o utilizei um websnap application ([b:aedc6c5b6e]com pageproducer, webappcomponents, applicationadapter, endusersessionadapter, pagedispatcher, adapterdispatcher, sessionsservice, webuserlist, webdispatcher, iwmodulecontroller[/b:aedc6c5b6e]), depois inseri um websnap page module ([b:aedc6c5b6e]com um iwpageproducer com o c�digo VForm := tformPage1.Create(AWebApplication);[/b:aedc6c5b6e]) e um pageform do intraweb com uma imagem e um bot�o para chamar outro form. (pro outro form coloquei outro websnap page module com o c�digo com um iwpageproducer com o c�digo VForm := tformPage2.Create(AWebApplication); Tem alguma coisa errada?

Desde j� muito obrigado,
Davi
Piracicaba, SP

Czapelini · Answer

Ol� Davi,Sinto muito mais meus conhecimentos em programa��o para web com delphi est�o limitados ao Intraweb.Nunca utilizei WebSnap, portanto, n�o sei te responder.S� sei que em uma aplica��o intraweb pura essa ritina funciona.Boa sorte!!!...

Castor Troy · Answer

:D Muito obrigado, continuarei tentando!Davi :)...

Castor Troy · Answer

:D Caro amigo Cl�vison,Tentei uma aplica��o intraweb (apache 2 DSO), com o apache funcionando direito (eu acho, pelo menos n�o d� nenhum pau). Quando rodo a aplica��o no delphi � apresentado o seguinte erro:[b:db6e9ed5aa]Normalmente � permitida apenas uma utiliza��o de cada endere�o de soquete . :make_sock: could not bind to address 0.0.0.0:0 no listening sockets available, shuting downunable to open logs[/b:db6e9ed5aa]Voc� j� viu isso? Quando tudo funciona certinho o que o delphi gera? um .exe? (� que nunca vi uma aplica��o apache 2 DSO rodando e n�o acho exemplos)Atenciosamente,Davi - Piracicaba - SP...

Czapelini · Answer

Ol� amigo,O que fa�o, � criar a aplica��o StandAlone e ap�s os testes converter para ISAPI, pois utilizo o IIS.Em ISAPI � gerado uma DLL que coloco no servidor e pronto.Para aplica��es APACHE 2 DSO, acredito que n�o deva ser gerado EXE.Para converter a aplica��o de standAlone para outros, utilizo um plugIn desenvolvido por Guinter (editor da revista clube delphi). Mas tamb�m � poss�vel fazer a convers�o sem esse plugIn.N�o me lembro como, mas aqui no f�rum tem bastante coisa a respeito...Desculpe a demora para responder, mas n�o sei porque eu n�o estou recebendo e-mails com aviso de respostas nos t�picos....Um abra�o e se quizer mais detalhes, poderemos nos comunicar por e-mail.At� mais!...

F�rum WebSnap Intraweb (Como chamar mais de um PageForm) #207976