關於SPCOMM的問題 |
|
尚未結案
|
|
yangyugw
一般會員   發表：4 回覆：1 積分：1 註冊：2002-03-13 發送簡訊給我 |
|
|
wnhoo
高階會員   發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
參考看看
現時DELPHI上有很多串行口控件，SPCOMM控件有Data Bits、Parity、 Stop Bits 等配置，支持 Read/Write 時序控制 (Timing control)、 ReadIntervalTimeout、 WriteIntervalTimout 等 ，支持 DTR/DSR, RTS/CTS 硬件流程控置及 Xon/Xoff 軟件流程控置，是目前比較完善的控件。 以下是一個用RS-232進行數據接收、顯示的例子。必須將RS232的通信參數設置好纔能正確接收數據。（Data Bits,Parity,Stop Bits,COM口參數）
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, SPComm;
type
TForm1 = class(TForm)
Comm1: TComm;
Memo1: TMemo;
procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
s: string;
begin
SetLength(S, BufferLength); //接收RS232的數據並顯示Memo1上。
Move(Buffer^, PChar(S)^, BufferLength);
Memo1.Lines.Add(S);
Memo1.Invalidate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Comm1.startcomm;//創建窗體時，將comm1控件打開。
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;//關閉窗體時，將comm1控件關閉。
end;
end.
|
|
david Lin
一般會員 發表：7 回覆：13 積分：4 註冊：2002-04-06 發送簡訊給我 |
|
|
wnhoo
高階會員 發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
|
|
david Lin
一般會員 發表：7 回覆：13 積分：4 註冊：2002-04-06 發送簡訊給我 |
|
|
BobbyTsai
一般會員 發表：0 回覆：1 積分：0 註冊：2003-06-06 發送簡訊給我 |
發表時間：2003-05-02 16:15:21
IP:202.105.xxx.xxx 未訂閱
系統時間：2024-04-27 0:20:19
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |