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

ÓÃdelphi´òÔìÊôÓÚ×Ô¼ºµÄ²¥·ÅÆ÷

    Èç½ñRealPlayerµÄÁ÷ʽýÌåÎļþÒÔÆäÇ¿´óµÄÊÓÆµÑ¹Ëõ±ÈÕýÖð²½ÇÄÈ»ÐËÆð¡£RealPlayer Plus²¥·ÅÆ÷Ò²ÀíËùµ±È»µØ³ÉΪ´ó¼Ò²¥·ÅRealPlayer¸ñʽÎļþµÄÊ×Ñ¡Èí¼þ¡£²»¹ýRealPlayer PlusÒ²²»ÊÇʮȫʮÃÀµÄ£¬±ÈÈçÆô¶¯Ê±¼äÂý£¬Õ¼Óÿռä´ó£¬ÁôÓÐÀúÊ·¼Ç¼µÈµÈ¡£ÆäʵÎÒÃÇ¿ÉÒÔÀûÓÃDelphi´òÔìÒ»¸öÍêÈ«·ûºÏ×Ô¼ºÒªÇóµÄRealPlayer²¥·ÅÆ÷¡£ÏÂÃæÎÒ½«Ïò´ó¼Ò½éÉÜÈçºÎÀûÓÃDelphiÀ´°ïÖúÄãʵÏÖÕâÒ»Ô¸Íû¡£µ«Ç°ÌáÊÇ£ºÄãµÄ»úÆ÷ÖбØÐë×°ÓÐRealPlayer Plus²¥·ÅÆ÷£¬ÒòΪÎÒÃÇÒªÓõ½Æä×Ô´øµÄActiveX¿Ø¼þ¡£
¡¡¡¡Ê×ÏÈ£¬ÎÒÃÇÒªÔÚDelphiÖе¼ÈëËùÐèµÄActiveX¿Ø¼þ¡£µã»÷²Ëµ¥“Component→Import ActiveX Control...”´ò¿ª“Import ActiveX”¶Ô»°¿ò£¬ÔÚ“Import ActiveX”Áбí¿òÖУ¬ÎÒÃÇ¿ÉÒÔ¿´µ½WindowsÖÐËùÓÐ×¢²áµÄAxctiveX¿Ø¼þ¡£Ñ¡ÔñÆäÖеēRealPlayer ActiveX Control Library(Version 1.0)”¿Ø¼þ¡£È»ºóµ¥»÷“Install”°´Å¥¡£
¡¡¡¡»Øµ½DelphiÖ÷½çÃæ£¬Äã»á·¢ÏÖÔÚVCLÃæ°åÖеÄActiveX±êÇ©ÖÐÔö¼ÓÁËÒ»¸öÃûΪRealAudioµÄ×é¼þ¡£ÎÒÃÇÏȰÑËü·ÅÈë´°ÌåÖС£²»¹ýÔÚĬÈÏÇé¿öÖÐRealAudio×é¼þûÓÐÊÓÆµ²¥·Å´°¿Ú£¬Ò²¾ÍÊÇÖ»Äܲ¥·ÅÉùÒô¡£ÕâÊÇÎÒÃDz»Ô¸¿´µ½µÄ£¬ÕâʱÎÒÃÇ¿ÉÒÔÔÚRealAudio×é¼þµÄControlsÊôÐÔÖÐÌí¼ÓÈçÏ´úÂ룺
¡¡¡¡IMAGEWINDOW,CONTROLPANEL,STATUSBAR
¡¡¡¡ÆäÖУºIMAGEWINDOW¡¢CONTROLPANEL¡¢STATUSBAR·Ö±ð±íʾÏÔʾÊÓÆµ²¥·Å´°¿Ú¡¢¿ØÖÆÌõ״̬Ìõ¡£
¡¡¡¡Ìí¼Ó´úÂëºó£¬ÎÒÃÇ¿ÉÒÔ·¢ÏֿؼþÍâ¹ÛÒѾ­¸Ä±ä³ÉÁËÊÓÆµ²¥·Å´°¿ÚÐÎ×´¡£È»ºóÉèÖÃAlignÊôÐÔΪalClient£¬Ê¹²¥·Å´°¿Ú¿ÉÒÔËæ´°ÌåµÄ±ä»¯¶ø±ä»¯£¬·½±ã´ó¼ÒÔÚ¹Û¿´Ó°ÊÓ¶¯»­Ê±¿ÉÒÔËæÒâÀ­¶¯²¥·Å´°¿Ú´óС¡£
¡¡¡¡È»ºó£¬ÔÚ´°ÖмÓÈëTMainMenu×é¼þ¡¢TOpenDialog×é¼þ¸÷Ò»¸ö¡£ÓÃÓÚÑ¡Ôñ²¢´ò¿ª²¥·ÅÓ°ÊÓÎļþ¡£Ë«»÷TMainMenu×é¼þ£¬½øÈë²Ëµ¥Éè¼ÆÆ÷¡£ÔÚÕâÀÎÒÃÇÒªÉè¼ÆÒ»¸ö²Ëµ¥ÏîFile£¬¼°Æä2¸ö×Ӳ˵¥Open¡¢Exit¡£Éè¼ÆÍê±Ïºó£º
¡¡¡¡Ë«»÷OpenÌí¼ÓÈçÏ´úÂ룺
¡¡¡¡if OpenDialog1.Execute then
¡¡¡¡begin
¡¡¡¡ RealAudio1.source:=OpenDialog1.FileName;
¡¡¡¡ RealAudio1.doplay; //´ò¿ª²¢Æô¶¯²¥·ÅÆ÷
¡¡¡¡End;
¡¡¡¡Ë«»÷OpenÌí¼ÓÈçÏ´úÂ룺
¡¡¡¡Application.terminate; //ÖÕÖ¹³ÌÐòÔËÐÐ
¡¡¡¡ÎªÁËÔÚ´ò¿ªÒ»¸öÎļþʱ£¬±ãÓÚÓû§Ñ¡ÔñÎļþ£¬Òª½«OpenDialog×é¼þµÄFilterÊôÐÔÉèÖÃÈçÏ£ºËùÓÐýÌåÎļþ(*.rm,*.ram,*.ra,*.swf,*.mp3)|*.rm;*.ram;*.ra;*.swf;*.mp3|*.*|*.*¡£
    Èç¹ûÏëÒªÔÚ¿´µç


Ïà¹ØÎĵµ£º

½ÌÄãÓÃdelphiдµ¯´°¹ã¸æ²å¼þ

½ÌÄãÓÃdelphiдµ¯´°¹ã¸æ²å¼þ
2009Äê12ÔÂ25ÈÕ ÐÇÆÚÎå 00:45
½ÌÄãÓÃdelphiдµ¯´°¹ã¸æ²å¼þ
Òý×Ó
ĿǰԽÀ´Ô½¶àµÄ¹ã¸æ²å¼þÔÚÎÒÃǵçÄÔÉÏÔú¸ùפµØ£¬Ê±²»Ê±µØµ¯³öÁîÈËÌÖÑáµÄ¹ã¸æ£¬²¢ÇÒÿµ±ÎÒÃÇ¿ª»úµÄʱºò¶¼»áµ¯³öÀ´£¬¸ãµÄºÜ¶àС²ËÖ»ÄÜÖØ×°ÏµÍ³£¬
À´½â¾öÕâÁíÈËÌÖÑáµÄ¹ã¸æ£¡Ó°ÏìÎÒÃÇÉÏÍøÁÄÌì£¬ÍæÓÎÏ·£¬¹¤×÷µÈµÈ……º ......

delphi ¼Ó×Ö·û´®Ïà¼Ó

procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
   name := edit2.Text ;
   name := '%' + name ;
   query1.Close ;
   query1.SQL.Clear ;
   query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
 &nb ......

Ò»ÃûDelphi³ÌÐòÔ±µÄ¿ª·¢Ï°¹ß

Óйؿª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆ­È¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøÍ¬ÐУ¨ÄîXing£©ÕßÌṩһЩ
½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
     &n ......

delphi TWebBrowser×é¼þʹÓÃÏê½â

delphi TWebBrowser×é¼þʹÓÃÏê½â
      ¸Ã×é¼þÊÇÒ»¸öä¯ÀÀÆ÷×é¼þ£¬¿ÉÒÔÏÔʾһ¸öÖ¸¶¨µØÖ·µÄÍøÒ³¡¢ÉèÖÃÍøÒ³´ò¿ªÊ±µÄÖ÷Ò³ÒÔ¼°¶ÔÍøÒ³½øÐÐÏà¹ØµÄ²Ù×÷£¬Í¬Ê±Ò²¿ÉÒÔ¶ÔHTMLÎļþ½øÐмôÇС¢¸´ÖÆ¡¢Õ³Ìù¡¢É¾³ýµÈ²Ù×÷¡£¸Ã
      ×é¼þÔÚInternet×é¼þÒ³ÖС£
     ......

delphiʵÏÖ×Ö·û´®ÖÐÊý×ÖµÄÅжϼ°ÏàÓ¦Êý×ÖÀÛ¼Ó

×î½üÃæÊÔÁËÒ»¼ÒÆóÒµ,ÏÂÃæÓÐÒ»µÀ´ÓÀ´Ã»ÓÐÏë¹ýµÄÎÊÌâ,µ±Ê±ÓÐ˼·,²»¹ýд²»³öÀ´.»ØÀ´ºó,µ÷ÊÔÁËÒ»ÏÂ,·¢ÏÖ»¹ÊÇÓÐÄѶȵÄ,дÉÏÀ´¿´´ó¼ÒÊÇ·ñ»¹ÓиüÓÅ»¯µÄд·¨,»¶Ó­ÌÖÂÛ:
ÏÂÃæÊµÏÖ½«×Ö·û´®"10ad200d3" ÖеÄÊý×ֺϼÆ,10+200+3=213
var s1:string;
var i:integer;
var n1:integer;
var tem1: string;
var tem2:integer;
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ