请教:串口字符发送 ( 积分: 100 )

Z

zxsdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #1

我在做串口通讯,用MEMO控件作为发送的字符输入,我想请问怎样才可以得到该控件输入的字符?不知哪位大侠知道,请帮忙指点一下!多谢啦!

 

Z

zxsdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #2

我在做串口通讯,用MEMO控件作为发送的字符输入,我想请问怎样才可以得到该控件输入的字符?不知哪位大侠知道,请帮忙指点一下!多谢啦!

 

M

maxim88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #3

var s:string;

s:=memo.text;//全部内容
s:=memo.lines[1];//一行内容

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #4

SPComm1.WriteCommData(PChar(Memo1.Lines.Text) , Length(Memo1.Lines.Text));

 

C

cui5555

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #5

//向COMM2发送一行或多行
procedure TForm1.BitBtn1Click(Sender: TObject);
var strSend: String;ok:boolean;

begin
Sleep(10);
strSend:=' ';
for i:= 0 to Memo2.Lines.Count -1 do
BEGIN
IF Memo2.Lines[1]<>' ' THEN
strSend:= Memo2.Lines;
try
一行一行送
ok:=Comm2.WriteCommData(PChar(strSend) , Length(strSend));
except
Showmessage('Comm2发送错误');
end;
END;
end;