高丽LK607驱动

高丽LK607驱高丽LK607驱高丽LK607驱高丽LK607驱

#include
#include

int PASCAL Wcard（LPSTR inbLPSTR istr）;
int PASCAL Rcard（LPSTR inbLPSTR instr）;


int PASCAL Wcard（LPSTR inbLPSTR istr）
{
  DCB dcb;
  COMSTAT comstat;
  HANDLE hd;

  DWORD dwError;
  DWORD dwBytes;
  int retv=0;
  int i=0stl=0;
  long t1t2;
  unsigned char bcc=0instr[300]nb[]=“COM2: baud=9600 “str[300];
  char setting[]=“COM2: baud=9600 parity=O data=7 stop=1“comn[]=“COM2“;
  char *ps;

  lstrcpy（nbinb）;
  AnsiUpper（istr）;
  lstrcpy（str+1istr）;
  comn[3]=nb[3];
  lstrcpy（settingnb）;
  lstrcat（setting“ parity=O data=7 stop=1“）;
  str[0]=2;

  while（1）
  {
   i++;
   bcc=str[i]^bcc;
   if（str[i]==0）
    {
     str[i]=3;
     bcc=3^bcc   ;
     str[i+1]=bcc  ;
     str[i+2]=0 ;
     stl=i+2 ;
     break ;
    }
  }

  hd=CreateFile（ comn GENERIC_READ | GENERIC_WRITE
                  0                    // exclusive access
                  NULL                 // no security attrs
                  OPEN_EXISTING
                  FILE_ATTRIBUTE_NORMAL //|FILE_FLAG_OVERLAPPED // overlapped I/O
                  NULL ）;

  if（hd!=INVALID_HANDLE_VALUE）
        retv=1;   
  else
   {    retv=-1;    goto end;   }
  
  if（GetCommState（hd&dcb）==TRUE）
       retv=1;
  else
   {    retv=-3;    goto end;   }

  if（BuildCommDCB（setting&dcb）==TRUE）
        retv=1;   
  else
   {    retv=-2;    goto end;   }

  dcb.fRtsControl=RTS_CONTROL_ENABLE;
  if（SetCommState（hd&dcb）==TRUE）
       retv=1;
  else
   {    retv=-3;    goto end;   }
    
  WriteFile（hdstrstl&dwBytesNULL）;
  ps=instr;
  t1=GetTickCount（）;
  t2=0;
  GetAsyncKeyState（VK_ESCAPE）;		//clear the ESC pressed events
  while（t2<=100）
  {  
   if（GetAsyncKeyState（VK_ESCAPE）!=0）
    {
     retv=-5;
     goto end;
    }
   ClearCommError（hd&dwError&comstat）;
   if（comstat.cbInQue!=0）
    {
     ReadFile（hdpscomstat.cbInQue&dwBytesNULL）;
     ps=ps+comstat.cbInQue;
     t1=GetTickCount（）;
    }
   if（ps!=instr） t2=GetTickCount（）-t1;
  }

  *ps=0;
  if（lstrcmp（strinstr）==0） retv=1;
  else retv=-4;

  dcb.fRtsControl=RTS_CONTROL_DISABLE;
  SetCommState（hd&dcb）;
end:
  FlushFileBuffers（hd）;
  EscapeCommFunction（hdCLRRTS）;
  CloseHandle（hd）;
  return retv;
}


int PASCAL Rcard（LPSTR inbLPSTR instr）
{
  DCB dcb;
  COMSTAT comstat;
  HANDLE hd;
  DWORD dwError;
  DWORD dwBytes;
  int i=0retv=0;
  long t1t2;
  unsigned char nb[]=“COM2: baud=9600“;
  char setting[]=“COM2: baud=9600 parity=O data=7 stop=1“comn[]=“COM2“;
  unsigned char *ps;

  lstrcpy（nbinb）;
  comn[3]=nb[3];
  lstrcpy（settingnb）;
  lstrcat（setting“ parity=O data=7 stop=1“）;

  hd=CreateFile（ comn GENERIC_READ | GENERIC_WRITE
                  0                    // exclusive access
                  NULL                 // no security attrs
                  OPEN_EXISTING
                  FILE_ATTRIBUTE_NORMAL //|FILE_FLAG_OVERL

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        194  1999-07-05 17:02  高丽LK607驱动\delphi\LK607CP1.dpr

     文件       1421  1999-07-05 10:17  高丽LK607驱动\delphi\lk607cp2.dfm

     文件      10848  2002-08-21 09:38  高丽LK607驱动\delphi\lk607cp2.pas

    ..A..H.         9  2006-09-15 08:59  高丽LK607驱动\delphi\_desktop.ini

     文件         12  1998-02-20 16:23  高丽LK607驱动\dos\ELK607\BAS\4334

     文件         12  1992-07-17 02:41  高丽LK607驱动\dos\ELK607\BAS\COLOR.FIL

     文件      40314  1997-06-04 10:42  高丽LK607驱动\dos\ELK607\BAS\LK607A.BAS

     文件      81268  1997-06-04 10:55  高丽LK607驱动\dos\ELK607\BAS\LK607A.EXE

     文件      75185  1997-06-02 16:02  高丽LK607驱动\dos\ELK607\BAS\LK607A.OBJ

     文件         32  1997-10-14 17:07  高丽LK607驱动\dos\ELK607\BAS\MRW600.FIL

    ..A..H.         9  2006-09-15 08:59  高丽LK607驱动\dos\ELK607\BAS\_desktop.ini

     文件       3680  1997-10-09 14:36  高丽LK607驱动\dos\ELK607\C\DEMO607.C

     文件      14238  1997-10-09 14:39  高丽LK607驱动\dos\ELK607\C\DEMO607.EXE

    ..A..H.         9  2006-09-15 08:59  高丽LK607驱动\dos\ELK607\C\_desktop.ini

     文件         12  1992-07-17 02:41  高丽LK607驱动\dos\ELK607\COLOR.FIL

     文件      60254  1997-11-28 16:34  高丽LK607驱动\dos\ELK607\DLL16\LK607W.BSC

     文件       3642  1997-10-16 16:37  高丽LK607驱动\dos\ELK607\DLL16\LK607W.C

     文件        518  1997-08-29 11:25  高丽LK607驱动\dos\ELK607\DLL16\LK607W.DEF

     文件       4096  1997-11-28 16:34  高丽LK607驱动\dos\ELK607\DLL16\LK607W.DLL

     文件       1536  1997-11-28 16:34  高丽LK607驱动\dos\ELK607\DLL16\LK607W.LIB

     文件       1898  1997-11-28 16:19  高丽LK607驱动\dos\ELK607\DLL16\LK607W.MAK

     文件      15437  1997-11-28 16:34  高丽LK607驱动\dos\ELK607\DLL16\LK607W.MAP

     文件       2018  1997-11-28 16:34  高丽LK607驱动\dos\ELK607\DLL16\LK607W.OBJ

     文件          0  1997-11-28 16:34  高丽LK607驱动\dos\ELK607\DLL16\LK607W.SBR

     文件       1459  1997-12-15 16:17  高丽LK607驱动\dos\ELK607\DLL16\LK607W.TXT

     文件        107  1997-11-28 16:37  高丽LK607驱动\dos\ELK607\DLL16\LK607W.VCW

     文件        170  1997-11-28 16:37  高丽LK607驱动\dos\ELK607\DLL16\LK607W.WSP

    ..A..H.         9  2006-09-15 08:59  高丽LK607驱动\dos\ELK607\DLL16\_desktop.ini

     文件       4330  1997-12-15 14:42  高丽LK607驱动\dos\ELK607\DLL95\LK607W32.C

     文件       4298  1997-12-10 09:59  高丽LK607驱动\dos\ELK607\DLL95\LK607W32.C1

............此处省略73个文件信息