Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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£¬¸ù¾Ý×÷ÕßµÄÃèÊö£¬Ö÷ÒªÓÃÓë´´½¨Óû


Ïà¹ØÎĵµ£º

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......

DelphiÖÐÎļþ¿½±´·½·¨¼¯ºÏ

Ò»¡¢Ê¹ÓÃÎļþÁ÷µÄ·½·¨½øÐп½±´£¬µ±È»¡£Í¬ÑùµÄµÀÀí£¬ÄãÒ²¿ÉÒÔʹÓÃÄÚ´æÁ÷µÈ·½·¨½øÐÐÎļþµÄ¿½±´£¬Ô­ÀíÊÇÒ»ÑùµÄ¡£
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
 f1 := tfilestream.Create(sourcefilename, fmopenread);
 try
   f2 := tfilestream ......

DelphiÈý²ã ѹËõÊý¾Ý´«Êä

Client:TSocketConnection ºÍServer: Scktsrvr¹ØÏµ----ѹËõÊý¾Ý´«Êä
Ò»Ö±ÓÃSocketConnectionºÍ·þÎñ¶ËµÄ´«ÊäÊý¾ÝÔÚÈý²ãÊý¾Ý¿âÖУ¬´ÓÀ´Ã»ÓÐ×¢Òâµ½ËüÃÇÖ®¼äµÄÊý¾Ý´«Ê䣬ֻÊÇÏë×Å£¬¹ÜËüÁË£¬ÍøÂçµÄÊ£¬Ç°¶Îʱ¼äÔÚDelphiÖеÄDemosÖз¢ÏÖDemos\Midas\Intrcpt.dprÀý×Ó£¬ºÇºÇ£¬ÔÙ¿´Á˰ëÌìµÄVCL·¢ÏÖ¿ÉÒÔ½«Client¶Ë·¢Ë͵ĸøServerµÄÊ ......

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

¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
1¡¢´´½¨COM Object¡£
new|other|activeX|com object
ÔÚClass Name(±¾ÀýÀïÀàÃûÀïÌîObject£¬¿É°´×Ô¼ºÐèÒªÌîд) ÌîдÀàÃû.(Instancing:ʵÀý´´½¨·½Ê½,Threading Model:Ï ......

DelphiµÄWeb Services¼¼Êõ¿ª·¢¶ÌÐÅÓ¦ÓóÌÐò

Ò»ÌáÆð»ùÓÚWeb Services¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVs.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß(RAD)µÄÀÏ´ó£¬Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ