Ver Mensaje Individual
  #21  
Antiguo 17-04-2009
bactering bactering is offline
Miembro
 
Registrado: jul 2006
Posts: 19
Reputación: 0
bactering Va por buen camino
Aunque llega tarde:
En aplicaciones por el puerto paralelo para el manejo de circuitos basados en I2C uso la siguiente temporización y va muy bien.
La dejo ya que buscando otra cosa me encontre con este post
Código:
 
Procedure Dly5;
(* Delay of 5 uSec *)
Var     F                       : Int64;
        T_Start, T_Stop, T_Now  : Int64;
Begin
   QueryPerformanceCounter (T_Start);
   QueryPerformanceFrequency (F);
   T_Stop := T_Start + F * 5 Div 1000000;
   Repeat
      Application.ProcessMessages;
      QueryPerformanceCounter (T_Now)
   Until T_Now >= T_Stop
End;
Como se ve se puede variar la temporización a voluntad en la formulita del T_Stop.
Los Pcf 8574 estan probados y funcionando correctamente. Si hacen falta más librerías para el manejo las puedo subir.
Responder Con Cita