大家好! 我用Spcomm元件與PLC通訊, 請問如下副程式senddata,可否不用for循環來做呢？應該如何寫？謝謝!

procedure TForm1.Button1Click(Sender: TObject);
begin
  senddata;
end;    procedure TForm1.senddata;  //發送資料
var
  i: integer;
  commflg: boolean;
begin
    commflg:=true;
    sbuf[0] := $02;
    sbuf[1] := $30;
    sbuf[2] := $31;
    sbuf[3] := $34;
    sbuf[4] := $36;
    sbuf[5] := $30;
    sbuf[6] := $44;
    sbuf[7] := $40;
    sbuf[8] := $41;
    sbuf[9] := $30;
    sbuf[10] := $30;
    sbuf[11] := $30;
    sbuf[12] := $35;
    sbuf[13] := $30;
    sbuf[14] := $42;
    sbuf[15] := $45;
    sbuf[16] := $03;

 for i:=0 to 16 do
  begin
    if not fmMain.Comm1.WriteCommData(@sbuf[i],1) then
      begin
        commflg:=false;  //發送失敗
        break;
      end ;
      sleep(2); //發送位元組間的延遲時間
  end;      if not commflg then
    begin
     messagedlg('連接失敗!',mterror,[mbyes],0);
     exit;
    end;
end;

SORRY~我不太懂您為何不用迴路來送出資料 不用迴路…不是就寫16次同個指令?

hi,kan0515您好!    我不想用for循環發送數據，是因為我想能否用一條指令就將數據發送過去，會不會速度比較快？ 比如說改為以下傳送方式(測試不行): 

var 
s :String;
begin
  s := #$02'01450DDA00050BE'#03;
  if not fmMain.Comm1.WriteCommData(@s,length(s)) then
      begin
        commflg:=false;  //發送失敗
        break;
end

會不會比較快？ 保證不會。 理論上它會比較快。 但是它會卡在 RS232 的速度慢。 所以。不會比較快。

謝版主大人回覆.    呵呵，我也想理論上不用for可能會比較快才對吧？ 不過就算不速度真差不了多少，我還是想知道怎麼用發送字符串的方式發送(因為覺得這樣方便一點),如下為WriteCommData原函數. 我是字符String與Pchar還有Char這幾個型態搞不太懂. 不知哪位大大可否幫忙指點一下呢?感謝 < class="code"> function TComm.WriteCommData( pDataToWrite: PChar; dwSizeofDataToWrite: Word ): Boolean; var Buffer: Pointer; begin if (WriteThread <> nil) and (dwSizeofDataToWrite <> 0) then begin Buffer := Pointer(LocalAlloc( LPTR, dwSizeofDataToWrite 1 )); Move( pDataToWrite^, Buffer^, dwSizeofDataToWrite ); FSendDataEmpty := False; if PostThreadMessage( WriteThread.ThreadID, PWM_COMMWRITE, WPARAM(dwSizeofDataToWrite), LPARAM(Buffer) ) then begin Result := True; Exit end end; Result := False end; {TComm.WriteCommData}

您好! string / PChar / Char 的分別參考如下幾篇討論: http://delphi.ktop.com.tw/topic.php?topic_id=61302 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=43759 -- hagar.