ÔÚDelphiÖÐÈçºÎ´´½¨ºÍʹÓÃudlÎļþ
·½·¨Ò»£º
Ö±½Óµ¯³öUDL¶Ô»°¿ò:
use
ADOConed;
EditConnectionString(ADOQuery1);
·½·¨¶þ£º
¢Å¡¢ÓÒ¼ü---н¨---Îı¾Îĵµ£¬ÖØÃüÃûΪ connSet.udl ¡£
¢Æ¡¢Ë«»÷´ò¿ª connSet.udl °´Ìáʾ²Ù×÷ÅäÖÃÊý¾Ý¿â£¬Ñ¡Ôñ±¾µØ»òÔ¶³ÌÊý¾Ý¿â£¬ÅäÖúúóÍ˳ö¡£
¢Ç¡¢Ê¹ÓÃDelphi ¿Ø¼þTADOConnectionÁ¬½Ó´úÂ룺
ÔÚForm1µÄOnCreateʼþÈçÏÂ
try
ADOC.Connected := false;
ADOC.ConnectionString := '';
ADOC.ConnectionString := 'FILE NAME='+ExtractFilePath(ParamStr(0))+'\connSet.udl';
ADOC.Provider := ExtractFilePath(ParamStr(0))+'\connSet.udl';
ADOC.Connected := true;
except
showmessage('Á¬½Óʧ°Ü,ÇëÖØÐÂÅäÖÃconnSet.udlÎļþ');
EXIT;
end;
¢È¡¢Èç¹ûÄãÒª°ÑÓ¦ÓóÌÐò·Ö·¢µ½¾ÖÓòÍøÖÐʹÓã¬Êý¾Ý¿â·þÎñÆ÷ûÓиı䣬ֱ½Ó¸´ÖÆÓ¦ÓóÌÐò¾Í¿ÉÒÔÁË£¬²»ÓÃÔÙÅäÖÃconnSet.udl Îļþ¡£µ±ÔÚÁíÍâÒ»¸ö¾ÖÓòÍøÖа²×°Óв»Í¬ÃûµÄÊý¾Ý¿â·þÎñÆ÷ʱ£¬ÓÒ¼üÓüÇʱ¾´ò¿ªconnSet.udl Îļþ£¬»á¿´µ½£º
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=jfgl_sa;Initial Catalog=jfgl;Data Source=192.168.0.117
ÉÏÃæ¼¸ÐÐÎļþ£¬ÕâÊÇн¨connSet.udl Îļþ£¬²¢ÅäÖúÃÊý¾Ý¿âºó×Ô¶¯Éú³ÉµÄ´úÂë¡£ÎÒĬÈϵĵǼÓû§Îªjfgl_sa£¬ÃÜÂëΪ¿Õ£¬Êý¾Ý¿âΪjfgl£¬¾ÖÓòÍøÊý¾Ý¿â·þÎñÆ÷ÃûIP£º192.168.0.117£¬Äã¿É°´ÕÕ×Ô¼ºµÄʵ¼Ê»·¾³½øÐÐÅäÖá£
¢É¡¢²»Í¬µÄ¾ÖÓòÍøÊý¾Ý¿â·þÎñÆ÷£¬ÄãÖ»ÒªÐÞ¸ÄÅäÖÃconnSet.udlÁ¬½ÓÎļþ¾Í¿ÉÒÔÁË£¬²»ÓÃÐÞ¸ÄDelphi´úÂ룬ºÜ·½±ãŶ¡£
¢Ê¡¢
¹ÊÕÏ´¦Àí£ºÈç¹ûÔËÐÐÓ¦ÓóÌÐòʱ£¬³öÏÖ´íÎóÌáʾ“ÎÞЧµÄÊÚȨ˵Ã÷”£¬ÊÇÒòÎªÇ°ÃæÎÒÃÇÒѾн¨ÁËconnSet.udl
Á¬½Ó£¬ÏÖÔÚÖ»Òª°ÑDelphi¿Ø¼þTADOConnectionµÄÊôÐÔConnectionStringֵɾ³ýΪ¿Õ£¬ÕâÊǾ²Ì¬Á¬½ÓÊý¾Ý¿âµÄ×Ö·û´®Öµ£¬ËùÒÔ
ɾ³ýConnectionStringÖµºó£¬ÔÙÖØÐ±àÒë¾Í¿ÉÒÔÁË¡£
Ó÷½·¨¶þ×Ô²â³É¹¦£¬ÔÚ±¾µØ»ùÓÚoracle 10g¿ª·¢µÄ³ÌÐò£¬·Åµ½ÁíÍâ×°ÓÐoracl
Ïà¹ØÎĵµ£º
//²Î¿¼µØÖ·£ºhttp://www.wangchao.net.cn/bbsdetail_41190.html
Ò»¡¢Î¢ÈíRegExp
1. ÏÂÔØ²¢°²×°×îаæµÄ"Microsoft(r) Windows(r) Script"
¡¡¡¡2. RegExp°üº¬ÔÚvbscript.dllÖÐËùÒÔÎÒÃDZØÐëÏÈ×¢²áregsvr32 vbscript.dll
¡¡¡¡×¢(°²×°ÁËIe5ºóĬÈÏÒѾ°üº¬¸Ã¿Ø¼þ)
¡¡¡¡3.ÔÚDelph ......
program PureAPIWindow;
uses
SysUtils,
Windows,
Messages;
const
WinClassName = 'DvsClass';
StrOut = 'Davis TextOut';
//´°¿Ú»Øµ÷º¯Êý
function MyWinProc(
hWindow: HWND;
aMessage: UINT;
WParam: WPARAM;
LParam: LPARAM): LRESULT; stdcall; export;
......
http://developer.51cto.com/art/200510/7205.htm
[DELPHI]ÍøÂçÁÚ¾Ó¸´ÖÆÎļþ
uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);
[DELPHI]²úÉúÊó±êÍ϶¯Ð§¹û
ͨ¹ýMouseMoveʼþ¡¢DragOverʼþ¡¢EndDragʼþʵÏÖ,ÀýÈçÔÚPANELÉϵÄLABEL:
var xpanel,ypanel,xlabel,yla ......
±êÌâ
Delphi¶à²ã¿ª·¢·½°¸±È½Ï £¨×ªÔØ£©
¹Ø¼ü×Ö
Delphi¶à²ã¿ª·¢·½°¸±È½Ï
³ö´¦
·½°¸->
Midas
DCOM
COM+
ASTA
RemoteObject
.NET
ÌṩÕß
Borland
΢Èí
΢Èí
http://www.astatech.com
http://www.remobjects.com
΢Èí
ºËÐļ¼Êõ
COM
COM
COM
ASTA×Ô¼ ......