DelphiµÃµ½×Ô¼ºIP
ÎÒÏëд¸öÒþ²ØµÄ³ÌÐò µÃµ½Ò»¸ö¶¯Ì¬µÄ×Ô¼ºµÄIP
²»ÖªÔõôд ÓÿؼþµÄ»° Òþ²ØµÄ³ÌÐòÅÂÊÇÓò»Á˵Ä
Ï£ÍûÓиöº¯Êý×îºÃ
procedure GetHostInfo(var Name, Address: string);
var
WSAData: TWSAData; ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎÒÃÇÕâЩ¸ö³ÌÐòÔ±£¬ÓÃϰ¹ßÁËÄÇЩ¹¦ÄÜ£¬Í»È»Ö®¼ä¾Í²»ÄÜÓÃÁË£¬ÓÖ²»ÄÜ͵͵µÄÓÃÆóÒµ°æ¡£
ÎÒ×ܽἸ¸ö±È½Ï³£ÓõĹ ......
//ÉèÖÃDBGridÍ·
gbWareInfo.Columns.Clear;
myCoumn:=gbWareInfo.Columns.Add;
myCoumn.Title.Caption:='ÉÌÆ·±àºÅ';
myCoumn.FieldName:='ID';
myCoumn:=gbWareInfo.Columns.Add;
myCoumn.Title.Caption:='ÉÌÆ·Ãû³Æ';
myCo ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐÐ
¶¨Òå
function CommitCurrentPayCashCardList2(iBillID: Integer; sCashier: PChar; piTransID: PInt ......
ÇódelphiÔõÑùÁ¬½ÓSqlite Ôöɾ¸Ä²éÀý×Ó
ÓÃASqlite3Query,ÉèÖÃËûµÄconnectionΪASqlite3DB
ASqlite3Query.Sql.text := 'insert into ....';
ASqlite3Query.Execsql;
sqlstr:='insert into student_test(id,username,telephone,address,state) values(:id,:username,:telephone,:address,:state)';& ......
delphiÁ¬½ÓSqlite Ôöɾ¸Ä²éÀý×Ó
Êý¾Ý¿âÒѾÁ¬Í¨ÁË, ²åÈë»á±¨´í£¬no query specified
with dm.ASQLite3Query1 do
begin
dm.ASQLite3Query1.Close;
dm.ASQLite3Query1.SQL.Clear;
sqlstr:='insert into student_test(id,username,telephone,address,sta ......