Enviar msg p/ uma dll

Question

Ol� pessoal, algu�m saberia me dizer como uma aplica��o pode enviar uma mensagem para uma thread que est� executando em uma dll?Antecipados agradecimentos !!!...

Nildo · Answer

Para fazer isso voc� deve criar um controle (no caso o Form) que ter� seu Handle, dentro da Thread. S� assim voc� poder� enviar mensagens para esse Form e seu Form vai capturar. Mas � claro, tudo isso invis�vel.

Mas depende do que voc� quer fazer pode utilizar FileMapping. Quer descrever a situa��o? Dependendo da situa��o eu te ensino a utilizar esse FileMapping.

Persist · Answer

Por exemplo:App.exe chama uma fun��o na dll que instancia um objeto descendente de TThread. A thread na dll fica executando um c�lculo x informado no par�metro da fun��o. Quando este c�lculo x chega num determinado ponto, a dll avisa a App.exe que chegou no ponto p atrav�s de um SendMessage com o Handle do Form de App.exe, tamb�m informado como par�metro na fun��o. At� a� beleza, a thread se comunica com App.exe.Acontece que App.exe tem que decidir como esse c�lculo prosseguir� ou at� mesmo terminar a execu��o da thread, dependendo do valor de WParam.S�o threads pq App.exe pode ser chamado v�rias vezes e at� mesmo um App.exe pode chamar a fun��o na dll para executar c�lculos diferentes.Pensei no Handle da thread, mas n�o v� forma de enviar msgs com ele.Pensei tamb�m no PostThreadMessage, mas ainda n�o o utilizei e n�o sei como funciona....

Nildo · Answer

Persist, quando voc� envia uma mensagem da DLL para o EXE, e o EXE deva responder, se eu n�o me engano voc� pode responder pelo LParam do SendMessage (se eu nao estiver enganado). N�o precisa ficar numa thread separada porque quando vc chama SendMessage da DLL pro EXE, na DLL s� vai passar pra pr�xima linha quando acabar de executar o CallBack do EXE.

Persist · Answer

[quote:a503093b84]N�o precisa ficar numa thread separada porque quando vc chama SendMessage da DLL pro EXE, na DLL s� vai passar pra pr�xima linha quando acabar de executar o CallBack do EXE.[/quote:a503093b84]Como assim thread separada?Eu queria ter um jeito de App.exe mandar uma msg para a mesma thread que enviou o SendMessage.Agora se App.exe puder modificar os par�metros do SendMessage e essa modifica��o refletir no retorno na dll, ent�o meu problema est� resolvido.Vou fazer um teste.Obrigado!!!...

Beppe · Answer

Para modificar um par�metro de SendMessage, passe o ponteiro para uma estrutura para LParam(ou WParam) e caste pra Integer.

Ou:
No seu thread, crie um handle de janela para que possa receber mensagens(veja na implementa��o de TTimer em ExtCtrls para um id�ia). Ent�o defina as novas mensagens que seram processadas por esta janela, mensagens enviadas pelo App.exe.

Existem outras t�cnicas esta � s� mais uma.

Persist · Answer

Ol� Beppe!Pensei nisso, em criar um Form �fantasma� na thread s� p/ poder receber mensagens, mas iria ser um quebra-galho e queria ver se existiria outra maneira.Outra coisa, vc disse em Cast p/ Integer; e se o par�metro for um THandle, ou algo do tipo que requeira um DWord?...

Beppe · Answer

Vc quer passar um THandle? Tipo, o thread manda um THandle e recebe outro de volta?

var
  H: THandle;
...
  H := ...;
  SendMessage(..., Integer(@H));
  ...H...
...

Para acessar o handle passado dentro do App.exe:

THandle(Pointer(LParam)^)

N�o importa o tipo de dados j� que est� passando um ponteiro, n�o os dados atuais. (importa se for string, variant ou interface, mas a� � outra hist�ria).

Nildo · Answer

[quote:673ca85e4c=�persist�]Ol� Beppe!Pensei nisso, em criar um Form �fantasma� na thread s� p/ poder receber mensagens, mas iria ser um quebra-galho e queria ver se existiria outra maneira.Outra coisa, vc disse em Cast p/ Integer; e se o par�metro for um THandle, ou algo do tipo que requeira um DWord?[/quote:673ca85e4c]Eu aconselho voc� a criar uma estrutura para o envio de mensagem. Quando ele disse castar para Inteiro ficaria assim:SendMessage( blablabla, Integer( SuaVariavel ), blablabla );onde SuaVariavel seria do tipo de sua estrutura. A DLL ficaria parada nessa linha e a execu��o agora passa para o EXE, e no EXE voc� faz as modifica��es necessarias nessa estrutura e vala que WParam := Integer( SuaEstrutua_Alterada )Estou meio ocupado para fazer um demo completo, mas � assim que se deve fazer....

Persist · Answer

Entend�, vc manda o endere�o da vari�vel convertido para um Integer.E este valor de endere�o nunca ultrapassa o High(Integer) ?...

Nildo · Answer

[quote:a8b6613ba0=�persist�]Entend�, vc manda o endere�o da vari�vel convertido para um Integer.E este valor de endere�o nunca ultrapassa o High(Integer) ?[/quote:a8b6613ba0]Nunca.Esse Integer( Pointeiro ) retorna a posi��o da mem�ria do PC onde est� esse ponteiro. Aqueles $FFFFFF que voc� v� � obtido assim:�$� + IntToHex( Integer( Ponteiro ), 6 )...

Beppe · Answer

N�o importa o valor como Integer, pq vc naum vai fazer aritm�tica nele. Na verdade, pode ser qualquer tipo num�rico de 32 bite, como Cardinal ou DWORD ou LParam....

Persist · Answer

Ok, pessoal muii�ssimo obrigado a todos. :D...

F�rum Enviar msg p/ uma dll #243456