Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......

delphiÈçºÎ±¸·ÝorcalÊý¾Ý¿â£¿ - Delphi / Êý¾Ý¿âÏà¹Ø

³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË

ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......

delphi ¿ò¼Ü - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÓÐûÓа취ʵÏÖ¸úQQÓÊÏäÒ»ÑùµÄЧ¹û£¬µã»÷×ó±ßµÄ²Ëµ¥£¬ÓÒ±ßˢУ¬¶à¸öÒ³Ãæ¼äÇл»£¬¶ø×ó±ßµÄ²Ëµ¥À¸²»±ä
ÓÐºÜ¶à¿Ø¼þ¿ÉÒÔʵÏÖ

µÈÄã·Ö¼Ó·Ö£¬ÎÒ¸øÄãд¸öÔ´Âë¡£Õâµã·ÖʵÔÚûÓж¯Á¦»Ø´ð¡£

ExpressBars

¿´¿´¡£

Ò ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ