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

delphi Èý²ã¿ª·¢¾­Ñé»ã×Ü

delphiºÜÔç¾ÍÒѾ­¿ÉÒÔ½øÐÐÈý²ãµÄ¿ª·¢ÁË. µ«Ò»Ö±µ½ÏÖÔÚ, ÍøÉÏÕâ·½ÃæµÄ¶«Î÷Ì«ÉÙ ÁË. Ҫô̫ÀÏ, ÉõÖÁ²»ÍêÈ«ÕýÈ·.  ÀýÈç:
ÈçºÎ½øÐжà±í¸üÐÂ(Ìá½»), ºÜ¶à»Ø¸´»¹ÊÇ˵ÓÃADOConnectionµÄÊÂÎñ, (Èç¹ûҪͬʱ¸üÐÂSQL SERVERºÍOracleÊý¾Ý¿âµÄ±íÔõô°ì).
µ±È»Ò²ÓÐ˵ÓÃSetComplete, SetAbortµÄ. µ«ËµµÄºÜ¼òµ¥, ÆäÖеÄ×¢ÒâÊÂÏîÓÖÊÇÊ²Ã´ÄØ. »¹ÓеÄÍÆ¼ö¿´ÀîάµÄÄDZ¾·Ö²¼Ê½¿ª·¢µÄÊé. ÄDZ¾ÊéÖÐÊÇдÁ˺ܶàÖµµÃѧϰºÍÁ˽âµÄ¶«Î÷. µ«ÓÐЩ¶«Î÷ÒѾ­¹ýʱÁË»òÕß˵µÄ²»Ïêϸ, ÀýÈçwin2000ÖÐÒѾ­ÓÐCOM+ÁË. COM+ÒѾ­ÕûºÏÁËmts¼°ÆäËüһЩ¶«Î÷ÁË. Áí¸ö, Ò²ÓÐЩÌù×ÓÉÏÓÐÈË˵, Ó¦Ó÷þÎñÆ÷ÉÏÖ»ÓÃÒ»¸öTDataSetPrivoderºÍÒ»¸ö TDataSet(ADO, Query, DBXQueryÖ®Ò»)¾Í¿ÉÒÔÁË. µ«¾ßÌåÔõôÓÃÄØ?ÓÖ¿´²»µ½ÏÂÎÄ.
ÁíÍâ, »¹ÓÐһЩÅóÓÑÔÚÓõÚÈý·½µÄһЩ¿Ø¼þ. ÎÒ¿´ÁËÒ»ÏÂ, ´ó¶à¾ÍÏñ¸öǶÈëµ½IEÖеÄActiveX, ¸Ð¾õҲûÓÐʲôÒâ˼---Ö±½ÓŪ¸öActiveXµ½IEÖоͲ»ÐÐÁË.
1. ÈçºÎÖ»ÓÃÒ»¸öTDataSetPrivoderºÍÒ»¸öTADOQuery.
delphiµÄTRemoteDataModule¼¯³ÉÁËIAppServer½Ó¿Ú.²¢ÇÒʵÏÖÁËIAppServer½Ó¿ÚµÄ·½·¨:
view plaincopy to clipboardprint?
{ IAppServer } 
 function AS_GetProviderNames: OleVariant; safecall;  
 function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant;  
   MaxErrors: Integer; out ErrorCount: Integer;  
   var OwnerData: OleVariant): OleVariant; safecall;  
 function AS_GetRecords(const ProviderName: WideString; Count: Integer;  
   out RecsOut: Integer; Options: Integer; const CommandText: WideString;  
   var Params, OwnerData: OleVariant): OleVariant; safecall;  
 function AS_DataRequest(const ProviderName: WideString;  
   Data: OleVariant): OleVariant; safecall;  
 function AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; safecall;  
 function AS_RowRequest(const ProviderName: WideString; Row: OleVariant;  
   RequestType: Integer; var OwnerData: OleVariant): OleVariant; safecall;  
&


Ïà¹ØÎĵµ£º

DELPHIÖеĿì½Ý·½Ê½Ò»ÀÀ(ÍêÈ«Õýʽ°æ)


 1.SHIFT+Êó±ê×ó¼ü    ÏÈÑ¡ÖÐÈÎÒ»¿Ø¼þ,°´¼üºó¿ÉÑ¡Öд°Ìå(Ñ¡Öпؼþºó°´EscЧ¹ûÒ»Ñù)
 2.Shift+F8          µ÷ÊÔʱµ¯³öCPU´°¿Ú¡£
 3.Shift+F10         µÈÓÚÊó±êÓÒ¼ü£¨Windows¿ì½Ý¼ ......

Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©

Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©
linle @ 2006-05-01 13:10
ÒÔǰµÄÒ»µãÑо¿£¬¹«¿ªºÃÁË£¬ÓÐʲôÒÉÎÊ¿ÉÒÔºÍÎÒÌÖÂÛ
Èý¸ö¶àÔÂǰµÄ´úÂ룬£¬±È½ÏÓ×ÖÉ£¬´ó¼Ò½«¾ÍһϰÉ
Îļþ½á¹¹Ê¾Òâͼ
¸ñʽµÄ¼òµ¥ËµÃ÷£º
        Èçͼ1£¬Ã¿Ò»¸öWMAÎļþ£¬ËüµÄÍ·16¸ö×Ö½ÚÊǹ̶¨µÄ£¬ÎªÊ®Áù½øÖ ......

ʹÓÃDelphi±àдÆåÅÆÀàÓÎÏ· »ù´¡Æª(1)

Ŀǰ¿ª·¢ÆåÅÆÀàÓÎÏ·µÄ¹«Ë¾ºÍ¸öÈ˺ܶࡣµ«ÊǶÔÓںܶ࿪·¢ÕßÀ´Ëµ£¬¿ª·¢Ò»¿î¾ßÓпÉÀ©Õ¹¡¢Îȶ¨µÄÆåÅÆÀàÓÎÏ·»¹ÊǾßÓÐÒ»¶¨µÄÄѶȡ£Õâ´ÎÎÒ¾ÍÒÔÎÒ¿ª·¢ÆåÅÆÀàÓÎϷΪÀý£¬½²ÊöÈçºÎʹÓÃDELPHIÀ´¿ª·¢ÆåÅÆÀàÓÎÏ·¡£Ï£ÍûÎҵľ­Ñé¿ÉÒÔ¶ÔÓÎÏ·¿ª·¢°®ºÃÕ߯ðµ½Å×שÒýÓñµÄ×÷Óá£Èç¹ûÄú¶ÔÎÒ»ù´¡ÆªÖÐÉæ¼°µ½µÄÄÚÈݷdz£ÊìϤ£¬¿ÉÒÔÖ±½ÓÌø¹ý½øÈëÉè¼ÆÆª¡£ ......

ÔõÑùÔÚDelphiÖе÷ÓÃEXEÎļþ


//¼Óһϰ´Å¥£¬¼ÓÒ»¸ö¶Ô»°¿ò¾ÍOKÀ²
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if OpenDialog1.Execute then
begin
s := OpenDialog1.FileName;
WinExec( PChar(s), SW_NORMAL);
end;
end;

----------------------- ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ