Tom's Guide > Forum > Programmation > [Résolu][DELPHI]Ping automatique sur des serveurs donnés

[Résolu][DELPHI]Ping automatique sur des serveurs donnés

Forum Programmation : [Résolu][DELPHI]Ping automatique sur des serveurs donnés

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

Bonjour,

Je suis actuellement entrain de faire un programme en delphi utilisant une base de données firebird
Le souci , dans un premier temps , c'est que je n'arrive pas à pinger de machine , ni à afficher le numéro de la machine pingée.
http://img92.imageshack.us/img92/5901/ping14pa.th.jpg
Le graphisme n'est pas poussé , car c'est le cadet de mes soucis.
Voici ici le pack du source contenant la base de données : télécharger
Composants utilisés : IdIcmpClient,IBODatabase,IBOQuery,DataSource
Voilà pour l'essentiel , sinon ce sont des boutons et composants classiques.

Ensuite viendront les problèmes d'affichage du temps de réponse et de la gestion d'historique (affichée sur une autre base).

Merci d'avance ;)

Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.

voilà j'ai déjà résolu une partie du problème , qui est d'afficher la machine pingée , dont voici le code (juste pour l'affichage):
Nota:Le Edit1.text remplace la listbox ping_serveur_num

procedure TForm1.PINGClick(Sender: TObject);
var
a:integer;
begin
a:=dbgrid1.Fields[0].AsInteger;
edit1.Text:=dbgrid1.Fields[2].AsString;

En effet , la première colonne de ma BDD est la clé , la deuxième colonne est le nom de la machine , la troisième colonne est l'adresse de la machine .

on se base sur la première colonne pour la selection:
-> a:=dbgrid1.Fields[0].AsInteger;
et en fonction de la selection , on affiche dans l'edit1.text ce qui se trouve dans la 3ème colonne de la ligne sélectionnée:
-> edit1.Text:=dbgrid1.Fields[2].AsString;

Voilà , c'est un bon début!

Répondre à razmo78

voilà le code complet du bouton 'Ping' qui permet de pinger le serveur choisi :

var
DateChaine: string;
datachaineping: string;
k:integer;
i:string;
a:integer;
begin
a:=dbgrid1.Fields[0].AsInteger;
edit1.Text:=dbgrid1.Fields[2].AsString;

i:=IBOQuery1.fieldbyname('cle_t_serveur').AsString;
PING.Font.Color:=clblack;
IdIcmpClient1.OnReply := IdIcmpClient1Reply;
IdIcmpClient1.ReceiveTimeout := 1000;
Ping.Enabled := False;
try
IdIcmpClient1.Host := edit1.Textfor[/b] k := 1 to spnPing.Value do begin
IdIcmpClient1.Ping(edit1.Textend[/b];
finally
Ping.Enabled := True;
end;

Répondre à razmo78
Tom's Guide > Forum > Programmation > [Résolu][DELPHI]Ping automatique sur des serveurs donnés
Aller à :

Il y a 459 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens