delphi½ÓÊÜUDPÊý¾Ý°ü
ËÄܸøÎÒ¸ö¼òµ¥µÄÀý×Ó delphi½ÓÊÜUDPÊý¾Ý°üµÄ Òª½ÓÊÕÊý×éµÄ ×îºÃÊÇÓà IdTCPserver1µÄ ×îºÃ»¹Óз¢Ë͵IJ¿·Ö ±¾È˲ËÄñ£¬Ð»Ð»¸÷λÁË£¡£¡
Â¥ÉϸøµÄÊÇTCPµÄ°É ÎÒÒªUDPµÄ лл£¡£¡ÒýÓà ×îºÃÊÇÓà IdTCPserver1µÄ Õâ²»ÊÇÄãдµÄÂð ¶Ô²»ÆðÎÒд´íÁË ÎÒÒªIdUDPClient1 ²»ºÃÒâ˼ procedure TForm1.Button1Click(Sender: TObject); var a:array[0..1] of char; begin a[0]:='A'; a[1]:='B'; self.IdUDPClient1.SendBuffer('127.0.0.1',1984,a,sizeof(a)); end; лл¥ÉÏ Èç¹ûÎÒÏë½ÓÊÜÊý¾Ýʱºò Ö±½Ó°Ñ½ÓÊÕµ½µÄÊý¾Ý¸³Öµ¸øÊý×é ÒªÔõô×ö£¿ÒýÓà лл¥ÉÏ Èç¹ûÎÒÏë½ÓÊÜÊý¾Ýʱºò Ö±½Ó°Ñ½ÓÊÕµ½µÄÊý¾Ý¸³Öµ¸øÊý×é ÒªÔõô×ö£¿ AData: TStream,Õâ¸ö²ÎÊý£¬Äã¿ÉÒÔÓÃStreamµÄд»º³åÇø·½·¨°ÑÊý¾Ýдµ½Êý×éÖÐÒýÓà ÒýÓà 7 Â¥ lazijiding µÄ»Ø¸´: лл¥ÉÏ Èç¹ûÎÒÏë½ÓÊÜÊý¾Ýʱºò Ö±½Ó°Ñ½ÓÊÕµ½µÄÊý¾Ý¸³Öµ¸øÊý×é ÒªÔõô×ö£¿ AData: TStream,Õâ¸ö²ÎÊý£¬Äã¿ÉÒÔÓÃStreamµÄд»º³åÇø·½·¨°ÑÊý¾Ýдµ½Êý×éÖÐ ²»Ì«¶® д³öÀ´°É лл£¡£¡ procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var sStream: TStringStream; a:array[0..1] of char; i:integer; begin &nb
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬ Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02 ¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×ֶΠselect * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 ) ¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö Mark!!!!!! se ......
µ÷ÓÃdelphiдµÄÒ»¸öcom×é¼þ£¬·½·¨ÊÇ procedure test(out Param1: Integer); safecall; ×¢²ácomÖ®ºóÔÚc#ÖÐÒýÓö¼Ã»ÓÐÎÊÌâ ............´´½¨²¿·Ö¾ÍÊ¡ÂÔ²»Ð´ÁË ............ int v_int; test(out v_int); µ÷ÓÃte ......
ÎÊ´ó¼Ò¸öÎÊÌ⣺ ÏÖÔÚÓÐÒ»¸öÏֳɵijÌÐò£¬ÊÇvisual foxpro×öµÄ£¬Êý¾Ý¿âÊÇdbfÎļþ£¬ÎÒûÓÐÓùýfoxpro£¬¿ªÊ¼¶¼Ã»ÕÒµ½Êý¾Ý¿â£¬ÖÕÓÚ¿´Ã÷°×ÔÀ´dbf¾ÍÊÇÊý¾Ý¿â£¬£¨µ«Õâ¸ö³ÌÐòºÃ¶à¸ödbf°¡£¡»¹Ã»°²×°foxpro£¬Ã»´ò¿ªÕâЩÊý¾Ý¿â ......
²»ºÃÒâ˼£¬You are fooled£¡ ¹þ¹þ£¬ÓÞÈ˽ڿìÀÖ£¡ÎÒÒªÄÜÈ«¸ãµ½£¬ÎÒ¾ÍÈ¥¹ú¼Ò°²È«¾ÖÁË£¡ ºÇ£¬Ä㻹ÕæÏñ°²È«¾ÖµÄ b4 ¹þ¹þ£¡ ÕæºÃ b4 ÎÒµ¹ ¹þ¹þ£¡ ½ñÌìÒ»¶¨ÒªÇõ¹Ò»個»ðÐǵġ£ ÕâÀïÓÐºÜ ......