全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1414
推到 Plurk!
推到 Facebook!

字串轉型byte(新手問題)

尚未結案
northwind
一般會員


發表:3
回覆:4
積分:1
註冊:2003-04-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-10 16:19:01 IP:61.221.xxx.xxx 未訂閱
請問一下....我從外部呼叫delphi所寫的dll...介面宣告如下 function GetSeqNumber(T1,B1: String;var CBuffer1,CBuffer2,CBuffer3: String): Integer;stdcall; . begin . res:=PGetSeqNumber(@PTreatItem,@PBabyTreat,PByte(@CData),@Length); . end; PGetSeqNumber為另一unit中的function...宣告如下 type PBYTE = ^BYTE; function pGetSeqNumber(C1: PBYTE; C2: PBYTE; Buffer: PByte; BufLen: PInteger): Integer; 請問我要如何將t1,b1傳入的string參數轉換成另一function的pbyte的型態 謝謝大大的幫忙
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-10 22:32:36 IP:61.221.xxx.xxx 未訂閱
由於 T1, B1 是 string, 所以可以利用 @T1, @B1 取得其 pointer, 然而 PBYTE = ^BYTE, 也是一種 pointer , 所以可以直接用 PBYTE(@T1), PBYTE(@B1) 來轉換 T1, B1 傳入. 注意的是 T1, B1 是字串, 所以用 PBYTE(@T1)^ 就是 T1 的第一個 BYTE !! 如: T1 := '123'; 則 PBYTE(@T1)^ 的值應該是 32 也就是 '1' 的 ASCII碼!
northwind
一般會員


發表:3
回覆:4
積分:1
註冊:2003-04-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-11 09:20:50 IP:61.221.xxx.xxx 未訂閱
謝謝大大的幫忙......再請問一下..你的意思是用PByte(@t1)和PByte(@b1)傳入時只傳入了t1和b1字串的第一個byte的值......那是否需要將t1和b1先丟到一個byte型態的array中再傳入
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-11 10:44:58 IP:211.76.xxx.xxx 未訂閱
引言: 用PByte(@t1)和PByte(@b1)傳入時只傳入了t1和b1字串的第一個byte的值......那是否需要將t1和b1先丟到一個byte型態的array中再傳入
不需要的, 因為利用了 PByte(@T1) 就已經傳入了一個指向 BYTE 的指標產生了, 你可以利用 Showmessage(IntToStr(PByte(@T1)^)), 會得到 32 的結果, 這樣你就明白了 但是記得 T1 仍是一個 string 變數, @T1 是指向 T1 該變數的指標, PByte(@T1) 就是指向 T1 第一個 Byte 的 Byte 指標!!
系統時間:2024-05-04 6:12:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!