mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 20:37:33 +00:00
74 lines
3.2 KiB
ObjectPascal
74 lines
3.2 KiB
ObjectPascal
{
|
|
Copyright (C)
|
|
2026 - Uladzimir Karpenka, EW8BAK
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License
|
|
as published by the Free Software Foundation; either version 2
|
|
of the License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
}
|
|
|
|
unit Serial;
|
|
|
|
{
|
|
Заглушка RTL-модуля Serial для проверки WINDOWS-ветки SerialPort.pas на Linux.
|
|
Повторяет ровно ту часть API, которую наша обёртка переадресует под Windows,
|
|
включая типы: разъезд сигнатур должен ловиться здесь, а не на сборочной
|
|
машине.
|
|
}
|
|
|
|
{$MODE Delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
type
|
|
TSerialHandle = THandle;
|
|
TParityType = (NoneParity, OddParity, EvenParity);
|
|
TSerialFlags = set of (RtsCtsFlowControl);
|
|
|
|
function SerOpen(const DeviceName: string): TSerialHandle;
|
|
procedure SerClose(Handle: TSerialHandle);
|
|
procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
|
|
ByteSize: Integer; Parity: TParityType; StopBits: Integer;
|
|
Flags: TSerialFlags);
|
|
function SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt;
|
|
function SerWrite(Handle: TSerialHandle; const Buffer; Count: LongInt): LongInt;
|
|
function SerReadTimeout(Handle: TSerialHandle; var Buffer; mSec: LongInt): LongInt;
|
|
procedure SerSetDTR(Handle: TSerialHandle; State: Boolean);
|
|
procedure SerSetRTS(Handle: TSerialHandle; State: Boolean);
|
|
function SerGetCTS(Handle: TSerialHandle): Boolean;
|
|
function SerGetDSR(Handle: TSerialHandle): Boolean;
|
|
function SerGetCD(Handle: TSerialHandle): Boolean;
|
|
function SerGetRI(Handle: TSerialHandle): Boolean;
|
|
|
|
implementation
|
|
|
|
function SerOpen(const DeviceName: string): TSerialHandle; begin Result := 0; end;
|
|
procedure SerClose(Handle: TSerialHandle); begin end;
|
|
procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
|
|
ByteSize: Integer; Parity: TParityType; StopBits: Integer;
|
|
Flags: TSerialFlags); begin end;
|
|
function SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; begin Result := 0; end;
|
|
function SerWrite(Handle: TSerialHandle; const Buffer; Count: LongInt): LongInt; begin Result := 0; end;
|
|
function SerReadTimeout(Handle: TSerialHandle; var Buffer; mSec: LongInt): LongInt; begin Result := 0; end;
|
|
procedure SerSetDTR(Handle: TSerialHandle; State: Boolean); begin end;
|
|
procedure SerSetRTS(Handle: TSerialHandle; State: Boolean); begin end;
|
|
function SerGetCTS(Handle: TSerialHandle): Boolean; begin Result := False; end;
|
|
function SerGetDSR(Handle: TSerialHandle): Boolean; begin Result := False; end;
|
|
function SerGetCD(Handle: TSerialHandle): Boolean; begin Result := False; end;
|
|
function SerGetRI(Handle: TSerialHandle): Boolean; begin Result := False; end;
|
|
|
|
end.
|