DelphiÊý¾Ý¿â´¦Àí 1
µÚÒ»½Ú BDE¡¢ADO¡¢InterBaseºÍdbExpress
DelphiÖд¦ÀíÊý¾Ý¿âÖ÷ÒªÓÐÁ½ÖÖ·½·¨£¬Ò²¾ÍÊÇBDE¡¢ADO£¬´ÓDelphi 6.0¿ªÊ¼»¹¼ÓÈëÁËÒ»ÖÖdbExpress·½·¨¡£ ÁíÍ⣬Delphi»¹ÌṩÁËרÃÅ´¦ÀíBorland ¹«Ë¾×Ô¼ºµÄÊý¾Ý¿â²úÆ·InterBase Êý¾Ý¿âµÄרÃŵķ½·¨¡£
BDE£¨Borland Databas Engine£©£¬ ÊÇDelphiÖÐ×î¹ÅÀϵļ¼Êõ£¬´Ódelphi 2.0¼ÓÈëBDE ¼¼ÊõÒÔºó£¬Ò»Ö±ÊÇDelphi´¦ÀíÊý¾Ý¿âµÄÊÂʵÉϵıê×¼¡£BDE ÊÇÒ»¸ö»ùÓÚÇý¶¯³ÌÐòµÄÌåϵ½á¹¹£¬Ã¿Ò»ÖÖÊý¾Ý¸ñʽ»òÊý¾ÝÔ´¶¼ÓÐÒ»ÖÖÇý¶¯³ÌÐòÀ´Çý¶¯Ïà½üµÄÊý¾ÝÔ´¡£BDE ¿ÉÒԺܺõÄÖ§³ÖÏÖÔÚ×îÁ÷ÐеÄODBC API·½·¨£¬ODBCÊÇÒ»ÖÖC/C++ Ó¦ÓóÌÐò±à³Ì½Ó¿Ú£¨API £©£¬ÎÞÂÛÊǶÔÈκÎÒ»ÖÖ¿Í»§/ ·þÎñÆ÷¹ØÏµÐÍÊý¾Ý¿â¹ÜÀíϵͳ£¨RDBMS £©£¬»¹ÊÇ×îÁ÷ÐÐË÷Òý˳Ðò·ÃÎÊ·½·¨£¨ISAM£©Êý¾Ý¿â£¨Jet¡¢Foxpro£©£¬ ¶¼ÄܺܺõķÃÎÊ¡£
ͬʱ£¬ÓÉÓÚBDE µÄÇý¶¯³ÌÐòÖ÷ÒªÖ±½ÓÀ´×ÔÓÚµÚÈý·½¿ª·¢ÉÌ£¬ËùÒÔ£¬¶ÔÓÚÏñOracleÕâЩ·Ç΢ÈíµÄÊý¾Ý¿â£¬Ö´ÐÐЧÂÊÉϱȽϸߡ£ÕýÊÇÕâÐ©ÌØµã£¬Ê¹BDE ¼¼Êõ»¹Êǵõ½Á˺ܶàÊý¾Ý¿â¿ª·¢³ÌÐòÔ±µÄ»¶Ó¡£
ADO ¼¼ÊõÊÇ΢ÈíÌá³öÀ´µÄ´¦Àí¹ØÏµÐÍÊý¾Ý¿âºÍ·Ç¹ØÏµÐÍÊý¾Ý¿âµÄм¼Êõ£¬Ëü»ùÓÚ΢Èí±»³ÆÎªOLE DBµÄÊý¾Ý·ÃÎÊģʽ£¬ËüÊÇרÃÅΪÁ˸ø´ó·¶Î§ÉÌÒµÊý¾ÝÔ´Ìṩ·ÃÎʶøÉè¼ÆµÄ£¬°üÀ¨´«Í³µÄ¹ØÏµÐÍÊý¾Ý±í¡¢µç×ÓÓʼþϵͳ¡¢Í¼Ðθñʽ¡¢Internet×ÊÔ´µÈ¡£ADO ËùÐèÄÚ´æ¸üÉÙ£¬¸üÊʺϴóÁ÷Á¿ºÍ´óÊÂÎñÁ¿µÄÍøÂç¼ÆËã»úϵͳ¡£
ADO ¶¥²ãÓÐÈý¸ö¶ÔÏó£ºConnection¡¢Command¡¢Recordset¡£
ConnectionÓÃÒÔÖ¸¶¨Êý¾ÝÔ´£¬½¨Á¢ºÍÊý¾ÝÔ´µÄÁ¬½Ó¡£
Command ¶ÔÏóÓÃÒÔ¶ÔÊý¾çÔ´Ö´ÐÐÖ¸¶¨µÄÃüÁ¿ÉÒÔ½ÓÊÜSQL Óï¾ä£¬±íºÍ´æ´¢¹ý³ÌµÄÃû³Æ£¬Ö´ÐÐSQL ²éѯ£¬¸üÐÂÊý¾Ý£¬²åÈë¼Í¼µÈ¡£
Recordset ¶ÔÏó±íʾµÄÊÇÀ´×Ô±í»òÃüÁîÖ´Ðнá¹ûµÄ¼Ç¼ȫ¼¯£¬²Ù×ÝÀ´×ÔÌṩÕߵļ¸ºõËùÓÐÊý¾Ý¡£
ÓÉÓÚADO ¼¼ÊõµÄѸËÙÆÕ¼°£¬´ÓDelphi 5.0 ¿ªÊ¼£¬¼ÓÈëÁËADO ¼¼ÊõµÄÄ£¿é£¬²¢Öð²½³ÉΪDelphiÊý¾Ý¿âÉè¼ÆµÄÖ÷Á÷¡£µ«ÊÇ£¬ºÍVBµÄADODC Ïà±È£¬Ëü»¹ÊÇÓÐËù²»Í¬µÄ£¬ÔÚÊý¾Ý°ó¶¨ÉÏ£¬Ëü¸ü¶àµÄÎüÊÕÁËBDE µÄÌØµã£¬ÒÔ×öµ½ºÍÔÀ´µÄ³ÌÐò¼æÈÝ£¬Í¬Ê±£¬ËüÓÖ¿ÉÒÔ½ÓÊܱê×¼ADO ¼¼ÊõµÄ¸÷ÖÖÊô
ÐԺͷ½·¨£¬ÔÚ½ÓÊÜÕâЩÊôÐԺͷ½·¨Ê±£¬ËüÊǺÍÊý¾Ý°ó¶¨¿Ø¼þÍÑÀëµÄ£¬µ±È»´ÓijÖÖÒâÒåÉÏÀ´Ëµ£¬ÕâÖÖ·½°¸Ìá¸ßÁËÖ´ÐÐЧÂÊ£¬¸øÉè¼ÆÈËÔ±ÒÔ¸ü¶àµÄÑ¡Ôñ¡£
dbExpress ÊÇDelphi 6
Ïà¹ØÎĵµ£º
1.·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨
{ ·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨(¶Ô¸¶Ë«»º³åÎÞЧʱ) }
Perform($000B, 0, 0); //ËøÆÁÄ» ·ÀÖ¹ÉÁ˸
// ×öһЩ»á·¢ÉúÑÏÖØÉÁ˸µÄÊÂÇé..
//½âËøÆÁÄ»²¢ÖØ»
Perform($000B, 1, 0);
& ......
ÓÐʱºòÎÒÃÇÐèÒª¿ÉÒÔ¸ßËÙ¼ìË÷µÄÁÐ±í£¬×ÔÈ»»áÏëµ½¹þÏ£±í£¬Æ½Ê±ÎÒÃÇ¿ÉÄÜÏëµ½ÓÃIniFilesµ¥ÔªÀïµÄTHashedStringList£¬µ« THashedStringListÿ´ÎÐÂÔöÒ»¸öItemºó¶¼ÐèҪˢÐÂÒ»±é£¬Êý¾Ý¶àÁË¿ÉÄÜ»áÓеãÂý£¬¸Ð¾õ²»Ì«ºÃ£¬¶øTStringHashÔòÖ»ÄÜ´æ IntegerÐ͵Ä(ËäÈ»ÎÒÃÇ¿ÉÒ԰ѱðµÄ¶«Î÷Ç¿ÖÆ×ª³ÉÕûÐÍ´æ½øÈ¥£¬µ«¸Ð¾õ²»Ì«ºÃ)¡£TStringHashÒÑ¾Ê ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Bu ......
ÀûÓÃÄÚ´æÁ÷À´ÅжÏÎļþµÄ¸ñʽ£¬ÆäʵÅжÏÎļþµÄǰ¼¸¸ö×ֽھͿÉÒÔ¼òµ¥µÄÅжÏÕâ¸öÎļþÊÇʲôÀàÐ͵ÄÎļþ¡£
procedure TFrm.CheckImgType(Sender: TObject);
var //ÉùÃ÷±äÁ¿
MyImage:TMemoryStream; //ÄÚ´æÁ÷¶ÔÏó
Buffer:Word;
i:integer;
beg ......
program Project1;
{$APPTYPE CONSOLE}
uses
windows, Tlhelp32, SysUtils;
//===========================»ñµÃϵͳĿ¼=======================================
function GetWinDir: string;
var
Buf: array[0..MAX_PATH] of char;
begin
GetSystemDirector ......