unit comm
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
SPComm, StdCtrls, ExtCtrls
type
TFcomm = class(TForm)
Comm1: TComm
GroupBox1: TGroupBox
Memo1: TMemo
Memo2: TMemo
GroupBox2: TGroupBox
Button1: TButton
Btn_send: TButton
Button2: TButton
procedure Button1Click(Sender: TObject)
procedure Button2Click(Sender: TObject)
procedure Btn_sendClick(Sender: TObject)
procedure Comm1ReceiveData(Sender: TObject Buffer: Pointer
BufferLength: Word)
private
{ Private declarations }
public
{ Public declarations }
end
标签：
interface
Messages
Graphics
Controls
上传时间：
2016-06-10
上传用户：gxmm
