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

delphi¿ª·¢ocx¿Ø¼þ¿ª·¢±Ê¼Ç£¨Ò»£©

      ÓÉÓÚÏîÄ¿µÄÐèÒª£¬½üÆÚ¿ªÊ¼Ñ§Ï°ÓÃdelphi¿ª·¢Ò»¸öÈíµç»°¿Ø¼þ¡£
      ÒÔǰ½Ó´¥¹ýһЩdelphi¿ª·¢·½ÃæµÄ¶«Î÷£¨µ±È»¶¼ÊÇЩƤëÀ²£©£¬µ«Ã»½Ó´¥¹ýocx¿Ø¼þµÄ¿ª·¢£¬Ôڴ˰ÑһЩ¼òµ¥µÄ¶«Î÷¼ÇÏÂÀ´£¬Ò»·½ÃæÒÔºó×Ô¼º¿ÉÒÔÔÙѧϰ£¬ÁíÒ»·½ÃæÏ£Íû¶Ô¸Õ¸Õѧϰdelphi¿ª·¢ocx¿Ø¼þµÄ³õѧÕßÓÐËù°ïÖú£¬Èç¹ûÓÐʲôдµÄ²»¶ÔºÍдµÄ²»ºÃµÄµØ·½£¬»¹Çë¸÷λ¶à¶àÖ¸Õý£¬ÔÚ´ËÏÈллÁË¡£
      ¹ØÓÚocx¿Ø¼þµÄһЩ»ù´¡ÖªÊ¶ÔÚÕâÀï¾Í²»ËµÕâô¶àÁË£¬ÍøÂçÉÏÓкܶàÕâ·½ÃæµÄÎÄÕ£¬ÓÐÐËȤµÄÅóÓÑ¿ÉÒÔµ½ÍøÉÏÈ¥ËÑËÑ£¡£¡
      Delphi¼¯³É¿ª·¢»·¾³¶Ô¿ª·¢ocx¿Ø¼þÌṩÁ˺ܺõÄÖ§³Ö£¬Ö»Òª¼òµ¥µÄ¼¸²½¾Í¿ÉÒÔ¿ª·¢³öÊôÓÚ×Ô¼ºµÄocx¿Ø¼þÁË£¬ÏÂÃæÊÇdelphi¿ª·¢ocxµÄһЩ¼òµ¥µÄ²½Ö裺
      1¡¢ ´ò¿ªdelphi¼¯³É¿ª·¢»·¾³£¬Ñ¡ÔñFile->new->other£¬´Ëʱµ¯³öÒ»¸ö¶àÒ³µÄ´°¿Ú£¬Ñ¡ÔñActiveXÒ³£¬Ñ¡ÔñActiveX Form,µã»÷OKºó£¬µ¯³ö¹¤³ÌÊôÐÔ¿ò£¬ÎªActiveXÆðÒ»¸öÃû×Ö£¬ÕâÑùÒ»¸öocx¿Ø¼þµÄ¹¤³Ì¾Í½¨Á¢ºÃÁË
      2¡¢ ±£´æ¹¤³Ì
      ÕâÑùÒ»¸öocx¿Ø¼þ¾Í½¨ºÃÁË£¬µ«Õâ¸öocx²»¾ß±¸Èκι¦ÄÜ£¬²»¹ýÕâʱ¿ÉÒÔ¶ÔÕâ¸öocx½øÐбàÒëÈ»ºóͨ¹ýweb·¢²¼£¬ÔÙͨ¹ýÎÒÃǾÍä¯ÀÀÆ÷¾Í¿ÉÒÔµ÷ÓÃÕâ¸öocx¿Ø¼þÁË£¬ÏÂÃæ½éÉÜϱàÒëºÍ·¢²¼µÄһЩ¼òµ¥²½Ö裺
      1¡¢Ñ¡Ôñproject->compile project(ctrl+F9)a±àÒ빤³Ì
      2¡¢×¢²á×é¼þ£ºRun->register ActiveX server(˵Ã÷£¬µ±ÍùformÖÐÔö¼ÓеÄ×é¼þºó£¬±àÒëÍêºóÒªÖØÐÂ×¢²á£¬²»È»µÄ»°£¬Ð¼ӵÄ×é¼þÏÔʾ²»³öÀ´)
      3¡¢·¢²¼£ºproject->web deploy


Ïà¹ØÎĵµ£º

DelphiʵÏÖ²Ù×÷ExcelʾÀý

implementation
uses ComOBJ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var ExcelAPP1:Variant;
    ExcelApp2:Variant;
    I,j: Integer;
    ID,IDX:string;
begin
try
  ExcelAPP1:=CreateOleObject('Excel.Application');
  E ......

delphiÊý¾Ý¿â´¦Àí


µÚÒ»½Ú BDE¡¢ADO¡¢InterBaseºÍdbExpress
    DelphiÖд¦ÀíÊý¾Ý¿âÖ÷ÒªÓÐÁ½ÖÖ·½·¨£¬Ò²¾ÍÊÇBDE¡¢ADO£¬´ÓDelphi 6.0¿ªÊ¼»¹¼ÓÈëÁËÒ»ÖÖdbExpress·½·¨¡£ ÁíÍ⣬Delphi»¹ÌṩÁËרÃÅ´¦ÀíBorland ¹«Ë¾×Ô¼ºµÄÊý¾Ý¿â²úÆ·InterBase Êý¾Ý¿âµÄרÃŵķ½·¨¡£
    BDE£¨Borland Databas Engine£©£¬ ÊÇDelph ......

delphi²Ù×÷excel

(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add ......

DelphiµÄ·¢Õ¹·½Ïò

¶Á“Delphi2010,DELPHIµÄÏ£Íû?”ÓиÐ
 
Ô­ÎÄ£ºhttp://www.gowjq.com/forum-29-1.html
 
 
1£©  Ê¢´óµÄÖ÷Òª¿ª·¢¹¤¾ßÊÇDelphi, Ïê¼û£º http://act.sdo.com/Delphi/£¬ ÓÎÏ·ÊÇÒ»ÖÖ¸´ÔÓ½»»¥½çÃæµÄ¿ª·¢£¬Delphi¿ÉÒÔʤÈΡ£Í¬Ñù×÷ΪÆóÒµÓ¦ÓõÄǰ¶Ë£¬ÓÃDELPHI¿ª·¢Ò²ÊǺܺõÄÑ¡Ôñ¡£
2£©  Ò ......

delphi×ÊÁÏ

1.·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨
{ ·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨(¶Ô¸¶Ë«»º³åÎÞЧʱ) }
  Perform($000B, 0, 0); //ËøÆÁÄ»  ·ÀÖ¹ÉÁ˸
  // ×öһЩ»á·¢ÉúÑÏÖØÉÁ˸µÄÊÂÇé..
  //½âËøÆÁÄ»²¢ÖØ»­
  Perform($000B, 1, 0);
  RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + R ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ