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

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;




Ïà¹ØÎÊ´ð£º

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

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

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

xml´´½¨ºóÈçºÎÏú»Ù? - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......

delphi¾ÍÊDZ»ÄÇЩÕý°æ´úÀíÉ̸ãÀõÄ

¾­³£´òµç»°µ½¹«Ë¾,˵ÓõÁ°ædelphi,ÒªÆðËß¹«Ë¾
ËùÒÔÏÖÔÚ¹«Ë¾ ¶¼²»¸Ò·¢²¼ÕÐÆ¸delphi³ÌÐòÔ±....
ÄDz»ÊÇÎÊÌâ¡£
ÎÊÌâÔÚÓÚÔõô´¦ÀíËûÃǵĵ绰¡£
ÎҵĽ¨ÒéÊÇ£¬Èç¹ûÅöµ½ÕâÖֵ绰£¬Äã¾Í˵¡±µÈÏ£¬´¦ÀíÕâ¼þÊÂÇéµÄÈ˲»ÊÇÎÒ£ ......

VCµ÷ÓÃDELPHI DLLÂÒÂë

Delphi(Pascal) code:

library HealthDocDll;
uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
HealthDoc in 'HealthDoc.pas' {frmHealthDoc},
pub in 'pub.pas';
{$R *.res}
proced ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ