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 TForm1.Button3Click(Sender: TObject);
begin
//ÏÔʾ´´½¨µÄÊý¾Ý¼¯: dbgrid->datasource->clientdataset
//Èç¹ûÊÖ¹¤¿ØÖÆdbgridÏÔʾ¿í¶È,dbgridÓÒ¼ü´´½¨Á½¸ö×Ö¶Îaa,bb,·Ö±ðÉèÖÿí¶È¼´¿É
cds1.FieldDefs.Add('aa',ftString,40);
......
(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......
DelphiÖÐΪDBGrid¿Ø¼þÌí¼ÓÉ«²Ê
2005-08-08 09:13×÷ÕߣºÐ¡µ¶ÇáÎè³ö´¦£ºÌì¼«ÍøÔðÈα༣º·½ÖÛ
¡¡¡¡Ìí¼Ó²»Í¬ÑÕÉ«µ½TDBGrid×é¼þÖн«»áÔöÇ¿×é¼þµÄÏÔʾÍâ¹ÛºÍÇø±ðÊý¾Ý¿âÖв»Í¬ÄÚÈݵÄÐлòÁС£
¡¡¡¡TDBGrid×é¼þÊÇÒ»Öַdz£°ôµÄÓÃÀ´ÏÔʾÊý¾ÝÄÚÈݵÄ×é¼þ£¬±¾ÎĵÄÖØµã½«ÓÃÀ´½âÊÍ---ÈçºÎÔÚTDB ......
Õª
Òª£º±¾ÎÄͨ¹ýʹÓÃDelphiºÍWebServices¼¼Êõ¿ª·¢¶ÌÐÅÓ¦ÓóÌÐòµÄʵÀýÏêϸµÄ½éÉÜÁËÈçºÎÔÚDelphiÖпª·¢»ùÓÚWebServices¼¼Êõ
µÄÓ¦ÓóÌÐò¡£
¡¡¡¡¹Ø¼ü×Ö£ºDelphi£»WebService£»¶ÌÐÅÓ¦ÓóÌÐò¿ª·¢
¡¡¡¡Ò»ÌáÆð»ùÓÚWebServices¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVS.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß
(RAD)µ ......
ÓÐÒ»¶Îʱ¼äûÕý¾µÄÓÃdelphiÁË£¬Ç°Á½ÌìÏÂÔØÁËDelphi2010£¬ÓÃËüÀ´ÕÒÕÒDelphiµÄ¸Ð¾õ£¬°ÑдµÄһЩ¶«Î÷¹²Ïí³öÀ´£¬´ó¼Ò¹²Í¬Ñ§Ï°Ò»Ï£¬ºÇºÇ¡£
ÎÒÏë×öÒ»¸ö˫ɫÇòµÄ·ÖÎöÈí¼þ£¬ÒÔÏÂÊÇÆäÖÐʵÏֵIJ¿·ÖÀàµÄµ¥ÔªÎļþ£¬ÆäËûÎļþºóÐøÒ»µãÒ»µãµÄ²¹Æë£¬Óв»Í׵ĵط½£¬Ï£Íû´ó¼ÒÖ¸Õý£¬Ð»Ð»À²£¡
ÔÚʹÓÃDelphi2010ÊÇ£¬·¢ÏÖ¸öÎÊÌ⣬ÔÚÓÃshowº¯Êý ......