Async32 dla Delphi 6! :( Kompilacja źródeł z D3 na D6

Cytat:

******************************************************************************
VARIAN ASYNC32 COMPONENT v1.26
(c) VARIAN SOFTWARE SERVICES NL 1996-1997
ALL RIGHTS RESERVED
******************************************************************************

Subject: Async32 Component
Version: 1.25
Platform: Delphi 3, Win95, NT
Date: 2 June 1997
Last update: 16st December 1997
Release: Freeware, just let us know what you think of it....

if you make any modifications to the source, please send us a copy.
We will verify your changes and give you proper credit when included.

Please send any questions, remarks or suggestions to our following
address: Varian(_at_)worldaccess.nl

See WHATSNEW.TXT for the latest updates...

----------------------------------------------------------------------------
Our thanks goes to all the people who helped creating and
testing this component for their support and suggestions.

VARIAN(_at_)WORLDACCESS.NL
----------------------------------------------------------------------------


***

Cytat:

*******************************************************************************
VARIAN ASYNC32 COMPONENT v1.26
(c) VARIAN SOFTWARE SERVICES NL 1996-1997
ALL RIGHTS RESERVED
*******************************************************************************


** Version 1.26

- First, our special thanks goes to:

Laco Laszlo
Czech Republic
E-mail: lacola(_at_)usa.net

David J Rose
Senior Software Engineer
NexSys
E-mail: DavidRose(_at_)nexsys.demon.co.uk

and all the others who contributed their suggestions...


- implementation of Exceptions and Handling

- Removed OnOpenEvent, Error parameter replaced by exceptions.
ProviderSubtype parameter replaced by public property

- Fixed write statement bug by setting the WriteCommTimeouts <> 0

- Write statement now reports the correct number of bytes send

- The read and write statements now report an errorcode -1 when IO is pending
instead of returning zero bytecount. This gives the application the
opportunity to simply resend or cancel the operation.

- Moved the XonChar and XOffChar to a new class object "TCommEventChars"

- Changed properties WriteBufferSize, ReadBufferSize in WriteBufSize, ReadBufSize.

- Removed all numeric "32" references, TComm32 is now called TComm.

- Changed CommEscapeFunctions DTR, RTS, BREAK, XON functions in procedures
procedure SetDTRState(State: Boolean);
procedure SetRTSState(State: Boolean);
procedure SetBREAKState(State: Boolean);
procedure SetXONState(State: Boolean);

- Added help documentation regarding properties, methods and events.

- Some internal syntaxis rewrites


HISTORY


* VERSION 1.01

- The Thread is now created in a "suspended" state and is
resumed after initialization of all variables.
By Gary Weinfurther <gary@mich.com>

- Added additional code to Escapecomm function <BREAK> to ensure
correct dataflow.

- Rewritten the "write" procedure. It should work fine now.

- Updated the demo program to test XON/XOFF flags.


* VERSION 1.0

-Changed the receive part for the demo application.

-added device indentification to OpenEvent, see provider subtypes for
more info.

-added device DCB profile to open procedure

-added additional port-settings through "Options" property

-added missing escapecomm function "xon/xoff"

-the component waited (infinite) for write operations to be completed after
XOff or Break. Fixed.
The function now returns zero bytes written on an IOPending event.
Initial idea by Piet Jansen <pietjans@tref.nl>

-Removed "signal" extensions from event properties.
sorry for the inconvenience this may cause.

-Moved Event calls to dynamic procedures in order to enhance inheritance.
Initial idea by Tim Evans <vgs.mil@interbusiness.it>

-Removed some Delphi VCL units from the uses clause.

-Added handshake handling
by Gyula Mészáros (Mr. InnMaxX), Hungary
e-mail: 100263.1465(_at_)compuserve.com



***

Cytat:

[Error] Async32.pas(487): Types of actual and formal var parameters must be identical
[Error] Async32.pas(509): Constant expression violates subrange bounds
[Error] Async32.pas(517): Types of actual and formal var parameters must be identical
[Error] Async32.pas(523): Types of actual and formal var parameters must be identical
[Fatal Error] Comm.dpk(34): Could not compile used unit 'Async32.pas'