請問各位先進： 小弟對於SPComm這個元件的使用並不是很了解，要如何透過com2 port 接收對方的資料。在Comm1Receivedata下要如何把接收的資料塞到Memo中。 請各位先進指點。感激不盡。 procedure TForm1.FormCreate(Sender: TObject); begin Comm1.StartComm; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Comm1.StopComm; end; procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); begin end;

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var i: integer;
  s: string;
begin
  s := '';
  for i := 1 to BufferLength do
    s := s   Buffer^[i];
  Memo1.Lines.Add(s);      // 如果是一些 16 進位字元的話, 就要另外處理了!
  // Memo1.Lines.Add(ShowCode(s));
end;

procedure ShowCode(ACode: string);
Var sShow, sCatch: string;
  i: integer;
begin
  sShow := '';
  for i := 1 to Length(ACode) do begin
    sCatch := Format('%X', [Ord(ACode[i])]);
    if Length(sCatch) = 1 then
      sCatch := '0'   sCatch;
    sShow := sShow   sCatch   ' ';
  end;
  Delete(sShow, Length(sShow), 1);
  Memo1.Lines.Add(sShow);
end;

-- Everything I say is a lie.

引言: 請問各位先進： 小弟對於SPComm這個元件的使用並不是很了解，要如何透過com2 port 接收對方的資料。在Comm1Receivedata下要如何把接收的資料塞到Memo中。 請各位先進指點。感激不盡。 procedure TForm1.FormCreate(Sender: TObject); begin Comm1.StartComm; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Comm1.StopComm; end; procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); begin end;

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var s:string; begin s:=Copy(Buffer,0,BufferLength) Memo1.Lines.Add(s); end;

引言:

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var i: integer;
  s: string;
begin
  s := '';
  for i := 1 to BufferLength do
    s := s   Buffer^[i];
  Memo1.Lines.Add(s);      // 如果是一些 16 進位字元的話, 就要另外處理了!
  // Memo1.Lines.Add(ShowCode(s));
end;

procedure ShowCode(ACode: string);
Var sShow, sCatch: string;
  i: integer;
begin
  sShow := '';
  for i := 1 to Length(ACode) do begin
    sCatch := Format('%X', [Ord(ACode[i])]);
    if Length(sCatch) = 1 then
      sCatch := '0'   sCatch;
    sShow := sShow   sCatch   ' ';
  end;
  Delete(sShow, Length(sShow), 1);
  Memo1.Lines.Add(sShow);
end;

-- Everything I say is a lie.

請問先進： 為何在compiler的時候，s:= s Buffer^[i];這一行都會出現 Array type required,順便在請教一個問題，就是讀取完Buffer這一段data 之後，要如何把Buffer清空，謝謝。

引言: 請問先進： 為何在compiler的時候，s:= s Buffer^[i];這一行都會出現 Array type required,順便在請教一個問題，就是讀取完Buffer這一段data 之後，要如何把Buffer清空，謝謝。

原來小弟這樣寫是錯的, 那就用 cmf 兄的寫法。 -- Everything I say is a lie.

引言: 請問先進： 為何在compiler的時候，s:= s Buffer^[i];這一行都會出現 Array type required,順便在請教一個問題，就是讀取完Buffer這一段data 之後，要如何把Buffer清空，謝謝。

Buffer清空 FillChar(Buffer,BufferLength,#0);

引言: 順便在請教一個問題，就是讀取完Buffer這一段data 之後，要如何把Buffer清空，謝謝。

不需要清空它, SPComm 是在收到資料後,將資料放到它內部的 buf, 在一定量或是 TIMEOUT 後,才會將內部資料以 OnReceiveData 一次傳給你, 而它自己內部的 buf 在用 OnReceiveData 傳給你時, 就已清空, 準備接之後的資料了，所以說, 不必清它。 沒空更新的網頁...

C及指標教學,計算機概論,資訊管理導論... http://coolsite.to/dllee

介紹Shells,LiteStep,GeoShell.... http://coolsite.to/ushells

請問各位先進, SPComm這個元件是否只能使用於 COM1~9之通信埠,為什麼無法開啟COM10以上之通信埠? 謝謝 !

請問一下 我使用了cmf大大的方法 可是在compiler會出現型態錯誤的訊息耶 Pointer型態可以直接轉成String型態嗎?

jim1247 您是說哪一段 @@

------
︿︿

sorry 忘了說明^^" s:=Copy(Buffer,0,BufferLength) ^^^^^^ 在compiler會出現型態錯訊的訊息 因為Buffer變數是Pointer型態 而Copy函式要放String or 陣列才行 PS:我是新手..問題太笨請見諒QQ

我的 help 是這樣ㄚ @@ Returns a substring of a string or a segment of a dynamic array. Unit System Category string handling routines function Copy(S; Index, Count: Integer): string; function Copy(S; Index, Count: Integer): array; Description S is an expression of a string or dynamic-array type. Index and Count are integer-type expressions. Copy returns a substring or sub array containing Count characters or elements starting at S[Index]. If Index is larger than the length of S, Copy returns an empty string or array. If Count specifies more characters or array elements than are available, only the characters or elements from S[Index] to the end of S are returned. Note: When S is a dynamic array, Copy can only be used as a parameter in a call to a procedure or function that expects an array parameter. That is, it acts like the Slice function when working with dynamic arrays. 發表人 - cmf 於 2003/05/16 12:15:03

------
︿︿

引言: 我的 help 是這樣ㄚ @@ Returns a substring of a string or a segment of a dynamic array. Unit System Category string handling routines function Copy(S; Index, Count: Integer): string; function Copy(S; Index, Count: Integer): array; Description S is an expression of a string or dynamic-array type. Index and Count are integer-type expressions. Copy returns a substring or sub array containing Count characters or elements starting at S[Index]. If Index is larger than the length of S, Copy returns an empty string or array. If Count specifies more characters or array elements than are available, only the characters or elements from S[Index] to the end of S are returned. Note: When S is a dynamic array, Copy can only be used as a parameter in a call to a procedure or function that expects an array parameter. That is, it acts like the Slice function when working with dynamic arrays. 發表人 - cmf 於 2003/05/16 12:15:03

可是在compiler時一直說這行有問題?? 不知cmf大大可以試一下嗎?

你的程式貼上來 我看看 註: 我的程式就是這樣寫ㄚ@@

------
︿︿

引言: 你的程式貼上來 我看看 註: 我的程式就是這樣寫ㄚ@@

var tmpS, inbuff: String; procedure TfrmOutput.btnUpClick(Sender: TObject); begin tmpS := 'ASK10' Chr(13); Comm1.CommName := 'Com1'; Comm1.StartComm; Comm1.WriteCommData(@tmpS, Length(tmpS)); //傳出'ASK10'的字串 Comm1.StopComm; end; procedure TfrmOutput.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word); begin inbuff := Copy(Buffer, 0, BufferLength); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ //回傳'OVER'的字串 end; compiler一直出現Incompatible Types的錯誤訊息

難道是版本不同嗎 =.=" , 再試試吧 ! inbuff := Copy(Buffer, 0, integer(BufferLength));

------
︿︿

引言: 難道是版本不同嗎 =.=" , 再試試吧 ! inbuff := Copy(Buffer, 0, integer(BufferLength));

經過不斷的嘗試後...還是不行@@ 我再想辦法好了....>"< PS:我是用delphi5.0版

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var s:string; begin SetLength(S, BufferLength); Move(Buffer^, PChar(S)^, BufferLength); Memo1.Lines.Add(S); end;