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

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


Ïà¹ØÎĵµ£º

delphi_·Ö¸ô×Ö·û´®_¶à¼ä¸ô×Ö·û

procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
  tmpStr:String;
  sValue:String;
  iStart,iPos:Integer;
begin
  try
    desLst.Clear;             //ºÜÖØÒª£¬·ñÔò£¬»áÒ» ......

David I̸DelphiÏÖ×´ÓëδÀ´

¸ÅÒª
×ÔÈ¥ÄêCodeGear±»Ó¢°Í¿¨µÏŵ£¨Embarcadero Technologies£©ÊÕ¹ººó£¬´ó¼Ò¶ÔDelphiµÄδÀ´·¢Õ¹·Ç³£¹ØÐÄ¡£½üÈÕ£¬InfoQÖÐÎÄÕ¾ÓÐÐÒ¶ÔDavid I½øÐÐÁ˶À¼Òר·Ã£¬ÒÔÁ˽â¸ü¶à¹ØÓÚDelphiµÄÏà¹ØÐÅÏ¢¡£
¸öÈ˼ò½é
David Intersimone£¨¼ò³ÆDavid I£©£¬Ó¢°Í¿¨µÏŵ¸ºÔ𿪷¢Õß¹ØÏµµÄ¸±×ܲúÍÊ×ϯÐû´«¹Ù£¨Chief Evangelist£©¡£David¸º ......

¹ØÓÚDelphiÖжþάÊý×éµÄÉùÃ÷ºÍ´óСµ÷Õû

ÕâÊÇÒ»¸öʵÀý£º
procedure TMainForm.Button1Click(Sender: TObject);
var
  arr:array of array of string;
begin
  setlength(arr,2,3);
  arr[1,2]:='this is a test';
  setlength(arr,0,0);
  setlength(arr,4,5);
  showmessage(arr[1,2]);
end;
ÉùÃ÷Ò»¸ö¶þάÊý×éµÄ·½·¨ÊÇÓ ......

ÓÃDelphiºÍWeb Services¿ª·¢¶ÌÐÅÓ¦ÓóÌÐò

Õª
Òª£º±¾ÎÄͨ¹ýʹÓÃDelphiºÍWebServices¼¼Êõ¿ª·¢¶ÌÐÅÓ¦ÓóÌÐòµÄʵÀýÏêϸµÄ½éÉÜÁËÈçºÎÔÚDelphiÖпª·¢»ùÓÚWebServices¼¼Êõ
µÄÓ¦ÓóÌÐò¡£
¡¡¡¡¹Ø¼ü×Ö£ºDelphi£»WebService£»¶ÌÐÅÓ¦ÓóÌÐò¿ª·¢

¡¡¡¡Ò»ÌáÆð»ùÓÚWebServices¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVS.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß
(RAD)µ ......

Delphi ˫ɫÇò·ÖÎöÈí¼þ(1)

ÓÐÒ»¶Îʱ¼äûÕý¾­µÄÓÃdelphiÁË£¬Ç°Á½ÌìÏÂÔØÁËDelphi2010£¬ÓÃËüÀ´ÕÒÕÒDelphiµÄ¸Ð¾õ£¬°ÑдµÄһЩ¶«Î÷¹²Ïí³öÀ´£¬´ó¼Ò¹²Í¬Ñ§Ï°Ò»Ï£¬ºÇºÇ¡£
ÎÒÏë×öÒ»¸ö˫ɫÇòµÄ·ÖÎöÈí¼þ£¬ÒÔÏÂÊÇÆäÖÐʵÏֵIJ¿·ÖÀàµÄµ¥ÔªÎļþ£¬ÆäËûÎļþºóÐøÒ»µãÒ»µãµÄ²¹Æë£¬Óв»Í׵ĵط½£¬Ï£Íû´ó¼ÒÖ¸Õý£¬Ð»Ð»À²£¡
ÔÚʹÓÃDelphi2010ÊÇ£¬·¢ÏÖ¸öÎÊÌ⣬ÔÚÓÃshowº¯Êý ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ