現我在寫一段跟字幕機溝通的程式，使用TComm來送資料，我要送給字幕機的ASCII CODE如下
FFh 07h F8h //指令
A6h 72h B9h F5h BEh F7h //顯示字ascii code -- 中文為字幕機
00h F8h //結束碼

我使用的send( )的 funtion如下
procedure TForm1.Send();
var
Temp3:string;
lrc:LongWord;
begin
if (hComm=0) then exit; //檢查Handle值
Temp3:= ' 字幕機' ; //取得傳送的字串
WriteFile(hComm,PChar(Temp3)^,Length(Temp3), lrc, nil); // 送出資料
end;

若傳'字幕機'三個字會送A6h 72h B9h F5h BEh F7h 沒問題，但如何送指令及結束碼
若加入 Temp3:= 'FF07F8字幕機00F8'
送出去會變46h 46h 30h 37h 46h 38h A6h 72h B9h F5h BEh F7h 30h 30h 46h 38h
程式把指令FF轉成 ASCII 46 46送，但我是要送 FF一個Byte過去 要如何改 謝謝

commandStr := #$FF+#$07+#$F8
endSgtr := #$00 #$F8

Temp3:= commandStr '字幕機' endStr

編輯記錄

謝謝malanlk大大