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
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
ÀÏʦ²¼ÖÃÁËÒ»¸ö¿ÎÌ⣬ÐèÒªÓÃDelphi×öÒ»¸öÓ°ÔºÊÛÆ±¹ÜÀíϵͳ£¬µ«ÊÇÎÒÃÇ»¹Ã»ÓÐѧ¹ýDelphi£¬¸÷λ¸ßÊÖÄÜ·ñÖ¸µãһϣ¬ÈçºÎ½øÐÐϵͳÉè¼Æ£¬Ê±¼ä±È½Ï½ô¼±£¬Ð»Ð»°¡
ÎÒÒ²²»¶®£¬Ò²Ïëѧ£¡
ÎÒÒ²Êǰ¡£¬¸Ð¾õDelphiͦºÃµÄ£¬ÏÖ ......