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ÄǼ¸¸öÊôÐÔµÄ×÷ÓÃÂð£¿
ÄãÓ¦¸Ãµ½ÍøÉÏÈ¥Ê×ÏÈÑо¿Ò»Ï£¬Õ⼸¸öÊôÐÔµÄ×÷Óã¬ÄãÕâÑù±à³ÌÐò£¬¿Ï¶¨±à²»ºÃ
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
ÀÏʦ²¼ÖÃÁËÒ»¸ö¿ÎÌ⣬ÐèÒªÓÃDelphi×öÒ»¸öÓ°ÔºÊÛÆ±¹ÜÀíϵͳ£¬µ«ÊÇÎÒÃÇ»¹Ã»ÓÐѧ¹ýDelphi£¬¸÷λ¸ßÊÖÄÜ·ñÖ¸µãһϣ¬ÈçºÎ½øÐÐϵͳÉè¼Æ£¬Ê±¼ä±È½Ï½ô¼±£¬Ð»Ð»°¡
ÎÒÒ²²»¶®£¬Ò²Ïëѧ£¡
ÎÒÒ²Êǰ¡£¬¸Ð¾õDelphiͦºÃµÄ£¬ÏÖ ......
СµÜ×î½ü×öÁ˼¸¸ö·þÎñ ·þÎñÔËÐÐÐèҪһЩ²ÎÊý ²ÎÊýÊÇͨ¹ýÒ»¸ö³ÌÐò½çÃæÐÞ¸ÄµÄ ²ÎÊý±£´æÔÚaccessÊý¾Ý¿âÖÐ ÏÖÔÚ³öÏÖÒ»ÁéÒìÏÖÏó µ¥¶ÀµÄ·þÎñÊÇ¿ÉÒÔ½øÐпØÖƵ썷þÎñµÄÍ£Ö¹ ÔÝÍ£µÈµÈ£©µ«ÊǶà¸ö·þÎñÒ»Æð¿ªÆô»á³öÏÖÒ»·þÎñ¿ª ......
ÓÃdelphiµÄÏÖÓпؼþдÊÕ·¢Êý¾ÝµÄ²âÊÔ£¬ÔÚÁ½Ì¨»úÆ÷ÉÏÊÔ£¬½á¹ûÍøËÙÊÇ100MµÄ£¬´ø¿í×î¸ßÖ»ÄÜÓõ½30%ÖÁ50%£¬ÊDz»ÊÇÓ¦¸Ãͨ¹ýÍø¿¨Çý¶¯Ê²Ã´µÄÖ±½Ó×öÊÕ·¢Êý¾ÝµÄ´úÂ룿ÎÒÊÇÔÚÒª×öÒ»¸ö¼«ËÙÇé¿öÏÂÍøÂçÊý¾ÝÊÕ·¢³ÌÐò£¬ÄÇλÓÐ×ö¹ý»ò ......