串口打印机编程，求救

zhanjs

以下是测试打印机状态（kylix写的），打印都正常，就是isready不行，大家帮看看

print(s)就是往串口写字符串，win32代码正常，linux下我写的有什么问题？

1. 
   
2. function TComPrinter.IsReady: boolean;
   
3. 
   
4. {$IFDEF Win32}
   
5. var
   
6.   dStart: DWORD;
   
7.   s: string;
   
8. 
   
9.   dwErrors, dwRead: DWORD;
   
10.   comstat: PComStat;
    
11. 
    
12.   Data: Shortint;
    
13. 
    
14. begin
    
15.   result := false;
    
16.   if Copy(LowerCase(PrintCfg.Name), 1, 3) = 'mdt' then
    
17.   begin
    
18.     StopCom;
    
19.     StartCom;
    
20.     iniPrinter;
    
21.   end;
    
22.   s := PrintCfg.GetRealCmd(PrintCfg.ChkStatus);
    
23.   new(comstat);
    
24.   try
    
25.     dStart := GetTickCount;
    
26.     while true do
    
27.     begin
    
28.       if ClearCommError(hCommFile, dwErrors, comstat) then
    
29. 
    
30.         if not (fCtlHold in comstat.Flags) then
    
31.           break;
    
32.       if (GetTickCount - dStart) > 100 then
    
33.         exit;
    
34.     end;
    
35. 
    
36.     if not Print(s) then
    
37.       exit;
    
38.     while true do
    
39.     begin
    
40.       ClearCommError(hCommFile, dwErrors, comstat);
    
41.       if comstat.cbInQue > 0 then
    
42.         break;
    
43.       if (GetTickCount - dStart) > 200 then
    
44.         exit;
    
45.     end;
    
46.     Data := 0;
    
47. 
    
48.     if not ReadFile(hCommFile, Data, 1, dwRead, nil) then
    
49.     begin
    
50.       ClearCommError(hCommFile, dwErrors, comstat);
    
51.       exit;
    
52.     end;
    
53. 
    
54.   finally
    
55.     Dispose(comstat);
    
56.   end;
    
57.   if Copy(LowerCase(PrintCfg.Name), 1, 3) = 'mdt' then
    
58.     Result := Data = strtoint('$' + PrintCfg.PaperErr)
    
59.   else
    
60.     result := (Data and strtoint('$' + PrintCfg.PaperErr)) = 0;
    
61. end;
    
62. {$ENDIF}
    
63. {$IFDEF Linux}
    
64. var
    
65.   s:string;
    
66.   Data:Shortint;
    
67.   tpstart, tpend: timeval;
    
68.   timeuse: real;
    
69. 
    
70. begin
    
71. //  result:=true;
    
72. //  exit;
    
73.   result := false;
    
74.   if Copy(LowerCase(PrintCfg.Name), 1, 3) = 'mdt' then
    
75.   begin
    
76.     StopCom;
    
77.     StartCom;
    
78.     iniPrinter;
    
79.   end;
    
80.   s := PrintCfg.GetRealCmd(PrintCfg.ChkStatus);
    
81.   if not Print(s) then
    
82.     exit;
    
83.   gettimeofday(tpstart, nil);
    
84.   while __read(hCommFile,Data,1)<1 do
    
85.   begin
    
86.     gettimeofday(tpend, nil);
    
87.     timeuse := 1000000 * (tpend.tv_sec - tpstart.tv_sec) +
    
88.       tpend.tv_usec - tpstart.tv_usec;
    
89.     timeuse := timeuse / 1000000;
    
90.     if timeuse>200 then
    
91.       exit;
    
92.   end;
    
93.   if Copy(LowerCase(PrintCfg.Name), 1, 3) = 'mdt' then
    
94.     Result := Data = strtoint('$' + PrintCfg.PaperErr)
    
95.   else
    
96.     result := (Data and strtoint('$' + PrintCfg.PaperErr)) = 0;
    
97. 
    
98. end;
    
99. {$ENDIF}
    

复制代码