因個人需將資料透過Com1直接傳至BarCode機內，但小弟在此方面為新手，實在瞭解的不多，但手冊中有提供VB之範例程式，是否能請各位Delphi高手大大，為小弟解釋一下於Delphi中如何製作此範例？感激不盡！ 以下為VB範例： 10 LPRINT "~*": 20 LPRINT "~D7~S2~M03"; 30 LPRINT "~F732"; 40 LPRINT "~A53 RAPID TRANSPORT CO., LTD"; 50 LPRINT "~A22 CALL (800) 708-6661""; 60 LPRINT "~A21____________________________" 70 LPRINT "~A21" 80 LPRINT "~A21 90 LPRINT "~A22 SHIP TO: DISCOUNT AUTO" 100 LPRINT "~A22 17382 WEST 6TH" 110 LPRINT "~A22 LOS ANGELES, CA 90234"; 120 LPRINT "~A21" 130 LPRINT "~A21" 140 LPRINT "~M25~A53~V STORE:589P ~U" 150 LPRINT "~A21" 160 LPRINT "~M03~A22___________________________" 170 LPRINT "~A22" 180 LPRINT "~M15~A23 ITEM CATEGORY: RT0023" 190 LPRINT "~A22" 200 LPRINT "~M25~A40~?3" 210 LPRINT "~A42~{RT002300992}" 220 LPRINT "~A21" 230 LPRINT "~M03~A21____________________________" 240 LPRINT "~A22" 250 LPRINT "~M15~A22 ITEM DESCRIPTION: MISC TRIM" 260 LPRINT "~A22" 270 LPRINT "~M25~A40~?3" 280 LPRINT "~A42~{MISC TRIM 5A}" 290 LPRINT "~A21" 煩請賜教，謝謝！

一、LPrint 不是vb指令，屬於較舊的QB /GWBasic 的指令 二、LPrint 是印表機輸出指令，看其範例程式，不是由COM Port 輸出，     故請確認設備是如何連接的經由COM Port 還是Print Port ? 三、如果是要由COM Prot 有一些元件可以提供輸出,例SPCOMM 四、如果是要由Print Prot 輸出，則參考下列 並列埠控制 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23183 I/O 埠讀寫的實現 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21664 好用的Windows IO Access Library ----------Io http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23311 請教該如何經由LPT1傳輸指令http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23307 --【KTop SNG新聞現場】--記者:ddy----------------------------------------- 請各位市民做好資源回收與垃圾分類，讓不良標題與不當發言在KTop 市消失 ------------------------------------------------------------------------- 發表人 - ddy 於 2002/12/02 11:28:14

ddy兄，感謝您的指教，但小弟於此方面確實完全一竅不通，因此可否直接告訴小弟如何開啟Com1，如何傳送資料以及如何清除關闢的方式呢？ PS 小弟現在的需求是透過Com1 Port來傳送資料至BarCode機 如有大大肯賜教的話，小弟是希望使用SPComm此元件來傳送，煩請指教用法 麻煩之處，尚請見諒！

先參考下文… SPCOMM的屬性、方法和事件 屬性 ●CommName：表示 COM1、 COM2等串口的名字； ●BaudRate:根據實際需要設定的串列傳輸速率，在串口打開後也可更改此值，實際串列傳輸速率隨之更改； ●ParityCheck：表示是否需要奇偶校驗； ●ByteSize：根據實際情況設定的位元組長度； ●Parity：奇偶校驗位； ●StopBits：停止位； ●SendDataEmpty：這是一個布林型屬性，true時表示發送緩存為空，或者發送佇列裏沒有資訊；false時表示發送緩存不為空，或者發送佇列裏有資訊。 方法 ●Startcomm方法用於打開串口，當打開失敗時通常會報錯。錯誤主要有 7種：?串口已經打開；?打開串口錯誤；?文件控制碼不是通信控制碼；?不能夠安裝通信緩存；?不能?生事件；?不能?生讀進程；?不能?生寫進程； ●StopComm方法用於關閉串口，沒有返回值； ●WriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word )方法是個帶有布林型返回值的函數，用於將一個字串發送到寫進程，發送成功返回 true，發送失敗返回 false。執行此函數將立即得到返回值，發送操作隨後執行。該函數有兩個參數，其中 pDataToWrite是要發送的字串， dwSizeofDataToWrite是發送字串的長度。 事件 ●OnReceiveData :procedure (Sender: TObject;Buffer: Pointer;BufferLength: Word) of object 當有資料登錄緩存時將觸發該事件，在這裏可以對從串口收到的資料進行處理。 Buffer中是收到的資料， BufferLength是收到的資料長度。 ●OnReceiveError : procedure(Sender: TObject; EventMask : DWORD) 當接收資料出現錯誤時將觸發該事件。 SPCOMM的使用 下面是一個利用 SPCOMM控制項的串口通信的例子。 以實現 PC機與單片機 8051之間的通信?例，首先要調通它們之間的握手信號。假定它們之間的通信協定是： PC到 8051一幀資料 6個位元組， 8051到 PC一幀資料也? 6個位元組。當 PC發出（ F0,01,FF,FF,01,F0）後 8051能收到一幀（ F0,01,FF,FF,01,F0），表示資料通信握手成功，兩者之間就可以按照協定相互傳輸資料。 創建一個新的工程 COMM.DPR，把表單的 NAME屬性定? FCOMM，把表單的標題定義?測試通信，添加控制項 。 1.設定 COMM1屬性： ●串列傳輸速率： 4800； ●奇偶校驗位：無； ●位元組長度： 8； ●停止位： 1； ●串口： COM1。 Memo1中將顯示發送和接收的資料。將新的表單存儲? Comm.pas。 2.編寫源代碼 //變數說明 var fcomm: TFCOMM; viewstring:string; i:integer; rbuf,sbuf:array[16] of byte; //打開串口 procedure TFCOMM.FormShow(Sender: TObject); begin comm1.StartComm; end; //關閉串口 procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction); begin comm1.StopComm; end; //自定義發送資料過程 procedure senddata; var i:integer; commflg:boolean; begin viewstring:='' ; commflg:=true; for i:=1 to 6 do begin if not fcomm.comm1.writecommdata(@sbuf[i],1) then begin commflg:=false; break; end; //發送時位元組間的延時 sleep(2); viewstring:=viewstring＋ inttohex(sbuf[i],2)＋'' ; end; viewstring:='發送'＋ viewstring; fcomm.memo1.lines.add(viewstring); fcomm.memo1.lines.add('' ); if not commflg then messagedlg('發送失敗 !' ,mterror,[mbyes],0); end; //發送按鈕的點擊事件 procedure TFCOMM.Btn_sendClick(Sender: TObject); begin sbuf[1]:=byte(＄ f0); //幀頭 sbuf[2]:=byte(＄ 01); //命令號 sbuf[3]:=byte(＄ ff); sbuf[4]:=byte(＄ ff); sbuf[5]:=byte(＄ 01); sbuf[6]:=byte(＄ f0); //幀尾 senddata;//調用發送函數 end; //接收過程 procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word); var i:integer; begin viewstring:='' ; move(buffer^,pchar(@rbuf^),bufferlength); for i:=1 to bufferlength do viewstring:=viewstring＋ inttohex(rbuf[i],2)＋'' ; viewstring:='接收'＋ viewstring; memo1.lines.add(viewstring); memo1.lines.add('' ); end; 如果 memo1上顯示發送 F0 01 FF FF 01 F0和接收到 F0 01 FF FF 01 F0，這表示串口已正確地發送出資料並正確地接收到資料，則串口通信成功。 --【KTop SNG新聞現場】--記者:ddy----------------------------------------- 請各位市民做好資源回收與垃圾分類，讓不良標題與不當發言在KTop 市消失 -------------------------------------------------------------------------