Z
ztony
Unregistered / Unconfirmed
GUEST, unregistred user!
例:000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0000=40.0
object Comm1: TComm
CommName = 'COM1'
BaudRate = 1200
ParityCheck = False
Outx_CtsFlow = False
Outx_DsrFlow = False
DtrControl = DtrEnable
DsrSensitivity = False
TxContinueOnXoff = True
Outx_XonXoffFlow = False
Inx_XonXoffFlow = False
ReplaceWhenParityError = False
IgnoreNullChar = False
RtsControl = RtsEnable
XonLimit = 500
XoffLimit = 500
ByteSize = _8
Parity = None
StopBits = _1
XonChar = #17
XoffChar = #19
ReplacedChar = #0
ReadIntervalTimeout = 500
ReadTotalTimeoutMultiplier = 0
ReadTotalTimeoutConstant = 0
WriteTotalTimeoutMultiplier = 0
WriteTotalTimeoutConstant = 0
OnReceiveData = Comm1ReceiveData
Left = 144
Top = 65528
end
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
//-0.34
//43.000-=
var
tmpArray:array[0..4096] of Byte;
ArraySize,i: DWORD;
CountWORD;
tmpStr:string;
pStrChar;
begin
If Check1.Checked then
begin
pStr:=Buffer;
tmpStr:=string(pStr);
Dec(PStr);
For i:=0 to Length(tmpStr)-1 do
begin
inc(PStr);
tmpArray:=Byte(PSTR^);
Memo2.Lines.Add(IntToHEX(Ord(tmpArray),2));
end;
exit;
End;
setlength(tmpstr, BufferLength);
Move(Buffer^,PChar(tmpstr)^,BufferLength);
if CheckBox1.checked then
tmpstr:=ReverseString(tmpstr);
if (pos('=',tmpstr)>0) and checkbox2.Checked then
BEGIN
IF CHECKBOX4.Checked THEN
tmpstr:=COPY(tmpstr,5,MaxInt);
tmpstr:=LeftStr(tmpstr,pos('=',tmpstr)-1);
END;
Memo2.Lines.Add(tmpstr);
{ pStr:=Buffer;
memo2.Lines.Add(pStr);}
end;
object Comm1: TComm
CommName = 'COM1'
BaudRate = 1200
ParityCheck = False
Outx_CtsFlow = False
Outx_DsrFlow = False
DtrControl = DtrEnable
DsrSensitivity = False
TxContinueOnXoff = True
Outx_XonXoffFlow = False
Inx_XonXoffFlow = False
ReplaceWhenParityError = False
IgnoreNullChar = False
RtsControl = RtsEnable
XonLimit = 500
XoffLimit = 500
ByteSize = _8
Parity = None
StopBits = _1
XonChar = #17
XoffChar = #19
ReplacedChar = #0
ReadIntervalTimeout = 500
ReadTotalTimeoutMultiplier = 0
ReadTotalTimeoutConstant = 0
WriteTotalTimeoutMultiplier = 0
WriteTotalTimeoutConstant = 0
OnReceiveData = Comm1ReceiveData
Left = 144
Top = 65528
end
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
//-0.34
//43.000-=
var
tmpArray:array[0..4096] of Byte;
ArraySize,i: DWORD;
CountWORD;
tmpStr:string;
pStrChar;
begin
If Check1.Checked then
begin
pStr:=Buffer;
tmpStr:=string(pStr);
Dec(PStr);
For i:=0 to Length(tmpStr)-1 do
begin
inc(PStr);
tmpArray:=Byte(PSTR^);
Memo2.Lines.Add(IntToHEX(Ord(tmpArray),2));
end;
exit;
End;
setlength(tmpstr, BufferLength);
Move(Buffer^,PChar(tmpstr)^,BufferLength);
if CheckBox1.checked then
tmpstr:=ReverseString(tmpstr);
if (pos('=',tmpstr)>0) and checkbox2.Checked then
BEGIN
IF CHECKBOX4.Checked THEN
tmpstr:=COPY(tmpstr,5,MaxInt);
tmpstr:=LeftStr(tmpstr,pos('=',tmpstr)-1);
END;
Memo2.Lines.Add(tmpstr);
{ pStr:=Buffer;
memo2.Lines.Add(pStr);}
end;