delphi´æ·Åµ½Ò»¸öÊý×éÀï
¶¨Ò壺 type pm= packed record { IO¼Ç¼ } Name:string[16]; { IOÃû³Æ } CHn:Byte; {ÊäÈëͨµÀºÅ } Pvh:Double; { Á¿³ÌÉÏÏÞ } Pvl:Double; { Á¿³ÌÏÂÏÞ } DW:string[8]; { Á¿³Ìµ¥Î» } Bjh:Double; { ±¨¾¯ÉÏÏÞ } Bjl:DOuble; { ±¨¾¯ÏÂÏÞ } BjCHn:Byte; { ±¨¾¯Êä³öͨµÀ } Pv:Double; { ²âÁ¿Öµ } Code:Word; { ²âÁ¿Öµ´úÂë } BZ1:Byte; BZ2:Byte; BZ3:Byte; end; IOtalab:array[0..3]of pm; Sbuf : Array[0..8191] of Byte; ÈçºÎ½«IOtalab±í ´æ·Åµ½SbufÀïÃæ£¿¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢¡¢ Çë½Ì¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£
ÓÃStreamд CopyMemoryÒýÓà CopyMemory ÓÃÁËcopymemory µ«²»ÐÐ °ÑIOtalabдÈëµ½streamÖУ¬È»ºóÔÙ°ÑstreamдÈëµ½Sbuf ÖÐ Á½ÖÖ·½·¨£º 1. ʹÓÃmoveÖ®ÀàµÄ¸´Öƺ¯Êý£» 2. ʹÓñäÌå¼Ç¼£¬ÐèÒªÉÔ΢¸Ä±äÒ»ÏÂÀàÐͶ¨Ò壺 TSbuf = packed record case integer of 0: (IOtalab: array[0..3] of pm); 1: (sbuf: Array[0..8191] of byte); end; var IOtalab: array[0..3]of pm; Sbuf: TSbuf; ʹÓ㺠sbuf.iotalab[1].name := 'hello'; sbuf.sbuf[8000] := 123;
Ïà¹ØÎÊ´ð£º
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿ ÊÕÈëÔõôÑù sohu£¿soho£¿ sohu ¿ÉÄÜÊÇsmall office house unit С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£ È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾ ѧϰѧϰ¡£ ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
xml := CreateOleObject('Microsoft.XMLHTTP'); xml.Open('GET','http://www.google.com', False); xml.Send; xml.responseText; ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
¾³£´òµç»°µ½¹«Ë¾,˵ÓõÁ°ædelphi,ÒªÆðËß¹«Ë¾ ËùÒÔÏÖÔÚ¹«Ë¾ ¶¼²»¸Ò·¢²¼ÕÐÆ¸delphi³ÌÐòÔ±.... ÄDz»ÊÇÎÊÌâ¡£ ÎÊÌâÔÚÓÚÔõô´¦ÀíËûÃǵĵ绰¡£ ÎҵĽ¨ÒéÊÇ£¬Èç¹ûÅöµ½ÕâÖֵ绰£¬Äã¾Í˵¡±µÈÏ£¬´¦ÀíÕâ¼þÊÂÇéµÄÈ˲»ÊÇÎÒ£ ......
Delphi(Pascal) code: library HealthDocDll; uses SysUtils, Classes, Forms, Dialogs, Windows, HealthDoc in 'HealthDoc.pas' {frmHealthDoc}, pub in 'pub.pas'; {$R *.res} proced ......