FUNCTION
Como crio um function? quero fazer um programa servidor outro cliente, quero fazer um function no servidor que quando ele recebe o ´true´ do programa cliente ele faz uma serie de coisas...
Como fazer isso ?
Como fazer isso ?
Ropesca
Curtidas 0
Respostas
Cruz
05/07/2003
Visite: [url=http://www.ictec.kit.net]IC Tec Informática[/url]
Eu suponho que vc está trabalhando com um TRDMDataModule.
Se for o caso faça o seguinte:
No TRDMDataModule coloque a procedure:
Para fazer isso, se não estiver exibindo o codigo fonte do TRDMDataModule, pressione F12. Clique com o botão direito do mouse e selecione: Add to interface.
Escreva a procedure acima e pressione Ok.
No corpo da função coloque o código abaixo:
No programa cliente chame a função da seguinte maneira:
Assim quando o programa servidor receber o parâmetro ´1´ ele irá executar um monte de coisa, onde ´Um monte de coisa´ são as ações que vc quer executar.
Eu suponho que vc está trabalhando com um TRDMDataModule.
Se for o caso faça o seguinte:
No TRDMDataModule coloque a procedure:
procedure TRDMDataModule.FazUmMonteDeCoisa(n: OleVariant);SafeCall;
Para fazer isso, se não estiver exibindo o codigo fonte do TRDMDataModule, pressione F12. Clique com o botão direito do mouse e selecione: Add to interface.
Escreva a procedure acima e pressione Ok.
No corpo da função coloque o código abaixo:
procedure TRDMTeste.FazUmMonteDeCoisa(n: OleVariant);
begin
if(n=´1´) then
begin
Faz um monte de coisa;
end;
end;
No programa cliente chame a função da seguinte maneira:
DCOMConnection1.Appserver.FazUmMonteDeCoisa(´1´);
Assim quando o programa servidor receber o parâmetro ´1´ ele irá executar um monte de coisa, onde ´Um monte de coisa´ são as ações que vc quer executar.
GOSTEI 0