【正文】 end。 showmessage(inttostr(count))。 count:=0。 SetLength(ByteSend,)。COM139。 FHandle: THandle。 ByteReceive:array of byte。 動(dòng)態(tài)數(shù)組 動(dòng)態(tài)數(shù)組：聲明時(shí)不指定數(shù)組的大小，而在需要使用數(shù)組之前再指定該數(shù)組的大小 Delphi中對(duì)于動(dòng)態(tài)數(shù)組的聲明方式如下： ByteReceive:array of Byte。 ByteSend[0]:=123。 End。 for I:=1 to len do temp:=temp+inttostr(ord(instrW[i]))。 len:=length(instrW)。 for i:=1 to len do temp:=temp+inttostr(ord(instr[i]))。 len:=length(instr)。 Begin instr:=。 i,len:integer。 Var instr:string。 End。 :=inttostr(length(InstrW))。 InstrA:=。 Begin Instr:=。 InstrA:ANSIString。 Delphi中的字符串種類及處理函數(shù) Chr(x):返回 X參數(shù)的字符 Ord(x):返回 x參數(shù)所列的序數(shù)，一般用來解讀字符在 ASCII碼中的序數(shù) Pos(substr,str):返回 str中， substr出現(xiàn)的位置，若找不到則返回 0 StrPos(str1,str2):返回 str2在 str1出現(xiàn)的第一位置的指針，無則返回 nil Copy(str,index,count):返回 str參數(shù)中，索引 index開始的 count數(shù)目的字串 Delete(str,index,count):刪除 str字串中，由 index所指定的開始位置的count數(shù)目的字串 Length(str):返回字串 str的長(zhǎng)度 SetLength(str,newlen):設(shè)置 str的長(zhǎng)度 Value(str,value,code):將 str轉(zhuǎn)成數(shù)值 value， code表示發(fā)生錯(cuò)誤的位置 Str(value,str): Trim(str),TrimRight(str),TrimLeft(str):去空格 StringReplace(str,oldpattern,newpattern):替換 Insert(s1,s2,index):s1插入 s2的第 index位置 中英文字符串長(zhǎng)度計(jì)算 Type Maximum length Memory required Used for ShortString 255 characters 2 to 256 bytes backward patibility AnsiString ~2^31 characters 4 bytes to 2GB 8bit (ANSI) characters WideString ~2^30 characters 4 bytes to 2GB Unicode characters。 第 4章 串行通信中的字符與字節(jié) 字符與字節(jié) 字節(jié)數(shù)據(jù)的傳送與接收 字符與字節(jié) ?字符和字節(jié)的差別 ? Delphi中的字符串種類及處理函數(shù) ?中英文字符串長(zhǎng)度計(jì)算 字符和字節(jié)的差別 Windows支持的字符集有單字符集、雙字節(jié)字符集及 UniCode字符集，在西方國(guó)家使用 Windows系統(tǒng)基本使用單字符集，每一個(gè)字符都使用一個(gè)字節(jié)來表示；而亞洲國(guó)家由于字符無法單用一個(gè)字節(jié)表示，因此使用雙字節(jié)字符集，其中每個(gè)字符使用雙字節(jié)字符集。 { set the priority to lower than normal } 。 { TMyThread is a custom descendant of TThread } begin SecondProcess := (True)。將執(zhí)行中的線程暫停 procedure Suspend。若線程暫停時(shí)，使用此指令再次激活 procedure Resume。 ? Free：釋放線程，線程程序代碼將從內(nèi)存中被刪除 procedure Free。使用此方法可建立線程，有 1個(gè)參數(shù)，若設(shè)成 True，表示建立后不立即執(zhí)行；若設(shè)成False，則表示一建立后馬上執(zhí)行。一個(gè)應(yīng)用程序可以依需要而造出 多個(gè)線程對(duì)象，每一個(gè)線程開始執(zhí)行后即被排入 CPU的執(zhí)行周期中，這些線程可能被建立后開始 執(zhí)行，直到應(yīng)用程序結(jié)束；也有可能執(zhí)行完工作 后在應(yīng)用程序結(jié)束前就結(jié)束掉，實(shí)際的情況看具 體需求而定。 lpModemStat：指向檢測(cè)到的狀態(tài)的參數(shù)地址， 32位長(zhǎng)度 MS_CTS_ON： CTS (cleartosend) 引腳升至高電壓 MS_DSR_ON： DSR (datasetready) 引腳升至高電壓 MS_RING_ON： RI引腳升至高電壓 MS_RLSD_ON： DCD引腳升至高電壓 串口通信流程 打開通信端口 打開成功？ 通信參數(shù)設(shè)置 其他函數(shù)操作 顯示錯(cuò)誤信息 關(guān)閉串口 結(jié)束 開始 繼續(xù)操作？ 否 是 通信測(cè)試 ?通信步驟 ?回路測(cè)試 通信步驟 1. 設(shè)置通信端口號(hào)碼 2. 使用 CreateFile函數(shù)打開通信端口 3. 設(shè)置通信協(xié)議 4. 設(shè)置傳輸速度等參數(shù) 5. 設(shè)置其它參數(shù) 6. 送出字符串或讀入字符串，使用 ReadFile及 WriteFile函數(shù) 7. 使用完畢后以 CloseHandle函數(shù)將通信端口關(guān)閉 回路測(cè)試 ?硬件設(shè)置 ?軟件實(shí)現(xiàn) 硬件設(shè)置 ?兩臺(tái)計(jì)算機(jī)，各使用其上的一個(gè)串口，一條 RS232兩邊都是母頭的線 ?一臺(tái)計(jì)算機(jī)，但擁有兩個(gè)串行通信口，一條 RS232兩邊都是母頭的線 ?一臺(tái)計(jì)算機(jī)，一個(gè)串行通信口，一條 RS232線，至少其中一邊是母頭 自動(dòng)與事件 自動(dòng)化的實(shí)現(xiàn) ? 輪詢方式：不斷地發(fā)出詢問的信號(hào)給設(shè)備，要求設(shè)備返回計(jì)算機(jī)所要的信息 – 使用定時(shí)器（ Timer組件），設(shè)定時(shí)間間隔，當(dāng)時(shí)間間隔一到，便會(huì)執(zhí)行原先放在定時(shí)器中的程序代碼 – 使用 While…Do 不斷地執(zhí)行程序代碼 ? 線程方式：將串行通信的功能封裝在一個(gè)線程中，利用線程的不斷執(zhí)行而達(dá)到自動(dòng)化的目的 建立多線程 工作原理： 操作系統(tǒng)將 CPU處理數(shù)據(jù)的時(shí)間切成很多的時(shí)間片 （ Time Slice），操作系統(tǒng)再將應(yīng)用程序的代碼加載 到 CPU中執(zhí)行，一旦這一小塊的時(shí)間執(zhí)行完畢后， 操作系統(tǒng)會(huì)將正在執(zhí)行的程序放一邊，然后再取另 外一個(gè)應(yīng)用程序進(jìn) CPU中執(zhí)行，一樣只執(zhí)行這一小 塊時(shí)間片，如此周而復(fù)始，所以見到了整個(gè)系統(tǒng)中 多任務(wù)的情況。 dwFlags:指定執(zhí)行的工作 ? PURGE_TXABORT:終止目前所有的傳輸工作，立即返回，不管是否完完成傳輸?shù)牟僮? ? PURGE_RXABORT:終止目前所有的讀取工作，立即返回，不管是否完成讀取操作 ? PURGE_TXCLEAR:清除傳送緩沖區(qū)中的所有數(shù)據(jù) ? PURGE_RXCLEAR:清除接收緩沖區(qū)中的所有數(shù)據(jù) EscapeCommFunction BOOL EscapeCommFunction