|
ｿｽ@ｿｽｿｽCommXｿｽEWindowsXPｿｽﾅ通信ｿｽsｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
daiya 2004/08/31(ｿｽｿｽ) 11:38:09
Delphi5ｿｽｿｽCommXｿｽｿｽgｿｽｿｽｿｽAｿｽdｿｽqｿｽVｿｽｿｽｿｽﾆ通信ｿｽｿｽｿｽｿｽtｿｽｿｽｿｽ[ｿｽ¥ｿｽtｿｽgｿｽ製搾ｿｽｿｽｿｽJｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾅのノｿｽ[ｿｽgｿｽuｿｽbｿｽNｿｽiWindowsXPｿｽjｿｽﾅ、ｿｽnｿｽCｿｽpｿｽ[ｿｽ^ｿｽ[ｿｽ‾ｿｽiｿｽｿｽｿｽﾅは厄ｿｽｿｽﾈゑｿｽｿｽｿｽMｿｽoｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽACommXｿｽｿｽｿｽﾆ全ｿｽｿｽｿｽｿｽMｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽsｿｽ合ｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾇＯｿｽrｿｽｿｽwindows98ｿｽﾉゑｿｽｿｽﾄ托ｿｽｿｽｿｽMｿｽﾍ出ｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽがゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
WindowsXpｿｽﾅ撰ｿｽｿｽｿｽﾉ托ｿｽｿｽｿｽMｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽ驛ｿｽ[ｿｽUｿｽ[ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽﾎ擾ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽB
take 2004/09/01(ｿｽｿｽ) 11:24:57
ｿｽｿｽｿｽXｿｽｿｽｿｽtｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈのゑｿｽ
ｿｽﾜゑｿｽｿｽﾍ必ｿｽvｿｽﾅ抵ｿｽｿｽｿｽﾌソｿｽ[ｿｽX
TCommXｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽPortOpenｿｽﾜでに行ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽPropertyｿｽﾝ抵ｿｽ
ｿｽﾌ提示ゑｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾉ電ｿｽqｿｽVｿｽｿｽｿｽﾆのゑｿｽｿｽﾆりがｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽ
PC->ｿｽdｿｽqｿｽVｿｽｿｽｿｽiｿｽfｿｽ[ｿｽ^ｿｽvｿｽｿｽ
PC<-ｿｽdｿｽqｿｽVｿｽｿｽｿｽiｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^
ｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽ<-ｿｽNｿｽｿｽｿｽXｿｽPｿｽ[ｿｽuｿｽｿｽ->ｿｽｿｽｿｽｿｽPC
ｿｽﾆ環具ｿｽｿｽｿｽpｿｽﾓゑｿｽｿｽﾄ撰ｿｽｿｽｿｽﾉゑｿｽｿｽﾆゑｿｽﾅゑｿｽｿｽｿｽﾌゑｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾔゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽnｿｽCｿｽpｿｽ[ｿｽ^ｿｽ[ｿｽ‾ｿｽiｿｽｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽｿｽTCommXｿｽﾅ難ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾛはゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
daiya 2004/09/01(ｿｽｿｽ) 20:18:46
takeｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ＊ｿｽｿｽｿｽ
ｿｽdｿｽqｿｽVｿｽｿｽｿｽﾌ連ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽ[ｿｽhｿｽﾅゑｿｽ1ｿｽbｿｽﾔに４ｿｽ|ｿｽWｿｽｿｽｿｽｿｽxｿｽﾌ撰ｿｽｿｽ齬ｬｿｽｿｽｿｽｿｽﾔゑｿｽgｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽMｿｽｿｽｿｽ驍ｱｿｽﾆになゑｿｽﾜゑｿｽｿｽB
ｿｽfｿｽ[ｿｽ^ｿｽtｿｽHｿｽ[ｿｽ}ｿｽbｿｽgｿｽﾍ ｿｽ@ｿｽ@P1D1D2D3D4D5D6D7U1U2S1S2CRLF ｿｽ@ｿｽ@ｿｽfｿｽｿｽｿｽ‾ｿｽ^ｿｽiCRLFｿｽjｿｽｿｽﾜめゑｿｽ14ｿｽｿｽｿｽｿｽｿｽﾅデｿｽ[ｿｽ^ｿｽuｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽB
ｿｽoｿｽPｿｽFｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ{ｿｽｿｽｿｽ|ｿｽiｿｽ}ｿｽCｿｽiｿｽXｿｽj
ｿｽcｿｽPｿｽ|ｿｽcｿｽVｿｽFｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽQｿｽﾜゑｿｽｿｽﾍ撰ｿｽｿｽｿｽｿｽiｿｽOｿｽ|ｿｽXｿｽjｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽQｿｽﾍスｿｽyｿｽ[ｿｽX
ｿｽtｿｽPｿｽtｿｽQｿｽFｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ ｿｽQｿｽ@ｿｽf
ｿｽrｿｽPS2ｿｽFｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽQｿｽ@ｿｽiｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽﾌ意）ｿｽ@ｿｽ@ｿｽ@
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾌ的ｿｽﾉ、ｿｽPｿｽQｿｽRｿｽDｿｽSｿｽTｿｽｿｽｿｽﾌ計ｿｽﾊゑｿｽsｿｽｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽfｿｽ[ｿｽ^ｿｽﾍ「ｿｽ{ｿｽQｿｽPｿｽQｿｽRｿｽDｿｽSｿｽTｿｽQｿｽfｿｽQｿｽrCRLFｿｽvｿｽﾆゑｿｽｿｽｿｽ14ｿｽoｿｽCｿｽgｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽOｿｽDｿｽOｿｽｿｽｿｽﾌ趣ｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽﾍ「ｿｽ{ｿｽQｿｽQｿｽQｿｽQｿｽOｿｽDｿｽOｿｽQｿｽfｿｽQｿｽrCRLFｿｽvｿｽﾆなゑｿｽB
14ｿｽoｿｽCｿｽgｿｽｿｽgｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽ2ｿｽuｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽiｿｽPｿｽSｿｽｿｽｿｽQｿｽｿｽ28ｿｽoｿｽCｿｽgｿｽjｿｽｿｽﾜとめゑｿｽ1ｿｽｿｽﾅ趣ｿｽMｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽMｿｽfｿｽ[ｿｽ^ｿｽﾌ先頭ｿｽﾅ＋ｿｽｿｽｿｽMｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽAｿｽｿｽMｿｽｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽﾉ有ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ28ｿｽoｿｽCｿｽgｿｽﾌ趣ｿｽMｿｽｿｽｿｽｿｽｿｽかゑｿｽkｿｽeｿｽiｿｽｿｽｿｽAｿｽRｿｽ[ｿｽhｿｽｿｽｿｽPｿｽOｿｽjｿｽﾌ場所ｿｽｿｽｿｽﾉ有ｿｽｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽﾘゑｿｽoｿｽｿｽｿｽｿｽｿｽﾅ連ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽ[ｿｽhｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾊ信ｿｽｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽﾍ会ｿｽｿｽLｿｽﾌ通ゑｿｽﾅゑｿｽｿｽB
/ｿｽdｿｽqｿｽVｿｽｿｽｿｽｿｽｿｽｿｽﾌシｿｽｿｽｿｽAｿｽｿｽｿｽMｿｽｿｽｿｽｿｽMｿｽｿｽｿｽｿｽｿｽuｿｽｿｽｿｽbｿｽN/
procedure TFrmMain.CommX1Receive(Sender: TObject; ReceiveSize:Integer);
var
buf : PChar;
weightbuf : string;
weightbufA : string;
weight : string;
weight_B : string;
weight_CK : string;
wflg_A: string;
wflg_H : Currency;
wflg_I : Integer;
i : Integer;
j : Integer;
k : Integer;
begin
buf:=AllocMem(28);
try
CommX1.ReceiveBlock(buf,28);
for i := 0 to 27 do begin
weightbufA := weightbufA + Buf[i];
end;
finally
FreeMem(Buf, 28);
end;
j := Pos(#10,weightbufA); //ｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ切ゑｿｽoｿｽｿｽ #10=LFｿｽﾌ場所ｿｽ得ゑｿｽ
if j<14 then begin //#10ｿｽｿｽｿｽPｿｽRｿｽﾈ会ｿｽ
weightbuf := copy(weightbufA,j+1,14);
end else begin //ｿｽｿｽｿｽPｿｽOｿｽｿｽｿｽPｿｽS
weightbuf := copy(weightbufA,j-13,14);
end;
//ｿｽﾘゑｿｽoｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾌチｿｽFｿｽbｿｽN
weight_CK := copy(weightbuf,13,2) ;
if (weight_CK <> #13#10) then begin
EXIT; //ｿｽｿｽｿｽﾍエｿｽｿｽｿｽ[ｿｽｿｽｿｽpｿｽX
end;
wflg_A := copy(weightbuf,1,1); //+-
weight_B := copy(trim(weightbuf),2,7); //+__***.* ｿｽ@ｿｽ@gｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ
wflg_I := 0; //+ｿｽﾌ趣ｿｽｿｽpｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽ
weightbufA := '';
wflg_H := StrToCurr(weight_B); //ｿｽ@ｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽﾎ値
if wflg_A = '-' then begin //-
if wflg_H > 0.09 then begin //ｿｽ}ｿｽCｿｽiｿｽX0.1ｿｽｿｽｿｽﾈ擾ｿｽﾅ記ｿｽ^ｿｽ@ｿｽuｿｽｿｽｿｽﾎ搾ｿｽ@
wflg_I :=-1;
end else begin
wflg_I :=0;
end;
end else begin //+
if wflg_H > 0 then begin
wflg_I := 1;
end else begin
wflg_I := 0;
end;
end;
case wflg_I of
1: begin
if MstDsp.Visible then begin ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@//ｿｽｿｽiｿｽIｿｽｿｽｿｽ
weight := copy(trim(weight_B),1,5);
D_Weight.Value := StrToFloat(weight);
wflg_B.Value := StrToFloat(weight);
ｿｽｿｽLｿｽ¥ｿｽ[ｿｽXｿｽｿｽWindowsｿｽwｿｽｿｽｿｽﾌ一部ｿｽ@ｿｽｿｽﾅ趣ｿｽMｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽsｿｽ合ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽ|ｿｽ[ｿｽgｿｽﾖ係ｿｽﾌエｿｽｿｽｿｽ[ｿｽ¥ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽAWindowsXpｿｽtｿｽｿｽｿｽﾌハｿｽCｿｽpｿｽ[ｿｽ^ｿｽ[ｿｽ‾ｿｽiｿｽｿｽｿｽﾅは撰ｿｽｿｽｿｽﾉ趣ｿｽMｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽWindowXpｿｽｿｽｿｽﾚの托ｿｽｿｽﾌＰｿｽbｿｽﾅ撰ｿｽｿｽｿｽﾒ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驛ゑｿｽmｿｽｿｽｿｽｿｽXｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽSｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
take 2004/09/02(ｿｽｿｽ) 09:01:31
ｿｽﾜゑｿｽｿｽnｿｽbｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽMｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾂ具ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽ闌ｳｿｽﾉゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ闌ｳｿｽﾉゑｿｽｿｽｿｽ鼾ｿｽｿｽOnReceiveｿｽｿｽﾉブｿｽｿｽｿｽCｿｽNｿｽ|ｿｽCｿｽｿｽｿｽgｿｽｿｽﾝゑｿｽｿｽﾄ趣ｿｽMｿｽﾅゑｿｽ
ｿｽ驍ｩｿｽｿｽｿｽﾗるこｿｽﾆゑｿｽTCommXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽ閧ｩｿｽﾘり分ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ闌ｳｿｽﾉなゑｿｽｿｽ鼾ｿｽﾍ趣ｿｽMｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽﾐゑｿｽｿｽｿｽｿｽｿｽTListBoxｿｽﾈどに托ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽMｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾂ具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ人ｿｽｿｽ
ｿｽzｿｽzｿｽｿｽｿｽﾇのようｿｽﾈデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽ驍ｱｿｽﾆで会ｿｽｿｽ
ｿｽﾉつなゑｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾉソｿｽ[ｿｽXｿｽｿｽqｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽ轤ｩｿｽﾆゑｿｽｿｽｿｽｿｽｿｽTCommXｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽB
ｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ髟費ｿｽｿｽｿｽﾂまり初ｿｽｿｽｿｽﾝ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､
ｿｽﾈのでなゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽﾜゑｿｽCommX1ReceiveｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽ
CommX1.ReceiveBlock(buf,28);
for i := 0 to 27 do begin
weightbufA := weightbufA + Buf[i];
end;
ｿｽｿｽ28ｿｽoｿｽCｿｽgｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽﾒゑｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽ
ReceiveｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍ最擾ｿｽｿｽｿｽ1ｿｽoｿｽCｿｽgｿｽﾚでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽ¥ｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾌで、ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽqｿｽﾉデｿｽ[ｿｽ^ｿｽﾌ趣ｿｽMｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽPｿｽoｿｽCｿｽgｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌ鯉ｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽﾈゑｿｽｿｽﾈゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
CRLFｿｽｿｽｿｽfｿｽｿｽｿｽ‾ｿｽ^ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆで趣ｿｽｿｽｿｽｿｽ謔､ｿｽﾈ包ｿｽｿｽｿｽﾟ具ｿｽｿｽﾉ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾌとゑｿｽｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽ示ゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽMｿｽNｿｽｿｽｿｽX
interface
uses CommX,ExtCtrls,Classes,SysUtils;
type TCommInReceiveEvent = procedure(Sender: TObject; ReceiveStr: string) of Object;
//--------------------------------------------------------------------------//
// ｿｽvｿｽｿｽｿｽｿｽｿｽ^ｿｽ[ｿｽｿｽｿｽｿｽﾌ趣ｿｽMｿｽNｿｽｿｽｿｽX //
//--------------------------------------------------------------------------//
type
TCommIn = class(TPersistent)
private
{ Private ｿｽ骭ｾ }
FComm : TCommX;
FRecStr : string;
FOnReceive: TCommInReceiveEvent;
procedure DoReceive(str : string);
procedure OnCommReceive(Sender: TObject; ReceiveSize: Integer);
public
{ Public ｿｽ骭ｾ }
constructor Create;
destructor Destroy;override;
procedure PortOpen();
procedure PortClose();
property OnReceive : TCommInReceiveEvent read FOnReceive write FOnReceive;
end;
implementation
{ TRdSchedulelItem }
constructor TCommIn.Create;
begin
FComm := TCommX.Create(nil);
FComm.OnReceive := OnCommReceive;
end;
destructor TCommIn.Destroy;
begin
FComm.Free;
inherited;
end;
procedure TCommIn.DoReceive(str: string);
begin
if Assigned(FOnReceive) then FOnReceive(Self,str);
end;
procedure TCommIn.OnCommReceive(Sender: TObject;
ReceiveSize: Integer);
var
i : integer;
d : integer;
Buf :array[0..2047] of char; // ｿｽｿｽMｿｽoｿｽbｿｽtｿｽ@
begin
FComm.ReceiveBlock(Buf,ReceiveSize); // ｿｽｿｽMｿｽoｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽﾜとめて取得
for i := 0 to ReceiveSize-1 do begin // ｿｽｿｽMｿｽfｿｽ[ｿｽ^ｿｽoｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽ[ｿｽv
d := Integer(Buf[i]); // ｿｽPｿｽoｿｽCｿｽgｿｽｿｽｿｽﾂ擾ｿｽｿｽｿｽ
case d of
$0a: begin
FRecStr := FRecStr + Char(d);
DoReceive(FRecStr);
FRecStr := '';
end;
else begin
FRecStr := FRecStr + Char(d);
end;
end;
end;
end;
procedure TCommIn.PortClose;
begin
FComm.PortClose;
end;
procedure TCommIn.PortOpen;
begin
FComm.PortNo := 1; // ｿｽ|ｿｽ[ｿｽgｿｽﾔ搾ｿｽ
FComm.BitRate := 115200; // ｿｽﾊ信ｿｽｿｽｿｽx
FComm.CharSize := 8; // ｿｽfｿｽ[ｿｽ^ｿｽｿｽ
FComm.ParityBit := cpbEven; // ｿｽpｿｽｿｽｿｽeｿｽBｿｽ`ｿｽFｿｽbｿｽN
FComm.StopBit := csb1; // ｿｽXｿｽgｿｽbｿｽvｿｽrｿｽbｿｽg
FComm.FlowCtrl := cfcRtsCts; // RtsCtsｿｽtｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
FComm.TimeOutTrans := 1000; // ｿｽ^ｿｽCｿｽｿｽｿｽAｿｽEｿｽgｿｽｿｽPｿｽbｿｽﾉ設抵ｿｽ
FComm.PortOpen;
end;
ｿｽﾆゑｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
FormｿｽｿｽPrivateｿｽｿｽ
FCommIn : TCommIn;
procedure OnCommReceive(Sender: TObject; ReceiveStr: string) ;
ｿｽﾆゑｿｽｿｽｿｽｿｽ合ｿｽﾉ抵ｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽAFormｿｽﾉはイｿｽxｿｽｿｽｿｽgｿｽﾆゑｿｽｿｽｿｽ
FormCreateｿｽAFormDestroyｿｽAFormShow
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
FormCreateｿｽｿｽｿｽ
FCommIn := TCommIn.Create;
FCommIn.OnReceive := OnCommReceive;
FormDestroyｿｽｿｽｿｽ
FCommIn.PortClose;
FCommIn.Free;
FormShowｿｽｿｽｿｽ
FCommIn.PortOpen;
ｿｽﾆ抵ｿｽ`ｿｽｿｽｿｽｿｽﾎ１ｿｽfｿｽ[ｿｽ^ｿｽｿｽMｿｽﾌ度ｿｽｿｽ
procedure TForm1.OnCommReceive(Sender: TObject; ReceiveStr: string);
ｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ撰ｿｽﾙど鯉ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ不ｿｽ合ｿｽﾍ起ｿｽｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
daiya 2004/09/04(ｿｽy) 18:50:28
takeｿｽｿｽｿｽｿｽ@ｿｽﾚ細な鯉ｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆ電ｿｽqｿｽVｿｽｿｽｿｽｿｽｿｽいゑｿｽｿｽﾌゑｿｽtakeｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽｿｽQｿｽlｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄトｿｽｿｽｿｽCｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽsｿｽ合ｿｽﾌ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽbｿｽﾍ会ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾌ地ｿｽﾉゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽﾅ難ｿｽｿｽｿｽmｿｽFｿｽﾅゑｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾄ托ｿｽｿｽtｿｽEｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ轤､ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
daiya 2004/09/05(ｿｽｿｽ) 22:27:15
takeｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ＊ｿｽｿｽｿｽ
ｿｽJｿｽﾍ様ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで電ｿｽqｿｽVｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽﾆ格ｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽnｿｽrｿｽｿｽwindows2000ｿｽﾅ趣ｿｽMｿｽGｿｽｿｽｿｽ[ｿｽﾍ出ｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽoｿｽbｿｽﾅゑｿｽｿｽB
ｿｽPｿｽFbufｿｽTｿｽCｿｽYｿｽｿｽﾅ抵ｿｽﾅなゑｿｽｿｽｿｽMｿｽoｿｽCｿｽgｿｽｿｽｿｽﾉゑｿｽｿｽﾄみゑｿｽｿｽB
CommX1ReceiveｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽ
CommX1.ReceiveBlock(buf,ReceiveSize);
for i := 0 to ReceiveSize-1 do begin
weightbufA := weightbufA + Buf[i];
end;
ｿｽﾆゑｿｽｿｽｿｽﾆ、ｿｽmｿｽｿｽｿｽｿｽReceiveｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍ最擾ｿｽｿｽｿｽ1ｿｽoｿｽCｿｽgｿｽﾚでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅ、ReceiveSizeｿｽｿｽｿｽQｿｽ|ｿｽQｿｽQｿｽﾆ不ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽQｿｽFCommXｿｽﾌヘｿｽｿｽｿｽvｿｽ@
ｿｽｿｽｿｽｿｽ@ｿｽｿｽﾈどとの通信ｿｽﾌ搾ｿｽｿｽﾚに趣ｿｽｿｽﾌようｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
var
buf : array[0..255] of Char;
len : Integer;
begin
CommX1.TransString('00RD0001');
len := CommX1.ReceiveBlock(buf, 10);
if len = 10 then begin
ShowMessage('ｿｽｿｽｿｽｿｽIｿｽｿｽ');
end
else begin
ShowMessage('ｿｽﾙ擾ｿｽIｿｽｿｽ');
end;
end;
ｿｽ@ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾆコｿｽ}ｿｽｿｽｿｽhｿｽ送信ｿｽｿｽｿｽAｿｽPｿｽOｿｽｿｽｿｽｿｽｿｽｿｽMｿｽｿｽｿｽｿｽﾜで趣ｿｽMｿｽ闡ｱｿｽｿｽｿｽﾌ抵ｿｽｿｽﾅ待機ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|
ｿｽdｿｽqｿｽVｿｽｿｽｿｽﾌデｿｽ[ｿｽ^ｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽCommX1.ReceiveBlock(buf, 28)ｿｽﾆサｿｽCｿｽYｿｽｿｽwｿｽ閧ｷｿｽｿｽﾎ、ｿｽQｿｽWｿｽoｿｽCｿｽgｿｽｿｽMｿｽｿｽｿｽｿｽﾜで待機ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌと思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽ痰､ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?
take 2004/09/06(ｿｽｿｽ) 09:14:43
ｿｽｿｽﾒに問いｿｽｿｽｿｽせｿｽｿｽｿｽけｿｽﾅはなゑｿｽｿｽﾌで撰ｿｽｿｽｿｽｿｽﾉ過ゑｿｽｿｽﾜゑｿｽｿｽがゑｿｽｿｽｿｽｿｽ轤ｭTCommXｿｽｿｽ
ｿｽｿｽMｿｽﾜで待機ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾆイｿｽxｿｽｿｽｿｽgｿｽﾉゑｿｽｿｽｿｽｿｽ@ｿｽ両暦ｿｽｿｽｿｽｿｽ驍ｽｿｽﾟ、ｿｽｿｽｿｽﾌようｿｽﾈ包ｿｽ
ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅは確ｿｽｿｽｿｽｿｽ10ｿｽoｿｽCｿｽgｿｽｿｽMｿｽｿｽｿｽｿｽﾜで待機ｿｽｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽOnReceiveｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ抵ｿｽｿｽﾅゑｿｽReceiveSizeｿｽﾈ擾ｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆヘｿｽｿｽｿｽvｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽﾌで撰ｿｽｿｽｿｽﾈ趣ｿｽMｿｽｿｽsｿｽｿｽｿｽﾉはサｿｽｿｽｿｽvｿｽｿｽｿｽﾌようｿｽﾉ托ｿｽｿｽMｿｽｿｽｿｽｿｽｿｽReceiveBlockｿｽｿｽ
ｿｽgｿｽｿｽｿｽﾄ趣ｿｽMｿｽｿｽｿｽ驍ｩｿｽiｿｽｿｽMｿｽｿｽｿｽﾍ托ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾍ抵ｿｽ‾ｿｽjｿｽ示ゑｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ@ｿｽiｿｽｿｽMｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽjｿｽﾌどゑｿｽｿｽ轤ｩｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾈゑｿｽｿｽｿｽMｿｽoｿｽbｿｽtｿｽ@ｿｽﾆゑｿｽｿｽｿｽ Buf :array[0..2047] of char;ｿｽｿｽ2048ｿｽoｿｽCｿｽgｿｽﾅ抵ｿｽ
ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽTCommXｿｽﾌ趣ｿｽMｿｽoｿｽbｿｽtｿｽ@ｿｽｿｽｿｽｿｽｿｽlｿｽｿｽ2048ｿｽoｿｽCｿｽgｿｽﾌゑｿｽｿｽｿｽ
ReceiveSizeｿｽﾍ必ｿｽｿｽ2048ｿｽﾈ会ｿｽｿｽﾉなゑｿｽﾌでバｿｽbｿｽtｿｽ@ｿｽｿｽｿｽｿｽｿｽﾓゑｿｽ驍ｱｿｽﾆはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽﾅわかｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで指ｿｽE
ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾅは鯉ｿｽｿｽｿｽｿｽｿｽFｿｽｿｽﾜゑｿｽｿｽB
take 2004/09/06(ｿｽｿｽ) 09:43:46
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
TCommXｿｽﾌ趣ｿｽMｿｽoｿｽbｿｽtｿｽ@ｿｽｿｽ2048ｿｽﾈのでオｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽﾈゑｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽXPｿｽｿｽﾜゑｿｽNTｿｽnｿｽｿｽOSｿｽﾅゑｿｽOSｿｽｿｽｿｽﾉ蓄ｿｽﾏゑｿｽｿｽ黷ｽｿｽｿｽMｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽCｿｽﾉ暦ｿｽｿｽ驍ｽｿｽｿｽ
ｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽ超ゑｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽﾌゑｿｽReceiveBlockｿｽﾅ読み搾ｿｽｿｽﾞ前ｿｽﾉ使ｿｽpｿｽｿｽｿｽｿｽoｿｽbｿｽtｿｽ@ｿｽﾈ上がｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽ
ｿｽﾇみ搾ｿｽｿｽﾞ量ゑｿｽoｿｽbｿｽtｿｽ@ｿｽﾈ会ｿｽｿｽﾉゑｿｽｿｽｿｽﾈどの工ｿｽvｿｽｿｽKｿｽvｿｽﾌようｿｽﾅゑｿｽｿｽB
daiya 2004/09/07(ｿｽｿｽ) 18:21:42
takeｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ＊ｿｽｿｽｿｽ
ｿｽｿｽｿｽいｿｽｿｽﾟ具ｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂを当ゑｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾆゑｿｽｿｽｿｽ
niftyｿｽｿｽDelphiｿｽｿｽcｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ@ｿｽｿｽｿｽ闌ｳｿｽﾉなゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽﾍ出ｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽﾌ撰ｿｽｿｽﾅソｿｽ[ｿｽXｿｽｿｽﾏ更ｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|
Niftyｿｽ@FDELPHI
12ｿｽﾔ会ｿｽcｿｽｿｽｿｽﾌ古ゑｿｽ(01/01/31)ｿｽｿｽｿｽｿｽ(3821-)ｿｽﾉゑｿｽｿｽｿｽ
ｿｽpｿｽD
>ｿｽｿｽｿｽﾈみゑｿｽ COMMX ｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽiCommX1.Receiveblock ｿｽｿｽgｿｽpｿｽjｿｽﾅ難ｿｽｿｽｿｽｿｽ
>ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽsｿｽvｿｽcｿｽﾈゑｿｽｿｽﾆに、Windows NT ｿｽｿｽ Windows 2000 ｿｽﾅは、
>ｿｽ|ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽB
>ｿｽﾅ擾ｿｽｿｽﾌ３ｿｽoｿｽCｿｽgｿｽﾌ趣ｿｽMｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ謔､ｿｽﾈのでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ鯉ｿｽｿｽ
>ｿｽfｿｽ[ｿｽ^ｿｽ[ｿｽｿｽｿｽSｿｽｿｽｿｽ痰､ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ`ｿｽD
>ｿｽﾟ具ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ厄ｿｽ閧ｪ #3495 ｿｽﾅゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ鯉ｿｽAｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
>ｿｽﾅほゑｿｽｿｽｿｽｿｽ轤ｩｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB(^^;
>CommX ｿｽﾌソｿｽ[ｿｽXｿｽｿｽ SetTimeOut ｿｽﾌとゑｿｽｿｽｿｽｿｽ ReadIntervalTimeout := 0;
>ｿｽﾉゑｿｽｿｽｿｽﾆどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽqｿｽdｿｽD
>ｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽすｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
>ｿｽｿｽｿｽﾜまで、Windows2000 ｿｽｿｽ CommX ｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾆ撰ｿｽﾌ不ｿｽsｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽ
>CommX ｿｽｿｽNｿｽｿｽｿｽ[ｿｽYｿｽｿｽｿｽｿｽﾆ、ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽEｿｽEｿｽvｿｽｿｽｿｽﾌ擾ｿｽﾔになゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽSｿｽﾉ抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|ｿｽ|
daiya 2004/09/07(ｿｽｿｽ) 18:59:09
ｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌは、ｿｽcｿｽqｿｽ|ｿｽwｿｽiｿｽｿｽｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽwｿｽjｿｽｿｽｿｽｿｽjｿｽﾅゑｿｽｿｽB
ｿｽcｿｽOｿｽﾈゑｿｽｿｽﾆに、ｿｽ¥ｿｽ[ｿｽXｿｽiｿｽｿｽｿｽLｿｽjｿｽｿｽ`ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽB
MAXDWORDｿｽﾆはなゑｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽHｿｽﾈゑｿｽﾅゼｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾌゑｿｽｿｽH
// ｿｽ` ｿｽｿｽｿｽｿｽMｿｽ^ｿｽCｿｽｿｽｿｽAｿｽEｿｽgｿｽｿｽｿｽﾔの設抵ｿｽ
//--------------------------------------------------------------------
procedure TCustomCommX.SetTimeOut;
var
CommTimeOut : TCommTimeouts; // ｿｽ^ｿｽCｿｽｿｽｿｽAｿｽEｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^
begin
if FHandle <> INVALID_HANDLE_VALUE then begin
GetCommTimeouts(FHandle, CommTimeOut);
with CommTimeOut do begin
ReadIntervalTimeout := MAXDWORD;
ReadTotalTimeoutMultiplier := 0;
ReadTotalTimeoutConstant := DWORD(FTimeOutReceive);
WriteTotalTimeoutMultiplier := 0;
WriteTotalTimeoutConstant := DWORD(FTimeOutTrans);
end;
if not SetCommTimeouts(FHandle, CommTimeOut) then begin
raise ECommError.Create('ｿｽﾊ信ｿｽ^ｿｽCｿｽｿｽｿｽAｿｽEｿｽgｿｽｿｽｿｽﾔの設抵ｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ');
end;
end;
end;
daiya 2004/09/11(ｿｽy) 21:35:30
Windows2000ｿｽﾅゑｿｽｿｽｿｽlｿｽﾌ不ｿｽ合ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽbｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽﾂゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾈゑｿｽﾆ４ｿｽｿｽﾚでゑｿｽｿｽｿｽｿｽB
CommXｿｽﾌ擾ｿｽLｿｽﾝ抵ｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾉ通信ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
daiya 2004/09/11(ｿｽy) 21:38:37
[[ｿｽｿｽｿｽ]]
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
daiya 2004/09/11(ｿｽy) 21:40:47
[[ｿｽｿｽｿｽ]]
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
