Delphi spcomm ¿Ø¼þ - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢
´óÏÀÃǰïæ¿´Ò»Ï£¬ÓÃspcomm¿Ø¼þ½øÐд®¿ÚͨÐÅ¡£
·¢ËÍÊý¾Ý£º
procedure TForm1.Button2Click(Sender: TObject);
var
strPressure:string;
begin
strPressure:='SEND'+#13;
comm1.WriteCommData(pchar(strPressure),Length(strPressure));
end;
½ÓÊÕÊý¾Ý£º
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
RecvBuf:string;
strPressure:string;
str:string;
begin
Setlength(RecvBuf,BufferLength);
move(buffer^,pchar(recvbuf)^,bufferlength);
strPressure:=recvbuf;
strPressure:=MidStr(strPressure,7,bufferlength-6);
strPressure:=LeftStr(strPressure,bufferlength-10);
str:='ѹǿÊÇ£º'+strPressure;
memo1.Lines.Add(str);
end
end;
¸øÆøÑ¹´«¸ÐÆ÷ͨÐÅ£¬µ«ÊÇTForm1.Comm1ReceiveData´Ëʼþ¾ÍûÓд¥·¢¹ý£¬ÎªºÎѽ?
Õ⼸ÌìÕâ¸öÎÊÌâºÃ¶à¡£¡£¡£
°ÑÄãµÄSpComm¿Ø¼þÊôÐÔÒ³ÀËùÓÐTrueµÄµØ·½¶¼¸ÄΪFalseÔÙÊÔ¡£
ÊDz»ÊÇ這個ÃüÁî無Ч°¡
(Ц°ÔÍõ) :
ÄÜÏêϸ½²½âÉèÖÃfalseÄǼ¸¸öÊôÐÔµÄ×÷ÓÃÂð£¿
ÄãÓ¦¸Ãµ½ÍøÉÏÈ¥Ê×ÏÈÑо¿Ò»Ï£¬Õ⼸¸öÊôÐÔµÄ×÷Óã¬ÄãÕâÑù±à³ÌÐò£¬¿Ï¶¨±à²»ºÃ
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
ÓÐûÓа취ʵÏÖ¸úQQÓÊÏäÒ»ÑùµÄЧ¹û£¬µã»÷×ó±ßµÄ²Ëµ¥£¬ÓÒ±ßˢУ¬¶à¸öÒ³Ãæ¼äÇл»£¬¶ø×ó±ßµÄ²Ëµ¥À¸²»±ä
ÓÐºÜ¶à¿Ø¼þ¿ÉÒÔʵÏÖ
µÈÄã·Ö¼Ó·Ö£¬ÎÒ¸øÄãд¸öÔ´Âë¡£Õâµã·ÖʵÔÚûÓж¯Á¦»Ø´ð¡£
ExpressBars
¿´¿´¡£
Ò ......