[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

>Does anyone know of a good component package for building instrumentation
>applications?  I would like to build an app that tracks equipment status
>(real time) and stores the data output for charting.  Communications is via
>an ISA RS 232 I/O card through a RS 485 - RS 232 converter.

Another possibility is:

function InPort(PortAddr:word): byte;
{$IFDEF WIN32}
assembler; stdcall;
asm
        mov dx,PortAddr
        in al,dx
end;
{$ELSE}
begin
  Result := Port[PortAddr];
end;
{$ENDIF}

procedure OutPort(PortAddr:
          word; Databyte: byte);
{$IFDEF WIN32}
assembler; stdcall;
asm
   mov al,Databyte
   mov dx,PortAddr
   out dx,al
end;
{$ELSE}
begin
  Port[PortAddr] := DataByte;
end;
{$ENDIF}

Just fill in the right port address (parallel or serial)

Good luck,

Arjan

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]