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
Ïà¹ØÎĵµ£º
WinExecÖ÷ÒªÔËÐÐEXEÎļþ¡£È磺
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute²»½ö¿ÉÒÔÔËÐÐEXEÎļþ£¬Ò²¿ÉÒÔÔËÐÐÒѾ¹ØÁªµÄÎļþ¡£
Ê×ÏȱØÐëÒýÓÃshellapi.pasµ¥Ôª£ºuses ShellAPI;
1.±ê×¼Ó÷¨
¡¡¡¡ ShellExecuteº¯ÊýÔÐͼ°²ÎÊýº¬ÒåÈçÏ£º
function ShellExecute(hWnd: HWND; Operati ......
DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àÐ ......
VCLÖеÄShapeÊǸöºÜ²»´íµÄ¿Ø¼þ£¬¿ÉÒÔÑ¡Ôñ¼¸ÖÖͼÐΣ¬ÒÔÂú×ãÎÒÃǵÄÐèÇ󣬵«ÓÐʱºò¾ÍÊǾõµÃËüµÄ¿ÉѡͼÐÎÉÙÁËÒ»µã£¬±ÈÈçÎÒÃÇÏëÒªÒ»¸öÈý½ÇÐΣ¬ËüȴûÓС£ÓÚÊǾÍÏëµ½À´À©Õ¹Ò»ÏÂÕâ¸ö¿Ø¼þ£¬ÃûΪShapeEx¡£ÆäʵÀ©Õ¹µÄ¹¦Äܲ»¶à£¬Ö»ÊÇÔö¼ÓÁËһЩͼÐΡ£¶øÀàÒ²²¢²»ÊǼ̳Ð×ÔTShape£¬¶øÊǼ̳Ð×ÔTGraphicControl£¬ÕâÑù¿ÉÒÔÈÃÎÒÃdz¹µ×¿´¿´Í¼ÐÎ ......
(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......
ÒýÓÃ×Ô£ºhttp://www.delphifans.com/infoview/Article_6445.html
Delphi ¹Ø¼ü×ÖÏê½â
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλ ......