Badyinfo
Messages postés56Date d'inscriptionlundi 27 septembre 2010StatutMembreDernière intervention30 octobre 2011
-
15 juil. 2009 à 11:09
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention 7 novembre 2014
-
4 août 2009 à 12:29
Bonjour à tous!!
Voilà, j'aimerai créer un journal des événements qui enregistre exactement tous ce qui se passe....Par exemple:
---à 10:00 h envoie d'une requête ping vers le pc1 ( Mon programme fait un ping le problème n'est pas là)
---à 10:01 h ping réussi (ou ping echoué)
---à 10:05 h envoie d'un fichier 'Nom Fichier' vers le pc1
---à 10:10 h accusé de réception reçu
---..........
Voilà à peu prés ce que je cherche..
Merci de me répondre.
procedure TForm1.FormCreate(Sender: TObject);
begin
Log('toto');
Log('tata');
end;
initialization
if FileExists('c:\MyAppLog.log') then
begin
lpLog:= TFileStream.Create('c:\MyAppLog.log', fmOpenWrite);
lpLog.Seek(0, soFromEnd);
end
else
lpLog:= TFileStream.Create('c:\MyAppLog.log', fmCreate);
finalization
FreeAndNil(lpLog);
end.
Badyinfo
Messages postés56Date d'inscriptionlundi 27 septembre 2010StatutMembreDernière intervention30 octobre 2011 18 juil. 2009 à 16:06
Vous savez quoi? maintenant que j'ai utilisé votre code dans mon programme, je me rends compte que c exactement ce que je cherchais alors merci Mr rt15
jayala84
Messages postés1Date d'inscriptionlundi 3 août 2009StatutMembreDernière intervention 4 août 2009 4 août 2009 à 09:22
Bonjour,
Je suis nouveau avec ce langage de programmation (et aussi avec le français). J'aimerais pouvoir appeler ce code depuis tous les lieux de mon programme, qu'est-ce que je dois faire?
Merci pour votre collaboration.
Vous n’avez pas trouvé la réponse que vous recherchez ?