Changeset 36

Timestamp:

Aug 4, 2010, 9:15:16 AM (14 years ago)

Author:

george

Message:

• Přidáno: Třída generického seznamu (TGenericList) pro Free Pascal.

Files:

• Comm/CommPort.pas (modified) (7 diffs)
• Generics (added)
• Generics/GenericList.pas (added)
• Generics/Test.ico (added)
• Generics/Test.lpi (added)
• Generics/Test.lpr (added)
• Generics/Test.res (added)
• Generics/UMainForm.lfm (added)
• Generics/UMainForm.pas (added)

Comm/CommPort.pas

@@ -4 +4 @@
 {     barry@audit.kharkov.com       }
 
+// Modified date: 2010-07-29
+
 unit CommPort;
 
@@ -11 +13 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls,
   Forms, Dialogs, ExtCtrls;
+
+const
+  WaitTime = 10; 
 
 type
@@ -470 +475 @@
       LeaveCriticalSection(FComPort.WriteSection);
       if FComPort.FKillThreads then Break;
-      Sleep(10);
+      Sleep(WaitTime);
     end
-    else Sleep(10);
+    else Sleep(WaitTime);
   until FComPort.FKillThreads or Terminated;
   SetEvent(FComPort.wEvent);
@@ -509 +514 @@
   SetEvent(FComPort.rEvent);
   Repeat
-    if WaitForSingleObject(FcomPort.ReadReadyEvent, 500) = WAIT_OBJECT_0 then begin
+    if WaitForSingleObject(FcomPort.ReadReadyEvent, WaitTime) = WAIT_OBJECT_0 then begin
       if FComPort.FKillThreads then Break;
       if FComPort.Enabled then
@@ -595 +600 @@
     if FcomPort.FKillThreads then Break;
     OK := WaitCommEvent(FComHandle, FStatus, @SOL);
-    if Not OK then Sleep(10);
+    if Not OK then Sleep(WaitTime);
     if FcomPort.FKillThreads then Break;
     if (not OK) and (GetLastError = ERROR_IO_PENDING) then begin
@@ -725 +730 @@
     FKillThreads := False;
     StatusThread := TStatusThread.Create(Self, FMonitorEvents);
-    WaitForSingleObject(sEvent, 10);
+    WaitForSingleObject(sEvent, WaitTime);
     SetCommMask(FComHandle, EV_BREAK or EV_CTS or EV_DSR or EV_ERR or
                        EV_RING or EV_RLSD or EV_RXCHAR or EV_TXEMPTY);
     ReadThread := TReadThread.Create(Self);
-    WaitForSingleObject(rEvent, 10);
+    WaitForSingleObject(rEvent, WaitTime);
     WriteThread := TWriteThread.Create(Self);
-    WaitForSingleObject(wEvent, 10);
+    WaitForSingleObject(wEvent, WaitTime);
     FOpen := True;
     if Assigned(FOnOpen) then
@@ -883 +888 @@
 {Errorflags for OnErrorSignal
  CE_BREAK       The hardware detected a break condition.
- CE_DNS         Windows 95 only: A parallel device is not selected.
+ CE_DNS         Windows 95 only: A parallel device is not selected.
  CE_FRAME       The hardware detected a framing error.
- CE_IOE         An I/O error occurred during communications with the device.
+ CE_IOE         An I/O error occurred during communications with the device.
  CE_MODE        The requested mode is not supported, or the hFile parameter
                 is invalid. If this value is specified, it is the only valid error.
- CE_OOP         Windows 95 only: A parallel device signaled that it is out of paper.
+ CE_OOP         Windows 95 only: A parallel device signaled that it is out of paper.
  CE_OVERRUN     A character-buffer overrun has occurred. The next character is lost.
- CE_PTO         Windows 95 only: A time-out occurred on a parallel device.
+ CE_PTO         Windows 95 only: A time-out occurred on a parallel device.
  CE_RXOVER      An input buffer overflow has occurred. There is either no
                 room in the input buffer, or a character was received after