這是以MOXA PCOMM.dll寫成的簡易範例 Pcomm分為pcomm pro(要$的 ,pcomm lite(Free)，如果作業系統不適用可於http://www.moxa.com.tw/ 軟體下載跟技術文件區找到pcomm lite 有完整的c跟delphi說明文件，由於moxa已經附了許多的範例，小的就檢一些他沒用的地方給各位看倌參考參考，如果寫的不好請用力笑不要死撐(不笑會得內傷)不過也不要特地寫信來笑我，不然明天有人跳下去的新聞就會見報了。 http://www.summitinstruments.com/library/tn410.pdf 順便附一段CRC16的碼參考來自axSoft版大的文章(由於只有C的小的就用偷改成delphi)

procedure TForm1.Button1Click(Sender: TObject);
var
test:pchar;
i,j:integer;
temp:Integer;
begin
Crc:=0;
test:=pchar(Edit1.Text);
temp:=0;
j:=length(test);
For i:=0 to j-1 do begin
 IF i>1 then
  temp:=temp xor CheckCrc(ord(test[i]))
 else
  temp:=CheckCrc(ord(test[i]));
end;
 Memo1.text:=Memo1.text inttoHex(temp,4) ' ';
end;    function TForm1.CheckCrc(xStr:Byte):Integer;
Const
 CRC16=$A001;
var
i:Integer;
begin
For i:=0 to 7 do begin
 if ((xStr Xor CRC)and $0001)=1 then
  Crc:=(Crc shr 1)Xor CRC16
 else
  CRC:=CRC shr 1;
 xStr:=xStr shr 1;
end;
result:=crc;
end;
交換高低4個位元
var
getData:Byte;
 GetData:=((Getdata shr 4)or(Getdata shl 4));

搞不懂!搞不懂!永遠都搞不懂!! 發表人 - mine 於 2004/12/10 14:40:21

附加檔案：61303_rs232.rar