使用 MsComm 回傳值出現亂碼的問題~ |
|
尚未結案
|
|
phliao
一般會員   發表：8 回覆：8 積分：3 註冊：2003-08-14 發送簡訊給我 |
目前在試磅秤系統
接收回傳值顯示在Memo上會出現亂碼
我知道回傳值是OleVaviant型態的值
不知道要怎麼傳換
煩請有經驗的高手指教一下~~謝謝 procedure TForm1.FormCreate(Sender: TObject);
begin
MSComm1.CommPort := 1;
MSComm1.settings := '9600,n,8,1';
MSComm1.inputlen := 0;
MSComm1.inbuffercount := 0;
MSComm1.PortOpen := true;
end;
.
procedure TForm1.MSComm1Comm(Sender: TObject);
begin
Memo1.Lines.Add(Trim(MSComm1.Input));
end;
.
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MSComm1.PortOpen := false;
end;
|
|
jeffreck
高階會員  發表：247 回覆：340 積分：197 註冊：2003-01-23 發送簡訊給我 |
引言: 目前在試磅秤系統 接收回傳值顯示在Memo上會出現亂碼 我知道回傳值是OleVaviant型態的值 不知道要怎麼傳換 煩請有經驗的高手指教一下~~謝謝 procedure TForm1.FormCreate(Sender: TObject); begin MSComm1.CommPort := 1; MSComm1.settings := '9600,n,8,1'; MSComm1.inputlen := 0; MSComm1.inbuffercount := 0; MSComm1.PortOpen := true; end; . procedure TForm1.MSComm1Comm(Sender: TObject); begin Memo1.Lines.Add(Trim(MSComm1.Input)); end; . procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin MSComm1.PortOpen := false; end;我公司電子磅秤不知是否和你一樣?? 我是設這樣!! MSComm1.Settings = '2400,E,7,1' 另外,傳回值因該是字串 |
發表時間：2004-02-28 10:08:36
IP:203.75.xxx.xxx 未訂閱
系統時間：2024-06-29 3:56:37
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |