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

delphiÓësqlite

from : http://zhyhero.googlepages.com/heartset
file:0 Ç°ÑÔ
       ±¾ÎĵÄÄ¿µÄÔÚÓÚ²ÉÓÃÁ÷Ë®ÕË·½Ê½À´¼Ç¼ѧϰdelphi·ÃÎÊǶÈëʽÊý¾Ý¿âsqliteÖеÄһЩµãµÎ¡£»¶Ó­¸÷λͬºÃ¹²Í¬Ñ§Ï°ºÍÅúÆÀÖ¸Õý¡£
file:1 ×¼±¸¹¤×÷part1
       delphi°æ±¾:delphi2007 for win32 update3¡£ÈÎÒâ°²×°°æ±¾¼´¿É¡£
       sqlite dll°æ±¾:3.5.3¡£Ä¿Ç°×îа汾µÄsqliteÒýÇæ¡£[ http://www.sqlite.org/ ]
       sqlite for delphi:simple sqlite 3.0 for delphi¡£Ä¿Ç°µÄ×îа汾µÄ·¢²¼ÈÕÆÚΪ27 August 2007£¬Ö§³Ösqlite dll°æ±¾3.4.2¡£¾­¼òµ¥²âÊÔ£¬3.5.3Ò²ÊÇ¿ÉÒԵġ£×Ô´ødemo¡£[ http://www.itwriting.com/sqlitesimple.php ]
file:2 ×¼±¸¹¤×÷part2
      Ð½¨Ò»¸ö´°ÌåÓ¦ÓóÌÐò¹¤³Ì£¬²¢É趨±£´æµÄÎļþ¼Ð¡£½«simple sqlite 3.0 for delphi ÖÐµÄ sqlite3.pas£¬sqlite3table.pas£¬sqlite3udf.pas¿½±´ÖÁ¹¤³ÌËùÔÚµÄÎļþ¼Ð¡£²¢ÔÚ¹¤³ÌÖÐÌí¼ÓÕâÈý¸öÎļþ¡£¿½±´sqlite.dllµ½±àÒëÉú³ÉexeÎļþµÄÎļþ¼Ð¡£Õâ¸öÒª¿´¸öÈ˵ÄÉ趨¡£
file:3 ³õ²½²âÊÔ
      ÒýÓÃSQLiteTable3.pasµ¥Ôª¡£
      ÔÚ´°ÌåÉÏ´´½¨Ò»¸ö½ÐbtnVersionµÄ°´Å¥(Tbutton)¡£ÔÚbtnVersionµÄclickʼþÖÐдÈëÏÂÃæµÄ´úÂë¡£
procedure TfrmAbout.btnVersionClick(Sender: TObject);
var
  SqliteDB:TSQLiteDatabase;
begin
  SqliteDB:=TSQLiteDatabase.Create('');
  showmessage('Sqlite dll version:'+SqliteDb.version);
  SqliteDB.Free;
end;
      ±àÒëÔËÐУ¬³É¹¦µÄ»°£¬½«»áÏÔʾµ±Ç°µÄsqlite dllµÄ°æ±¾ºÅ£¬ÎÒµÄÊÇ3.5.3¡£
file:4 ¼òµ¥¹¤×÷Ô­ÀíÃèÊö
      ÔÚsimple sqlite3.0 for delphiµÄ¼¸¸öÎļþÖУ¬Ö÷ÒªÓõ½Á½¸öÎļþ¡£·Ö±ðÊÇsqlite3.pas£¬sqlite3table.pas¡£
      sqlite3.pasʵÏÖsqlite.dllµÄ½Ó¿ÚÍⲿ¶¨Òå¡£
      sqlite3table.pas½øÐмòµ¥µÄ·ÃÎʺ¯Êý·â×°¡£
      ÔÚdelphiÖУ¬Í¨¹ýsqlite3table.pasÀ´ÊµÏÖ¶ÔsqliteÊý¾Ý¿âµÄ¸÷ÖÖ·ÃÎÊ¡£
      ¹ØÓÚsqlite3udf.pas£¬¸ù¾Ý×÷ÕßµÄÃèÊö£¬Ö÷ÒªÓÃÓë´´½¨Óû


Ïà¹ØÎĵµ£º

WIN32ÏÂDELPHIÖеĶàÏ̡߳¾ÉîÈëVCLÔ´Âë¡¿£¨Ò»£©

Ï̵߳Ļù´¡ÖªÊ¶
      Ï̵߳Ä×é³É¡£Ïß³ÌÓÐÁ½²¿·Ö×é³É¡£
     1¡¢Ò»¸öÊÇÏ̵߳ÄÄں˶ÔÏ󣬲Ù×÷ϵͳÓÃËüÀ´¶ÔÏß³Ìʵʩ¹ÜÀí¡£Äں˶ÔÏóÒ²ÊÇϵͳÓÃÀ´´æ·ÅÏß³Ìͳ¼ÆÐÅÏ¢µÄµØ·½¡£
     2¡¢ÁíÒ»¸öÊÇÏ̶߳ÑÕ»£¬ËüÓÃÓÚά»¤Ïß³ÌÔÚÖ´ÐдúÂëʱÐèÒªµÄËùÓк¯Êý²ÎÊýºÍ¾Ö² ......

Delphi IDhttp »ñÈ¡Cookie

»ñÈ¡post£¬»òÕßget·µ»ØµÄcookie£¬³ýÁ˹ýÂË·µ»ØµÄ×Ö·û´®Ö®Í⣬×î¼òµ¥µÄ·½·¨ÊÇʹÓÃidhttpµÄCookieManagerÊôÐÔ
±ÈÈç»ñµÃIDhttp·µ»ØµÄÈ«²¿Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......

ÔÚdelphiÖÐÅжÏ×Ö·û´®ÊÇ·ñÊý×Ö£¬ÒÔ¼°¾«¶È´¦Àíº¯Êý

// ÅжÏÊÇ·ñÊÇÊýÖµÐÍ   By yangxiao  2007.7.21
function isNumeric(strText: WideString): Boolean;
var
  s: string;
  i, l, p: Integer;
begin
  Result := False;
  l := Length(strText);
  if l = 0 then Exit;
  s := '';
  for i:=1 to l do
  ......

ÓÃdelphiÖÆ×÷OCX¿âÎļþ£¨Èý£©

¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
view|type library
ÕÒµ½ÒѾ­Éú³ÉµÄtype library,ÆäʵºÍTLBÎļþÊǶÔÓ¦µÄ¡£
ÎÒÃÇ¿ÉÒÔ¿´µ½ÉÏÒ»²½Éú³ÉµÄ¶ÔÏóÒ²º¬ÔÚÀïÃæ¡£
ÎÒ ......

×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»(delphi)

ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
  s:string;
  p:pchar;
  a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
    p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
    s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
    StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ½PChar
   ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ