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

如何把Edit傳輸的格式設為Hexstring

尚未結案
超級賽亞人3
一般會員


發表:38
回覆:53
積分:23
註冊:2007-06-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-09-01 15:08:02 IP:163.17.xxx.xxx 訂閱

[code cpp]
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
if ((h_RS232) && (Edit1->Text != ""))
{
DCB dcb;
ZeroMemory(&dcb, sizeof(dcb));
dcb.DCBlength = sizeof(dcb);

dcb.BaudRate = 4800;
dcb.ByteSize = 8;
dcb.Parity = NOPARITY;
dcb.StopBits = ONESTOPBIT;

if(SetCommState(h_RS232,&dcb))
{
DWORD ByteCount;
WriteFile(h_RS232,
Edit1->Text.c_str(),
strlen(Edit1->Text.c_str()),
&ByteCount,
NULL);
}
Edit1->Text = "";
}
}
[/code]

我利用RS232欲傳輸HexString格式的訊息到機器上
(18)是上列程式傳輸的格式經由AccessPort抓取到的訊息格式 送出去的格式跟(20)採用AccessPort採用Plain Text所傳送的格式一樣
(19)是我用AccessPort上的HexString所傳輸的格式
上列的程式我要怎麼修改才能傳送出HexString的格式呢?

(18) [00000206] IRP_MJ_WRITE Length: 0002, Data: 46 46
(19) [00019964] IRP_MJ_WRITE Length: 0001, Data: FF
(20) [00020330] IRP_MJ_WRITE Length: 0002, Data: 46 46











編輯記錄
超級賽亞人3 重新編輯於 2009-09-02 08:12:31, 註解 無‧
超級賽亞人3 重新編輯於 2009-09-02 08:16:25, 註解 無‧
超級賽亞人3
一般會員


發表:38
回覆:53
積分:23
註冊:2007-06-05

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-09-02 08:18:04 IP:163.17.xxx.xxx 訂閱
我參考討論區很多方法,如:
delphi.ktop.com.tw/board.php
www.programmer-club.com.tw/ShowSameTitleN/cb/16426.html 等等...

其實我要的跟連結一一樣
若傳三個字會送A6h 72h B9h F5h BEh F7h 沒問題,
送出去會變46h 46h 30h 37h 46h 38h A6h 72h B9h F5h BEh F7h 30h 30h 46h 38h
程式把指令FF轉成 ASCII 46 46送,但我是要送 FF一個Byte過去

程式修改了一點


[code cpp]
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
if ((h_RS232) && (Edit1->Text != ""))
{
DCB dcb;

char *SendData;

DWORD ByteCount;
DWORD BS= strlen(Edit1->Text.c_str());

ZeroMemory(&dcb, sizeof(dcb));
dcb.DCBlength = sizeof(dcb);

dcb.BaudRate = 4800;
dcb.ByteSize = 8;
dcb.Parity = NOPARITY;
dcb.StopBits = ONESTOPBIT;
Label3->Caption = Edit1->Text.c_str();

if(SetCommState(h_RS232,&dcb))
{
WriteFile(h_RS232,Edit1->Text.c_str(),BS,&ByteCount,NULL);
}
Edit1->Text = *SendData;
//TransmitCommChar(h_RS232, 'f');
// TransmitCommChar(Edit1->Text.c_str() , 2);
//Edit1->Text = IntToHex(Edit1->Text.ToInt(),1);
Edit1->Text = "";



}
}
//---------------------------------------------------------------------------
[/code]

系統時間:2017-12-18 7:23:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!