Cport 串口编程 的使用方法或实例 急 急 急

Question

俺  在线  等。

Answer 1

begin 
    ComPort1.ShowSetupDialog; 
end; procedure TForm1.BtnOpenClick(Sender: TObject); 
begin 
    if ComPort1.Connected then 
    begin 
        ComPort1.Close; 
        BtnOpen.Caption := 'Port öffnen'; 
    end 
    else 
    begin 
        ComPort1.Open; 
        BtnOpen.Caption := 'Port schließen'; 
    end; 
end; procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Memo1.Clear; 
    Memo2.Clear; 
end; procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); 
var s: String; 
begin 
    ComPort1.ReadStr(s, Count); 
    Memo1.Text := Memo1.Text + s; 
end; 

Answer 2

http://www.delphiaddicts.com/forums/showthread.php?p=40Working with CPort Library

Answer 3

//-------------------------------send data 
var
  sendbuf:array [0..254] of char;
begin
  if not comport1.Connected then
     comport1.Connected:=true;
  try
    FillChar(sendbuf,255,$30);
    ComPort1.Write(sendbuf,255);
  except  end;
end;