Leonardo Silva

Muito Obrigado Jhonas, Me ajudou muito! Agora entrou bem na cabeça o conceito!

Boa Tarde Jonas, Em primeiro lugar, obrigado pela resposta! então, a minha maior dificuldade é fazer com que ele apresente o resultado, não sei como faze-lo, alguma dica para que eu possa começar?

Ola Pessoal, estou estudando um pouco de Delphi e Orientação a Objeto, então peguei um exercicio e resolvi, faze-lo, porém estou muito perdido, poderiam me ajudar com algumas dicas? Segue Enunciado em anexo. e isso foi o que já fiz, não sei se esta certo, mas estou tentando aos poucos. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; {---------------Classe Transporte-----------------} type tTransporte = class private public nome : string; constructor Create; overload; constructor Create(nome : string); overload; procedure move (metros : Integer); end; {---------------Classe Carro-----------------} type tCarro = class(tTransporte) private public procedure pCarro; end; {---------------Classe Avião-----------------} type tAviao = class(tTransporte) private public procedure pAviao; end; implementation { Ttransporte } constructor tTransporte.Create; begin inherited; end; constructor tTransporte.Create(nome : string); begin Self.nome := nome; end; procedure tTransporte.move(metros : Integer); begin ShowMessage( nome + 'Moveu' + inttostr(metros) + 'm.'); end; { tCarro } procedure tCarro.pCarro; begin Self.nome := 'Prosche 911'; move(100); end; { tAviao } procedure tAviao.pAviao; begin Self.nome := 'Boing'; move(2500); end; end.

Jhonas, Fiz examente como me instruiu e ele da erro, Debuguei e quando ele chega na linha Ele da o Seguinte erro Recebo a mesma mensagen de erro quando ele tenta executar a linha No Aguardo, Abraço.

Fiz em um novo programinha para testar, porém ele so me retorna true, Você acha que eu vou ter que adicionar um Componente ICMP para fazer com que ele especifique o Status do comando DOS para verificação de True e false?

Quando ele acha o proceso ele me retorna o seguinte status Takt.exe (Nome do Processo) 2636 (ID do Processo) 0 (Coluna de alocamento do processo) 33,480 K (Memoria usada pelo processo). E quando não acha o processo ele não retorna nada.

Jhonas, ainda não consegui pensar em como irei coloca-lo em meu Programa. Devo criar uma função divendo que tal é o WinExec e depois adicionar um if then para criar o parametro Ou Adiciono o coando WinExec dentro da linha de Ping e depois especifico que se ele for True ele devera marcar determinada Panel? Grato.

Jhonas, eu utilizo o comando tasklist /S (IP) /U (Dominio/User) /P (Password) | FIND (Processo) Precisaria que se ele me retornace True ele fize-se determinada função caso contrario executaria outra, mas não sei como colocar esse comando no Delphi para executar.

Outra Duvida Pintando aqui :closedeyes: , Preciso fazer com que meu Software me envie um E-mail de Alerta sempre que o sistema estiver Offline, até ai tudo bem, mas para fazer isso terei que usar o ICMP? ou o IdPOP3? e como faço para ter uma logica basica para começar essa programação? já deixa eu adicionar mais uma aqui tambem =), Jhonas, tambem preciso verificar se determinada Programa esta sendo executado na maquina remota, além do Ping quero fazer essa verificação, você saberia me orientar de como fazer isso pelo Delphi, Pois por Pront de Comando eu Consigo mas não sei colocalo no Delphi. Grato.

Jhonas, Irei colocar um Menu para Modificar os IP quando necessario, voce acha aconselhavel eu fazer om que ele chame outra form e nessa forme eu monte um Menu para Configuração de IP's?

Jhonas, uma ultima pergunta, estou tentando colocar uma linha de comando que vai colorir determinada panel, porém tenho que adiciona-lo na função do botão, para que quando o programa faça a verificação, além de apresentar a mensagen de Online ou Offline, ele ainda tinja o panel que vai estar na formula com vermelho se for Offline ou verde se for Online, tentei inserir, mas só consigo o tingimento Vermelho, quando tento insirir o verde na parte do Online ele na erro. Grato.

Desculpe Jhonas, ele esta dando erro na linha 350, que é a linha do "case inc of" Há mais algun parametro a adicionar a ele?

Fiz a Modificação Jhonas, e estou recebendo a seguinte Error Flag [Error] Unit1.pas(348): '(' expected but 'OF' found.

Jhonas, Reescrevi o mesmo e o problema se resolveu, porém me deparo com outro problema agora, depois de quase pronto, resolvi trocar os Showmessage por Statusbar.panels para apresentar a mensagen de Online e Offline na status bar, usando timer para execução automatica, mas o programa roda normal, faz a função do Timer, das progressbar, da Ping e ate faz Café :closedeyes: , porém o bendito não me apresenta a Mensagen de Online ou Offline na Statusbar, Debuguei o programa e a tragetoria do programa esta normal, sem nenhum erro aparente, Irei posta o codigo aqui para dar uma olhada, mas não entendo o do porque ele não estar apresentando o mesmo.

Já Efetuei o Test, No CMD, ele me da a Reply Normal, porém no programa não.

Bom Dia, Criei um sistema para pingar algumas maquinas aqui na empresa, porém, executando ele em uma Faixa de IP ele funciona, porém na segunda faixa de IP ele sempre me retorna o valor false e não sei o que fazer, pois é estranho, deveria funcionar em ambas sem problemas, a duvida é, como fazer isso. Codigo. PS.: O Servidor possue duas placas de rede cada qual com uma faixa de IP Grato.