Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

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

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

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

DELPHI DLLʵ²Î´«´°Ìå

//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
  skf:TbsBusinessSkinForm;
  nskfrm:TForm;
begin
  frmUUMain:=skfrm;
  skf:=TbsBus ......

ÓÃDelphi×öÒ»¸öÓ°ÔºÊÛÆ±¹ÜÀíϵͳ

ÀÏʦ²¼ÖÃÁËÒ»¸ö¿ÎÌ⣬ÐèÒªÓÃDelphi×öÒ»¸öÓ°ÔºÊÛÆ±¹ÜÀíϵͳ£¬µ«ÊÇÎÒÃÇ»¹Ã»ÓÐѧ¹ýDelphi£¬¸÷λ¸ßÊÖÄÜ·ñÖ¸µãһϣ¬ÈçºÎ½øÐÐϵͳÉè¼Æ£¬Ê±¼ä±È½Ï½ô¼±£¬Ð»Ð»°¡
ÎÒÒ²²»¶®£¬Ò²Ïëѧ£¡

ÎÒÒ²Êǰ¡£¬¸Ð¾õDelphiͦºÃµÄ£¬ÏÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ