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

delphi ÎÊÌâÇóÖú - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

ÎÊÌâÊÇÕâÑù×ÓµÄ
ÎÒÔÚform1Öж¨ÒåÁËÒ»¸ösk1:tsocket
È»ºóÔÚform2ÖÐ
ÓÃsk1 ·¢ËͶ«Î÷ ·¢Íêºó socket ×Ô¶¯¹Ø±ÕÁË~
µ«ÊÇÔÚform1Öз¢¶«Î÷ Èç¹ûÎÒ²»ÔËÐÐ closesocket µÄ»° ÊDz»»á¶ÏµôµÄ
ÎÊÏ ÕâÊÇÔõô»ØÊÂ

ÁíÎÒÔÚ form2 Àï¼ÓÁ˸ö 
uses Unit1;
Ö±½Óµ÷ÓÃ sk1~
ÕâÑù×ÓÓ¦¸ÃûÎÊÌâ°É~
µ¥²½µ÷ÊÔÁËÏÂ~

type
  test_array=array[0..211] of Byte;
var
re:integer;  
message_headpack:array[0..3] of Byte;
  test_byte:array[0..207] of Byte;
  send_pack:test_array;
  psend_pack:^test_array;
~~~~~~~~~~~~~~~~~~~~
ǰ±ßÊÇЩ¸³ÖµÓï¾ä¾Í²»¸´ÖÆÁË
for i:=0 to sizeof(message_headpack)-1 do
  send_pack[i]:=message_headpack[i];
for i:=SizeOf(message_headpack)to SizeOf(send_pack)-1 do
  send_pack[i]:=test_byte[i-sizeof(message_headpack)];
re:=send(sk1,psend_pack^,Length(psend_pack^),0);
//µ¥²½ÔËÐе½ÕâÒ»²½ ¾Í·¢ÏÖÐÅÏ¢°ü·¢³öÈ¥ºó È»ºósocketÒ²×Ô¶¯¹Ø±ÕÁË~sk1ÊÇÌ×½Ó×Ö~ÎÒÔÚunit1Öж¨ÒåµÄ
  if(Re=SOCKET_ERROR)then
  begin
  ShowMessage('·¢ËÍ´íÎó');
  exit;
  end;
 form2.Release;
  close;

¸ßÊÖ°ïÎÒ¿´ÏÂ

¶¥ÆðÀ´~
Õâ¸öµ½µ×ÊÇÔõô»ØÊ°¡~
·þÎñÆ÷ÊÇÓÃCдµÄ
ÎÒÔÚunit1 Ï·¢ËÍ ÊDz»»á¶Ï¿ªµÄ~
µ«ÔÚunit2 Ï·¢ËÍ socket¾Í¶Ï¿ªÁË~

¼Ó¸öÊä³ö´íÎóÐÅÏ¢¿´ÏÂ

uses
  Winsock2;

try
  re:=send(sk1,psend_pack^,Length(psend


Ïà¹ØÎÊ´ð£º

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

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

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

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

ѧϰѧϰ¡£

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

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

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

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

delphi 數據類ÐÍ

delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:

var
arr:array ['A'..'Z'] of Char;

Óü¯ºÏ¸ã¶¨

Ôõ麼È¥運ËãÄØ£¿inc() ......

delphi Õ÷¼¯¸ßÊÖ·ÖÎö

СµÜ×î½ü×öÁ˼¸¸ö·þÎñ ·þÎñÔËÐÐÐèҪһЩ²ÎÊý ²ÎÊýÊÇͨ¹ýÒ»¸ö³ÌÐò½çÃæÐÞ¸ÄµÄ ²ÎÊý±£´æÔÚaccessÊý¾Ý¿âÖÐ ÏÖÔÚ³öÏÖÒ»ÁéÒìÏÖÏó µ¥¶ÀµÄ·þÎñÊÇ¿ÉÒÔ½øÐпØÖƵ썷þÎñµÄÍ£Ö¹ ÔÝÍ£µÈµÈ£©µ«ÊǶà¸ö·þÎñÒ»Æð¿ªÆô»á³öÏÖÒ»·þÎñ¿ª ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ