DelphiµÄOFFICE¿ª·¢[ת]
1£®ÒýÑÔ
ÔÚÀûÓÃdelphi¿ª·¢Ó¦ÓóÌÐòµÄʱºò£¬Í¨³£ÎÒÃÇÒªÉè¼Æ³öºÜ¶à¸÷ÖÖ¸ñʽµÄÎĵµ¡¢±¨±í£¬¾³£Òª½øÐÐÎļþµÄ´´½¨¡¢±à¼¼°Ð޸ģ¬ËäÈ»delphi±¾ÉíÌṩÁ˺ܶàÉè¼Æ±¨±íµÄ¿Ø¼þ»ò·½·¨£¬µ«ÊÇ´æÔÚÃ÷ÏԵIJ»×㣬±ÈÈçÖÐÎÄÊäÈ룬Êý¾Ý¸ñʽµÄ¿ØÖƵȲÙ×÷ÆðÀ´±È½ÏÂé·³¡£ÀûÓôó¼Ò¶¼ºÜÊìϤµÄoffice¹¤¾ß½áºÏ¿ª·¢£¬Äܹ»ºÜºÃµÄ½â¾öÕâ·½ÃæµÄÎÊÌâ¡£ÒÔϾÍÒÔdelphiΪÀýÏêϸ½éÉÜÔõôÀûÓÃofficeÍê³É¸÷ÖÖÎĵµ¡¢±¨±íµÄÖÆ×÷¡£
2£®ÊµÏÖ·½·¨
ÀûÓÃdelphiºÍoffice½áºÏ¿ª·¢Ö÷ÒªÓÐÒÔÏÂÈýÖÖ·½·¨£º
(1) ͨ¹ýdelphiµÄ¿Ø¼þtolecontainer ½«officeǶÈ룬ÕâÊÇ×î¼òµ¥µÄoleǶÈ룬Äܹ»Ö±½Ó½«officeÎĵµµ÷Óã¬Ö»ÐèҪʹÓÃtolecontainer.run¾Í¿ÉÒÔ½«officeÎĵµÖ±½ÓÆô¶¯¡£ÇÒÕâÑùÆô¶¯µÄofficeÎĵµÓëdelphi³ÌÐòÊÇÒ»¸öÕûÌ壨´Ó½çÃæÉÏ¿´£©£¬µ«ÊÇËü´æÔÚ²»¿É¿Ë·þµÄȱµã£¬¼´²»ÄÜͨ¹ýdelphi¿ØÖÆofficeÎĵµ£¬Ò²¾Í²»ÄÜʵÏÖ½«Áé»î²Ù×ÝofficeµÄÄ¿µÄ¡£
(2) ʹÓÃdelphiÌṩµÄservers¿Ø¼þµ÷ÓÃoffice£¬Ê¹ÓÃofficeµÄÊôÐÔ£¬Ê¹ÓÃdelphiµÄservers¿Ø¼þÀ´²Ù×Ýoffice£¬ÔÚ±à³ÌʱdelphiÄܹ»ÊµÏÖ´úÂëÌáʾ£¬×ÜÌåÉÏ¿´Äܹ»½ÏºÃµÄʵÏÖdelphi¶ÔofficeµÄ¿ØÖÆ£¬µ«ÊÇ»¹ÓÐһЩofficeµÄ¹¦Äܲ»ÄÜÔÚdelphiÖе÷Ó㨱ÈÈç×Ô¼º±àдµÄvbaºê´úÂ룩¡£ÇÒʵÏÖ¹¦ÄÜʱ±¾À´ÔÚvba´úÂëÖпÉÑ¡Ôñ²ÎÊýÔÚdelphiµ÷ÓõÄʱºò±ØÐëÌí¼Ó£¬·ñÔò£¬Á¬±àÒ붼²»ÄÜͨ¹ý¡£ÕâÖÖ·½Ê½Æô¶¯µÄofficeÓëdelphi³ÌÐò·ÖÊôÁ½¸ö´°Ìå¡£
¡¡¡¡(3) ʹÓÃcreateoleobject½«Æô¶¯office£¬È»ºóÒÔole·½Ê½¶Ôoffice½øÐпØÖÆ¡£ÕâÖÖ°ì·¨ÊÇʹÓÃÒÔcreateoleobjects·½Ê½µ÷ÓÃoffice£¬Êµ¼ÊÉÏ»¹ÊÇole£¬µ«ÊÇÕâÖÖ·½Ê½Äܹ»ÕæÕý×öµ½ÍêÈ«¿ØÖÆofficeÎļþ£¬Äܹ»Ê¹ÓÃofficeµÄËùÓÐÊôÐÔ£¬°üÀ¨×Ô¼º±àдµÄvbaºê´úÂë¡£Óëservers¿Ø¼þºÍcom¼¼ÊõÏà±È£¬±¾·½·¨Äܹ»ÕæÕýµØʹÓÃofficeµÄ¸÷ÖÖÊôÐÔ£¬ºÍÔÚvbaÖбàд×Ô¼ºµÄ´úÂë»ù±¾Ò»Ñù£¬¿ÉÒÔȱʡµÄ´úÂëÒ²²»ÐèҪʹÓá£
3£®Èí¼þʵÏÖ
3£®1µÚÒ»ÖÖ·½·¨£ºÍ¨¹ýdelphiµÄ¿Ø¼þtolecontainer ½«officeǶÈ룬²Ù×÷·½·¨ÈçÏ£º
£¨1£© µ÷ÓÃdelphiÖÐsystemÒ³¿Ø¼þtolecontainerʵÏÖ£»
£¨2£© Ë«»÷olecontainer£¬³öÏÖÈçϽçÃ棺
(3)ÕâʱÄã¿ÉÒÔ½øÐÐÑ¡ÔñÁË£¬Ñ¡Ôñ£¦#8220;ÓÉÎļþ´´½¨£¦#8221;£¬Ñ¡ÔñÏàÓ¦µÄÎĵµ£¬¼°¾Í¼òµ¥µÄʵÏÖÁ˽«officeÎĵµµ÷ÈëµÄ¹¦ÄÜ£»ÈçÏÂͼ£º
3£®2µÚ¶þÖÖ·½·¨£ºÊ¹ÓÃdelphiÌṩµÄservers¿Ø¼þµ÷ÓÃoffice£»ËüʹµÃÎÒÃǺÜÈÝÒ׵ذÑofficeÖеÄÓ¦ÓóÌÐò(word, excel, powerpoint, outlook and accessµÈ)µ±×÷Ò»¸öcomÓ¦Ó÷þÎñÆ÷½øÐпØÖÆ£¬ÒÔwordΪÀý£¬½éÉÜÆäʵÏÖ·½·¨£º
£¨1£© µ÷ÓÃtworddocument
Ïà¹ØÎĵµ£º
procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
tmpStr:String;
sValue:String;
iStart,iPos:Integer;
begin
try
desLst.Clear; //ºÜÖØÒª£¬·ñÔò£¬»áÒ» ......
TreeViewÓɽڵ㹹³É£¬½¨Ê÷ͨ¹ý¶ÔTreeView.itemsÊôÐÔ½øÐвÙ×÷¡£ItemsÊÇÒ»¸öTTreeNodes¶ÔÏó£¬ÕâÊÇÒ»¸öTTreeNode¼¯¡£
Ò»¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,ÓÐÕâЩÊôÐÔ£º
1¡¢count£¬½Úµã¸öÊý¡£
2¡¢item[index] ,ͨ¹ýindexµÃµ½½Úµã¡£
¶þ¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,³£ÓõÄÌí¼Ó½ÚµãµÄ²Ù×÷ÓУº
Add ......
ÕÐƸÈËÊý£º 4ÈË
ѧÀúÒªÇó£º ²»ÏÞ
¹¤×÷ÄêÏÞ£º ²»ÏÞ
н×Ê·¶Î§£º ÃæÒé
¹¤×÷µØµã£º ±±¾©Í¨ÖݾſÃÊ÷
Delphi³ÌÐòÔ±ËÄÃûְλҪÇó
񻂗:
1. ÊìÁ·Ê¹ÓÃDELPHI(C,C++, C#µÈ)½øÐпª·¢£»
2. ¾ßÓÐÁ¼ºÃµÄ³ÌÐò±àдϰ¹ß£»
3. ÔúʵµÄ»ù±¾¹¦£¬½á¹¹ÇåÎú¡¢ºÏÀí£»
4. Á¼ºÃµÄÖ´ÐÐÄÜÁ¦£¬½ÏºÃµÄÍê³ÉÔ¤¶¨ÈÎÎñ£»
5. ÉϽøÐÄÇ¿£¬ÄܳԿ ......
DelphiÖÐΪDBGrid¿Ø¼þÌí¼ÓÉ«²Ê
2005-08-08 09:13×÷ÕߣºÐ¡µ¶ÇáÎè³ö´¦£ºÌ켫ÍøÔðÈα༣º·½ÖÛ
¡¡¡¡Ìí¼Ó²»Í¬ÑÕÉ«µ½TDBGrid×é¼þÖн«»áÔöÇ¿×é¼þµÄÏÔʾÍâ¹ÛºÍÇø±ðÊý¾Ý¿âÖв»Í¬ÄÚÈݵÄÐлòÁС£
¡¡¡¡TDBGrid×é¼þÊÇÒ»Öַdz£°ôµÄÓÃÀ´ÏÔʾÊý¾ÝÄÚÈݵÄ×é¼þ£¬±¾ÎĵÄÖص㽫ÓÃÀ´½âÊÍ---ÈçºÎÔÚTDB ......
ÒýÓÃ×Ô£ºhttp://www.delphifans.com/infoview/Article_6445.html
Delphi ¹Ø¼ü×ÖÏê½â
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλ ......