EnTech Taiwan EnTech Taiwan
July 22, 2017, 08:50:02 AM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News:
 
   Home   Help Search Login Register  
Pages: [1]
  Print  
Author Topic: TVichHW Blue screen  (Read 2855 times)
fr2201

Posts: 1


« on: January 14, 2011, 03:58:26 AM »

This code brings a blue screen under XP after 49 application start-end loops:

    Application start
    HW32 := OpenTVicHW32(HW32, 'TVICHW32', 'TVicDevice0');
    if (HW32 = 0) or not GetActiveHW(HW32) then
     showmessage('error open')
     else

     try
       bb:=GetPortByte(HW32, $378);//LPT1  (independent from port number)
       setPortByte(HW32, $378,bb);

     finally
      CloseTVicHW32(HW32)
     end;
     Application end


Logged
Pages: [1]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.15 | SMF © 2006-2008, Simple Machines Valid XHTML 1.0! Valid CSS!