unit2.h

并口测试程序

//---------------------------------------------------------------------------

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
//---------------------------------------------------------------------------
class TOutputThread : public TThread
{            
private:
protected:
        void __fastcall Execute();
public:
        __fastcall TOutputThread(bool CreateSuspended);
        void __fastcall GetPulseHigh();
        void __fastcall Output();
};
//---------------------------------------------------------------------------
        void MySleep(DWORD dwMicrosecond)
        {
                LARGE_INTEGER frequence, privious, current, interval;
                QueryPerformanceFrequency(&frequence);
                interval.QuadPart = frequence.QuadPart * dwMicrosecond / 1000000;
                QueryPerformanceCounter( &privious );
                current = privious;
                while( current.QuadPart - privious.QuadPart < interval.QuadPart )
                QueryPerformanceCounter( &current );
        }
#endif