線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1601
推到 Plurk!
推到 Facebook!

關於SPComm 的問題 請指教

 
lichun1228
一般會員


發表:16
回覆:17
積分:11
註冊:2003-12-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-12-29 17:03:34 IP:220.130.xxx.xxx 訂閱
我想用來取得讀卡機的資料 讀卡機驅動也都安裝完畢 卡片插入也會反應  但執行時都會出現 'Error opening serial port' 的錯誤訊息 
請問我已經有指定port給它了 Comm1.CommName:='COM1'; 為什麼還會出現錯誤? 請指教 謝謝
unit SPCommUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, SPComm;
type
TForm1 = class(TForm)
Comm1:TComm;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear; //清除螢幕
Comm1.CommName:='COM1';
Comm1.StartComm;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Comm1.StopComm;
end;
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.Button1Click(Sender: TObject);
var s:string;
begin
Comm1.WriteCommData(PChar(s),Length(s)); //送出指令給遠端
end;
end.
lichun1228
一般會員


發表:16
回覆:17
積分:11
註冊:2003-12-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-12-30 22:04:20 IP:220.132.xxx.xxx 訂閱
我發現是因為我已裝了讀卡機驅動的關西 才會如此
系統時間:2024-05-18 4:52:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!