NSData *soundData = [NSData dataWithContentsOfURL:url];
AVAudioPlayer  *avPlayer = [[AVAudioPlayer alloc] initWithData:soundData error: nil];
[avPlayer play];

NSArray *myImages = [NSArray arrayWithObjects: 
      [UIImage imageNamed:@"myImage1.png"], 
      [UIImage imageNamed:@"myImage2.png"], 
      [UIImage imageNamed:@"myImage3.png"], 
      [UIImage imageNamed:@"myImage4.gif"], nil]; 
UIImageView *myAnimatedView = [UIImageView alloc]; 
[myAnimatedView initWithFrame:[self bounds]]; 
myAnimatedView.animationImages = myImages; 
myAnimatedView.animationDuration = 0.25;
myAnimatedView.animationRepeatCount = 0;

对《一个完善的ODBC数据库程序》一文的补充
 
 
作者：刘永超
 
下载源代码
 
    编者注：本文是作者对不久前发布的一篇文章的补充，在阅读本文之前，最好先看一下原来的文章：“一个完善的ODBC数据库程序”。
    从方便用户的角度考虑，应该在程序中采用动态创建数据源。经过编者的提醒，我查找了一些资料，还好最终实现了。代码如下： 

/*
* test for  Binary Tree
* Vencient Yu
*/
 
/**///////////////////////////////////////////////
//
//filename: binaryTree.cpp
//

从MSDN找到的，有空在给你试一下吧   
  改IP地址可以用AddIPAddress   
  DWORD   AddIPAddress(   
  IPAddr   Address   //   IP   address   to   add   
  IPMask   IpMask   //subnet   mask   for   IP   address   
  DWORD   IfIndex   //   index   of   adapter   
  PULONG   NTEContext   //   Net   Table   Entry   context   
  PULONG   NTEInstance   //   Net   Table   Entry   Instance   );   
    
  改网关：   

[url]http://hi.baidu.com/lujin49/blog/item/6fb971dafbc9aed8b6fd48e7.html[/url]，向原作者表示敬意和感谢。
 
 
在这里需要使用一个cmd命令。就叫：netsh
具体的使用方法见：
[url]http://rrot.blogchina.com/4146076.html[/url]
我将这些内容总结一下，以便于以后使用：
1、修改本机IP地址 并指定掩码：
netsh interface ip set address "本地连接" static 192.168.1.15 255.255.255.0 192.168.1.1 1
2、给本机添加新的IP地址

首先在程序的uses段中添加对ShellApi的引用，另外还要在“创建”按钮的响应过程中添加下列代码：
 
procedure TForm1.btnCreateClick(Sender: TObject);
begin
　CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil);
end; 
 
程序运行初期就会执行CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil)语句，在程序实例所在的目录中创建一个子目录test。
 
在程序运行过程中，单击“删除”按钮就可以将新创建的test子目录删除，响应代码如下：

unit UnitCutPic;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TFrmCutPic = class(TForm)

uses mshtml;
 
var    htmldoc: IHTMLDocument2;
         MaxScrollWidth, MaxScrollHeight: Integer;
 
htmldoc := web.Document as IHTMLDocument2;
MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0); //获得滚动条最大高度
MaxScrollWidth := htmldoc.body.getAttribute('ScrollWidth', 0);//获得滚动条最大宽度
Web.OleObject.Document.ParentWindow.ScrollBy(MaxScrollWidth, MaxScrollHeight ); //滚动到最右最下

Delphi中canvas（画布）的运用。 
 
在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的    
CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以    
在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制    
作一些屏幕特技都有着非凡的作用,下面举例说明几种特殊屏幕    
效果的形成过程。    
   
一、CANVAS必备基本知识：    
   

var   d:THandle;   
  begin   
      d:=getdc(panel1.Handle);   
    
      bitblt(image2.Canvas.Handle,0,0,panel1.Width,panel1.Height,d,0,0,srccopy);   
    
      ReleaseDC(panel1.Handle,d);   

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;
 
type
  TForm1 = class(TForm)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, nb30;  // use nb30;
 
type
  TForm1 = class(TForm)

// WakeOnLan - commandline application to start computers via wake on lan enbaled
// network interface card.
// Author: erik.tornstam@home.se
// Copyright: erik.tornstam@home.se
 
#include "stdio.h"
#include "iostream.h"
#include "winsock2.h"
 

,=========================================================================
,这个就是很多大哥们在网上苦苦寻找的代码。
,=========================================================================
,CMagicPacket.cls
'************************************************************************
'
' CMagicPacket - AMD Magic Packet (Wake-On-Lan) Class Module (v1.1)
' By Richard Larson, 1999/2000 - Requires VB 6.0 or better.
'
' This class encapsulates the functionality necessary to send Wake-on-Lan

procedure TForm1.Button1Click(Sender: TObject);
var
  SendCode:string;
  TempStr:string;
  i:byte;
begin
  SendCode:=StringofChar(#255,6);
  for i:=0 to 15 do
      begin
      TempStr:=TempStr

Address( row, column, ref_type, ref_style, sheet_name )
=Address(4, 5) would return "$E$4" 
=Address(4, 5, 1) would return "$E$4" 
=Address(4, 5, 2) would return "E$4" 
=Address(4, 5, 3) would return "$E4" 
=Address(4, 5, 4) would return "E4" 
=Address(4, 5, 1, TRUE) would return "$E$4" 
=Address(4, 5, 1, FALSE) would return "R4C5" 
=Address(4, 5, 1, TRUE, "Sheet1") would return "Sheet1!$E$4" 

view plaincopy to clipboardprint?
　　AnsiString GetExcelRangeCode(int row, int col)
　　{
　　AnsiString asExcelCode = "" ;
　　while ( col ) {
　　asExcelCode = (AnsiString)(char)('A'+(col-1)%26) + asExcelCode ;
　　col = (col-1)/26 ;
　　}
　　return asExcelCode ;//+IntToStr(row) ;
　　}

function CodeFormat(SpaceCode: string): string;
begin
  with TStringList.Create do
  begin
    CommaText := SpaceCode;
    Delimiter := '-';
    Result := DelimitedText;
  end;
end;