php 操作数组 (合并,拆分,追加,查找,删除等) - Just Code - ITeye技术网站

mikel阅读(888)

来源: php 操作数组 (合并,拆分,追加,查找,删除等) – Just Code – ITeye技术网站

1. 合并数组

array_merge()函数将数组合并到一起,返回一个联合的数组。所得到的数组以第一个输入数组参数开始,按后面数组参数出现的顺序依次迫加。其形式为:

Php代码  收藏代码
  1. array array_merge (array array1 array2…,arrayN)

 

这个函数将一个或多个数组的单元合并起来,一个数组中的值附加在前一个数组的后面。返回作为结果的数组。

如果输入的数组中有相同的字符串键名,则该键名后面的值将覆盖前一个值。然而,如果数组包含数字键名,后面的值将不会覆盖原来的值,而是附加到后面。

如果只给了一个数组并且该数组是数字索引的,则键名会以连续方式重新索引。

Php代码  收藏代码
  1. <?php
  2. $fruits = array(“apple”,“banana”,“pear”);
  3. $numbered = array(“1”,“2”,“3”);
  4. $cards = array_merge($fruits$numbered);
  5. print_r($cards);
  6. // output
  7. // Array ( [0] => apple [1] => banana [2] => pear [3] => 1 [4] => 2 [5] => 3 )
  8. ?>

 

2. 追加数组

array_merge_recursive()函数与array_merge()相同,可以将两个或多个数组合并在一起,形成一个联合的数组.两 者之间的区别在于,当某个输入数组中的某个键己经存在于结果数组中时该函数会采取不同的处理方式.array_merge()会覆盖前面存在的键/值对, 替换为当前输入数组中的键/值对,而array_merge_recursive()将把两个值合并在一起,形成一个新的数组,并以原有的键作为数组名。 还有一个数组合并的形式,就是递归追加数组。其形式为:

Php代码  收藏代码
  1. array array_merge_recursive(array array1,array array2[…,array arrayN])

 

程序实例如下:

Php代码  收藏代码
  1. <?php
  2. $fruit1 = array(“apple” => “red”“banana” => “yellow”);
  3. $fruit2 = array(“pear” => “yellow”“apple” => “green”);
  4. $result = array_merge_recursive($fruit1$fruit2);
  5. print_r($result);
  6. // output
  7. // Array ( [apple] => Array ( [0] => red [1] => green ) [banana] => yellow [pear] => yellow )
  8. ?>

 

现在键 apple 指向一个数组,这个数组由两个颜色值组成的索引数组。

3. 连接数组

array_combine()函数会得到一个新数组,它由一组提交的键和对应的值组成。其形式为:

Java代码  收藏代码
  1. array array_combine(array keys,array values)

 

注意,两个输入数组必须大小相同,不能为空。示例如下

Php代码  收藏代码
  1. <?php
  2. $name = array(“apple”“banana”“orange”);
  3. $color = array(“red”“yellow”“orange”);
  4. $fruit = array_combine($name$color);
  5. print_r($fruit);
  6. // output
  7. // Array ( [apple] => red [banana] => yellow [orange] => orange )
  8. ?>

 

4. 拆分数组 array_slice()

array_slice()函数将返回数组中的一部分,从键offset开始,到offset+length位置结束。其形式:

Php代码  收藏代码
  1. array array_slice (array array, int offset[,int length])

 

offset 为正值时,拆分将从距数组开头的offset 位置开始;如果offset 为负值,则拆分从距数组末尾的offset 位置开始。如果省略了可选参数length,则拆分将从offset 开始,一直到数组的最后一个元素。如果给出了length 且为正数,则会在距数组开头的offset+length 位置结束。相反,如果给出了length且为负数,则在距数组开头的count(input_array)-|length|位置结束。考虑一个例子:

Php代码  收藏代码
  1. <?php
  2. $fruits = array(“Apple”“Banana”“Orange”“Pear”“Grape”“Lemon”“Watermelon”);
  3. $subset = array_slice($fruits, 3);
  4. print_r($subset);
  5. // output
  6. // Array ( [0] => Pear [1] => Grape [2] => Lemon [3] => Watermelon )
  7. ?>

 

然后我们使用下负长度:

Php代码  收藏代码
  1. <?php
  2. $fruits = array(“Apple”“Banana”“Orange”“Pear”“Grape”“Lemon”“Watermelon”);
  3. $subset = array_slice($fruits, 2, -2);
  4. print_r($subset);
  5. // output
  6. // Array ( [0] => Orange [1] => Pear [2] => Grape )
  7. ?>

 

5. 接合数组 array_splice()

array_splice()函数会删除数组中从offset开始到offset+length 结束的所有元素,并以数组的形式返回所删除的元素。其形式为:

Php代码  收藏代码
  1. array array_splice ( array array , int offset[,length[,array replacement]])

 

offset 为正值时,则接合将从距数组开头的offset 位置开始,offset 为负值时,接合将从距数组末尾的offset 位置开始。如果忽略可选的length 参数,则从offset 位置开始到数组结束之间的所有元素都将被删除。如果给出了length 且为正值,则接合将在距数组开头的offset + leng th 位置结束。相反,如果给出了length且为负值,则结合将在距数组开头的count(input_array)-length的位置结束。实例如下:

Php代码  收藏代码
  1. <?php
  2. $fruits = array(“Apple”“Banana”“Orange”“Pear”“Grape”“Lemon”“Watermelon”);
  3. $subset = array_splice($fruits, 4);
  4. print_r($fruits);
  5. print_r($subset);
  6. // output
  7. // Array ( [0] => Apple [1] => Banana [2] => Orange [3] => Pear ) 
  8. // Array ( [0] => Grape [1] => Lemon [2] => Watermelon )
  9. ?>

 

可以使用可选参数replacement来指定取代目标部分的数组。实例如下:

Php代码  收藏代码
  1. <?php
  2. $fruits = array(“Apple”“Banana”“Orange”“Pear”“Grape”“Lemon”“Watermelon”);
  3. $subset = array_splice($fruits, 2, -1, array(“Green Apple”“Red Apple”));
  4. print_r($fruits);
  5. print_r($subset);
  6. // output
  7. // Array ( [0] => Apple [1] => Banana [2] => Green Apple [3] => Red Apple [4] => Watermelon ) 
  8. // Array ( [0] => Orange [1] => Pear [2] => Grape [3] => Lemon )
  9. ?>

 

从程序可以很清楚看到这个函数的使用方法了。

 

6. 数组的交集 array_intersect()

 

array_intersect()函数返回一个保留了键的数组,这个数组只由第一个数组中出现的且在其他每个输入数组中都出现的值组成。其形式如下:

Php代码  收藏代码
  1. array array_intersect(array array1,array array2[,arrayN…])

 

下面这个例子将返回在$fruit1数组中出现的且在$fruit2和$fruit3中也出现的所有的水果:

Php代码  收藏代码
  1. <?php
  2. $fruit1 = array(“Apple”,“Banana”,“Orange”);
  3. $fruit2 = array(“Pear”,“Apple”,“Grape”);
  4. $fruit3 = array(“Watermelon”,“Orange”,“Apple”);
  5. $intersection = array_intersect($fruit1$fruit2$fruit3);
  6. print_r($intersection);
  7. // output
  8. // Array ( [0] => Apple )
  9. ?>

 

只有在两个元素相等且具有相同的数据类型时,array_intersect()函数才会认为它们是相同的。

 

7. 关联数组的交集 array_intersect_assoc()

函数array_intersect_assoc()与array_intersect()基本相同,只不过他在比较中还考虑了数组的键。因此,只有在第一个数组中出现,且在所有其他输入数组中也出现的键/值对才返回到结果数组中。

形式如下:

Php代码  收藏代码
  1. array array_intersect_assoc(array array1,array array2[,arrayN…])

 

下面的例子返回了出现在$fruit1数组中,也同时出现在$fruit2与$fruit3中的所有键/值对:

Php代码  收藏代码
  1. <?php
  2. $fruit1 = array(“red”=>“Apple”,“yellow”=>“Banana”,“orange”=>“Orange”);
  3. $fruit2 = array(“yellow”=>“Pear”,“red”=>“Apple”,“purple”=>“Grape”);
  4. $fruit3 = array(“green”=>“Watermelon”,“orange”=>“Orange”,“red”=>“Apple”);
  5. $intersection = array_intersect_assoc($fruit1$fruit2$fruit3);
  6. print_r($intersection);
  7. // output
  8. // Array ( [red] => Apple )
  9. ?>

 

8. 数组的差集 array_diff()

 

函数array_diff()返回出现在第一个数组中但其他输入数组中没有的值。这个功能与array_intersect()相反。

Php代码  收藏代码
  1. array array_diff(array array1,array array2[,arrayN…])

 

实例如下:

Php代码  收藏代码
  1. <?php
  2. $fruit1 = array(“Apple”,“Banana”,“Orange”);
  3. $fruit2 = array(“Pear”,“Apple”,“Grape”);
  4. $fruit3 = array(“Watermelon”,“Orange”,“Apple”);
  5. $intersection = array_diff($fruit1$fruit2$fruit3);
  6. print_r($intersection);
  7. // output
  8. // Array ( [1] => Banana )
  9. ?>

 

9. 关联数组的差集 array_diff_assoc()

 

函数array_diff_assoc()与array_diff()基本相同,只是它在比较时还考虑了数组的键。因此,只在第一个数组中出现而不再其他输入数组中出现的键/值对才会返回到结果数组中。其形式如下:

Php代码  收藏代码
  1. array array_diff_assoc(array array1,array array2[,arrayN…])

 

下面的例子只返回了[yellow] => Banana,因为这个特殊的键/值对出现在$fruit1中,而在$fruit2和$fruit3中都不存在。

Php代码  收藏代码
  1. <?php
  2. $fruit1 = array(“red”=>“Apple”,“yellow”=>“Banana”,“orange”=>“Orange”);
  3. $fruit2 = array(“yellow”=>“Pear”,“red”=>“Apple”,“purple”=>“Grape”);
  4. $fruit3 = array(“green”=>“Watermelon”,“orange”=>“Orange”,“red”=>“Apple”);
  5. $intersection = array_diff_assoc($fruit1$fruit2$fruit3);
  6. print_r($intersection);
  7. // output
  8. // Array ( [yellow] => Banana )
  9. ?>

 

使用数组的过程中经常要遍历数组。通常需要遍历数组并获得各个键或值(或者同时获得键和值),所以毫不奇怪,PHP为此提供了一些函数来满足需求。许多函数能完成两项任务,不仅能获取当前指针位置的键或值,还能将指针移向下一个适当的位置。

 

10. 获取当前数组键 key()

key()函数返回input_array中当前指针所在位置的键。其形式如下:

Php代码  收藏代码
  1. mixed key(array array)

 

下面的例子通过迭代处理数组并移动指针来输出$fruits数组的键:

Php代码  收藏代码
  1. $fruits = array(“apple”=>“red”“banana”=>“yellow”);
  2. while ($key = key($fruits)) {
  3.     printf(“%s <br />”$key);
  4.     next($fruits);
  5. }
  6. // apple 
  7. // banana

 

注意,每次调用key()时不会移动指针。为此需要使用next()函数,这个函数的唯一作用就是完成推进指针的任务。

 

11. 获取当前数组值 current()

 

current()函数返回数组中当前指针所在位置的数组值。其形式如下:

Php代码  收藏代码
  1. mixed current(array array)

 

下面修改前面的例子,这一次我们要获取数组值:

Php代码  收藏代码
  1. $fruits = array(“apple”=>“red”“banana”=>“yellow”);
  2. while ($fruit = current($fruits)) {
  3.     printf(“%s <br />”$fruit);
  4.     next($fruits);
  5. }
  6. // red 
  7. // yellow 

 

12. 获取当前数组键和值 each()

 

each()函数返回input_array的当前键/值对,并将指针推进一个位置。其形式如下:

Php代码  收藏代码
  1. array each(array array)

 

返回的数组包含四个键,键0和key包含键名,而键1和value包含相应的数据。如果执行each()前指针位于数组末尾,则返回false。

Php代码  收藏代码
  1. $fruits = array(“apple”“banana”“orange”“pear”);
  2. print_r ( each($fruits) );
  3. // Array ( [1] => apple [value] => apple [0] => 0 [key] => 0 )

 

each() 经常和 list() 结合使用来遍历数组。本例与上例类似,不过循环输出了整个数组:

Php代码  收藏代码
  1. $fruits = array(“apple”“banana”“orange”“pear”);
  2. reset($fruits);
  3. while (list($key$val) = each($fruits))
  4.     {
  5.         echo “$key => $val<br />”;
  6.     }
  7. // 0 => apple
  8. // 1 => banana
  9. // 2 => orange
  10. // 3 => pear

 

因为将一个数组赋值给另一个数组时会重置原来的数组指针,因此在上例中如果我们在循环内部将 $fruits 赋给了另一个变量的话将会导致无限循环。

这就完成了数组的遍历。

 

查找、筛选与搜索数组元素是数组操作的一些常见功能。下面来介绍一下几个相关的函数。

 

13. in_array()函数

 

in_array()函数在一个数组汇总搜索一个特定值,如果找到这个值返回true,否则返回false。其形式如下:

Php代码  收藏代码
  1. boolean in_array(mixed needle,array haystack[,boolean strict]);

 

来看下面的例子,查找变量apple是否已经在数组中,如果在,则输出一段信息:

Php代码  收藏代码
  1. $fruit = “apple”;
  2. $fruits = array(“apple”,“banana”,“orange”,“pear”);
  3. if( in_array($fruit,$fruits) )
  4.     echo “$fruit 已经在数组中”;

 

第三个参数可选,它强制in_array()在搜索时考虑类型。

 

14. array_key_exists()函数

 

如果在一个数组中找到一个指定的键,函数array_key_exists()返回true,否则返回false。其形式如下:

Php代码  收藏代码
  1. boolean array_key_exists(mixed key,array array);

 

下面的例子将在数组键中搜索apple,如果找到,将输出这个水果的颜色:

Php代码  收藏代码
  1. $fruit[“apple”] = “red”;
  2. $fruit[“banana”] = “yellow”;
  3. $fruit[“pear”] = “green”;
  4. if(array_key_exists(“apple”$fruit)){
  5.     printf(“apple’s color is %s”,$fruit[“apple”]);
  6. }
  7. //apple’s color is red

 

15. array_search()函数

 

array_search()函数在一个数组中搜索一个指定的值,如果找到则返回相应的键,否则返回false。其形式如下:

Php代码  收藏代码
  1. mixed array_search(mixed needle,array haystack[,boolean strict])

 

下面的例子在$fruits中搜索一个特定的日期(December 7),如果找到,则返回相应州的有关信息:

Php代码  收藏代码
  1. $fruits[“apple”] = “red”;
  2. $fruits[“banana”] = “yellow”;
  3. $fruits[“watermelon”]=“green”;
  4. $founded = array_search(“green”$fruits);
  5. if($founded)
  6.     printf(“%s was founded on %s.”,$founded$fruits[$founded]);
  7. //watermelon was founded on green.

 

16. array_keys()函数

 

array_keys()函数返回一个数组,其中包含所搜索数组中找到的所有键。其形式如下:

Php代码  收藏代码
  1. array array_keys(array array[,mixed search_value])

 

如果包含可选参数search_value,则只会返回与该值匹配的键。下面的例子将输出$fruit数组中找到的所有数组:

Php代码  收藏代码
  1. $fruits[“apple”] = “red”;
  2. $fruits[“banana”] = “yellow”;
  3. $fruits[“watermelon”]=“green”;
  4. $keys = array_keys($fruits);
  5. print_r($keys);
  6. //Array ( [0] => apple [1] => banana [2] => watermelon )

 

17. array_values()函数

 

array_values()函数返回一个数组中的所有值,并自动为返回的数组提供数值索引。其形式如下:

Php代码  收藏代码
  1. array array_values(array array)

 

下面的例子将获取$fruits中找到的各元素的值:

Php代码  收藏代码
  1. $fruits[“apple”] = “red”;
  2. $fruits[“banana”] = “yellow”;
  3. $fruits[“watermelon”]=“green”;
  4. $values = array_values($fruits);
  5. print_r($values);
  6. //Array ( [0] => red [1] => yellow [2] => green )

 

有时候我们需要扩展一个数组,或者删掉数组的一部分,PHP为扩展和缩小数组提供了一些函数。对于那些希望模仿各种队列实现(FIFO、LIFO) 的程序员来说,这些函数可以提供便利。顾名思义,从这些函数的函数名(push、pop、shift和unshift)就清楚地反映出其作用。

 

PS:传统的队列是一种数据结构,删除元素与加入元素的顺序相同,就称为先进先出,或FIFO。相反,栈是另外一种数据结构,其中删除元素的顺序与加入时的顺序相反,这成为后进先出,或LIFO。

 

18. 在数组头添加元素

 

array_unshift()函数在数组头添加元素。所有己有的数值键都会相应地修改,以反映其在数组中的新位置,但是关联键不受影响。其形式如下:

Php代码  收藏代码
  1. int array_unshift(array array,mixed variable[,mixed variable])

 

下面这个例子在$fruits数组前面添加了两种水果:

Php代码  收藏代码
  1. $fruits = array(“apple”,“banana”);
  2. array_unshift($fruits,“orange”,“pear”)
  3. // $fruits = array(“orange”,”pear”,”apple”,”banana”);

 

19. 在数组尾添加元素

 

array_push()函数的返回值是int型,是压入数据后数组中元素的个数,可以为此函数传递多个变量作为参数,同时向数组压入多个变量。其形式为:

Php代码  收藏代码
  1. (array array,mixed variable [,mixed variable…])

 

下面这个例子在$fruits数组中又添加了两个水果:

Php代码  收藏代码
  1. $fruits = array(“apple”,“banana”);
  2. array_push($fruits,“orange”,“pear”)
  3. //$fruits = array(“apple”,”banana”,”orange”,”pear”)

 

20. 从数组头删除值

 

array_shift()函数删除并返回数组中找到的元素。其结果是,如果使用的是数值健,则所有相应的值都会下移,而使用关联键的数组不受影响。其形式为

Php代码  收藏代码
  1. mixed array_shift(array array)

 

下面的例子删除了$fruits数组中的第一个元素apple:

Php代码  收藏代码
  1. $fruits = array(“apple”,“banana”,“orange”,“pear”);
  2. $fruit = array_shift($fruits);
  3. // $fruits = array(“banana”,”orange”,”pear”)
  4. // $fruit = “apple”;

 

21. 从数组尾删除元素

 

array_pop()函数删除并返回数组的最后一个元素。其形式为:

Php代码  收藏代码
  1. mixed array_pop(aray target_array);

 

下面的例子从$states数组删除了最后的一个州:

Php代码  收藏代码
  1. $fruits = array(“apple”,“banana”,“orange”,“pear”);
  2. $fruit = array_pop($fruits);
  3. //$fruits = array(“apple”,”banana”,”orange”);
  4. //$fruit = “pear”;

 

Android之VideoView播放视频 - 剑萧舞蝶的专栏 - 博客频道 - CSDN.NET

mikel阅读(1014)

Eclipse环境下 使用Gradle进行编译实现自动分包标签(空格分隔): MultiDexgradle安装 到Gradle官网下载最新版本的Gradle,安装; 将bin目录所在位置添加到环境变量的path中;在Eclipse中安装Gradle插件: Help–> Install new software; 填入插件地址 http://dist.springsource.com/rel

来源: Android之VideoView播放视频 – 剑萧舞蝶的专栏 – 博客频道 – CSDN.NET

通过VideoView播放视频的步骤:

1、在界面布局文件中定义VideoView组件,或在程序中创建VideoView组件

2、调用VideoView的如下两个方法来加载指定的视频

setVidePath(String path):加载path文件代表的视频

setVideoURI(Uri uri):加载uri所对应的视频

3、调用VideoView的start()、stop()、psuse()方法来控制视频的播放

VideoView通过与MediaController类结合使用,开发者可以不用自己控制播放与暂停

 

简单实例:


&nbsp;
package com.android.xiong.vidoviewtest;

import java.io.File;

import android.net.Uri;
import android.os.Bundle;
import android.app.Activity;
import android.view.Menu;
import android.widget.MediaController;
import android.widget.VideoView;

public class MainActivity extends Activity {

private VideoView video1;
MediaController mediaco;

@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
video1=(VideoView)findViewById(R.id.video1);
mediaco=new MediaController(this);
File file=new File("/mnt/sdcard/通话录音/1.mp4");
if(file.exists()){
//VideoView与MediaController进行关联
video1.setVideoPath(file.getAbsolutePath());
video1.setMediaController(mediaco);
mediaco.setMediaPlayer(video1);
//让VideiView获取焦点
video1.requestFocus();
}

}

@Override
public boolean onCreateOptionsMenu(Menu menu) {
getMenuInflater().inflate(R.menu.main, menu);
return true;
}

}

ThinkPHP学习笔记 事务处理 - Index - 开源中国社区

mikel阅读(851)

来源: ThinkPHP学习笔记 事务处理 – Index – 开源中国社区

事务处理是数据库数据处理中经常用到的一个功能,特别是商务之类的应用,比如a给b打了钱,数据库中a的钱数应该减少,b的钱数应该增加,

若a数据操作成功,而b的数据因某些原因操作失败,这时数据就会有问题。这种相关的系列操作需要进行事务处理。

事务是DBMS得执行单位。一般来说,事务是必须满足4个条件(ACID):

1.  原子性(Autmic):        事务在执行性,要做到“要么不做,要么全做!”,不允许事务部分执行。

2.  一致性(Consistency): 事务得操作应该使使数据库从一个一致状态转变倒另一个一致得状态。修改的数据之间应该有所关联。

3.  隔离性(Isolation):      如果多个事务并发执行,应象各个事务独立执行一样。

4.  持久性(Durability):    一个成功执行得事务对数据库得作用是持久得,即使数据库应故障出错,也应该能够恢复。

下面看Thinkphp的一个例子。

//实例化的数据库对象
$model = new Model();
//开启事务
$model-&gt;startTrans();
//默认结果
$judge = true;
//数据操作
$sql1 ="delete from TableOne where ...";
$sql2 ="delete from TableTwo where ...";
//执行数据操作
$result1 = $model-&gt;query($sql1);
if(!$result1) $judge = false;
$result2 = $model-&gt;query($sql2);
if(!$result2) $judge = false;

if($judge){
//如果2条都执行成功,则提交完成数据库操作
$db-&gt;commit();
}else{
//如果有其中一条执行失败,则rollback,所有数据还原到sql1和sql2都没执行的状态。
$db-&gt;rollback();
}

在mysql中的存储过程中使用事务transaction_Sean_新浪博客

mikel阅读(928)

在mySQL中的存储过程中使用事务transaction_Sean_新浪博客,Sean,

来源: 在mysql中的存储过程中使用事务transaction_Sean_新浪博客

一.
在处理事务时,使用SQLException捕获SQL错误,然后处理; 按照这个推论,我们必须在MySQL存储过程中捕获SQL错误,最后判断是回滚(ROLLBACK)还是提交(COMMIT)。 所以存储过程为:

  1. DELIMITER $$  
  2. DROP PROCEDURE IF EXISTS  test_sp1 $$  
  3. CREATE PROCEDURE test_sp1(  
  4.     BEGIN  
  5.     DECLARE t_error INTEGER DEFAULT 0;  
  6.     DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET t_error=1;  
  7.   
  8.         START TRANSACTION;  
  9.             INSERT INTO test VALUES(NULL, ‘test sql 001′);     
  10.             INSERT INTO test VALUES(‘1’, ‘test sql 002′);     
  11.   
  12.         IF t_error THEN  
  13.             ROLLBACK;  
  14.         ELSE  
  15.             COMMIT;  
  16.         END IF;  
  17.   
  18.     END$$  
  19. DELIMITER  

在这个例子中,我们为test_sp1() 定义了一个 SQLEXCEPTION 参数 t_error, 在遇到SQL错误时,继续执行(CONTINUE); 如果执行状态没有错误,则提交,反之回滚!

二.在调用事务时,将事务的执行状态(即:事务是提交了还是回滚了),返回给被调者。

下面给出另一个例子:

CREATE DEFINER=`3dmodelbaseadmin`@`%` PROCEDURE `p_userConfirmPay`(
in p_lID int,
in p_endTime DATETIME,
in p_moneyAfterTax decimal(10,2),
in p_integralAfterTax decimal(10,0),
in p_sellerID int unsigned,
in p_cashOrPoints int,
in p_loginName_site varchar(50),
in p_transactionID_site char(100),
in p_orderID char(100),
in p_remarks_site char(100),
in p_transactionID char(100),
in p_cMEMID INT UNSIGNED,
in p_curTotal DECIMAL(10,2),
in p_curTotalcIntegral decimal(10,0),
in p_remarks char(100))
BEGIN

DECLARE p_cMEMID_site INT;
DECLARE p_balance_site DECIMAL(10,2);
DECLARE p_balance DECIMAL(10,2);
DECLARE p_intBalance_site DECIMAL(10,0);
DECLARE p_intBalance DECIMAL(10,0);

DECLARE t_error INTEGER DEFAULT 0;
DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET t_error=1;

START TRANSACTION;

set p_cMEMID_site=(select cMEMID from m_member where cLoginName=p_loginName_site);

update l_memberdownlog set lState=1,endTime=p_endTime where lID=p_lID;

update m_memberMoney set cMoney=cMoney-p_moneyAfterTax,
cIntegral = cIntegral-p_integralAfterTax where cMEMID=p_cMEMID_site;

update m_memberMoney set cMoney=cMoney+p_moneyAfterTax,
cIntegral = cIntegral+p_integralAfterTax where cMEMID=p_sellerID;

if p_cashOrPoints=0 then
set p_balance_site = (select cMoney from m_memberMoney where cMEMID=p_cMEMID_site);
INSERT INTO cashDetail ……(此处省略);
else
set p_intBalance_site = (select cIntegral from m_memberMoney where cMEMID=p_cMEMID_site);
INSERT INTO integralDetail ……(此处省略);
end if;

update m_memberMoney set totalConsMoney=totalConsMoney+p_curTotal,
totalConsIntegral=totalConsIntegral+p_curTotalcIntegral where cMEMID=p_cMEMID;

IF t_error = 1 THEN
   ROLLBACK;
ELSE
   COMMIT;
END IF;

select t_error;  将事务的执行状态返回给被调者

END

三.在Asp中被调者使用返回的事务状态:

set rs1 = server.CreateObject(“ADODB.RecordSet”)   
set Connection = server.createobject(“adodb.connection”)
Connection.open conn
sqlConfirmPay = “p_userConfirmPay(” & ID & “,'” & _
           Now() & “‘,” & _
           moneyAfterTax & “,” & _
           integralAfterTax & “,” & _
           sellerID & “,” & _
           cashOrPoints & “,'” & _
           siteLoginName & “‘,'” & _
           transactionID_site & “‘,'” & _
           orderID & “‘,'” & _
           remarks_site & “‘,'” & _
           transactionID_seller & “‘,” & _
           cMEMID & “,” & _
           lMoney & “,” & _
           lIntegral & “,'” & _
           remarks & “‘)”           
set rs1 = Connection.Execute(sqlConfirmPay) ‘将执行存储过程后的结果集赋给rs1
result = cInt(rs1(“t_error”))  ‘得到返回的事务的状态
‘response.Write(“result:” & cStr(rs1(“t_error”)) & “<br />”)
Connection.close
set Connection=nothing
rs1.close
set rs1 = nothing

‘判断执行的存储过程是否出错
if result = 0 then
‘如果没有出错,
……
else
‘如果出错了
……
end if

Android library projects cannot be launched解决办法_IT知识问答_希赛网

mikel阅读(771)

Android library projects cannot be launched解决方法   解决 Android library projects cannot be launched 方法:     将图中的 Is Library前面的对勾去掉,这样问题就解决了

来源: Android library projects cannot be launched解决办法_IT知识问答_希赛网

Android library projects cannot be launched解决方法

解决 Android library projects cannot be launched 方法:

530x164

634x764

将图中的 Is Library前面的对勾去掉,这样问题就解决了

ThinkPHP find方法 查询一条数据记录_ThinkPHP教程

mikel阅读(1083)

来源: ThinkPHP find方法 查询一条数据记录_ThinkPHP教程

find()

ThinkPHP find() 方法是和 select() 用法类似的一个方法,不同之处 find() 查询出来的始终只有一条数据,即系统自动加上了 LIMIT 1 限制。

当确认查询的数据记录只能是一条记录时,建议使用 find() 方法查询,如用户登录账号检测:

public function chekUser(){
    header("Content-Type:text/html; charset=utf-8");
    $Dao = M("User");
    
    // 构造查询条件
    $condition['username'] = 'Admin';
    $condition['password'] = MD5('123456');
    // 查询数据
    $list = $Dao->where($condition)->find();

    if($list){
        echo '账号正确';
    }else{
        echo '账号/密码错误';
    }
}

与 select() 的另一个不同之处在于,find() 返回的是一个一维数组,可以在模板里直接输出数组单元的值而无需使用 volist 等标签循环输出:

{$list['username']}

find() 主键查询

当 find() 查询的条件参数为表主键时,可以直接将参数写入方法内,如:

$Dao = M("User");
$list = $Dao->find(1);

user 表主键为 uid,该例子将查询 uid=1 的数据,这是 ActiveRecords 模式实现之一,简洁直观。

参考阅读

  1. MySQL LIMIT 限定查询记录数
  2. MySQL 表字段属性(主键)

Delphi中如何让窗口最小化至系统托盘 - beeone - 博客园

mikel阅读(1171)

来源: Delphi中如何让窗口最小化至系统托盘 – beeone – 博客园

很多人认为Delphi是一个RAD工具,包括我本人在上学的时候对Delphi也有偏见,现在走出了“象牙塔”,涉及的面广了,遇到的问题多了,慢慢地 也有了自己的一点心得体会。其实,Delphi是基于Object Pascal 语言的开发工具,也就是说Delphi本质上是一种语言工具,并且是真正的面向对象的。下面我举的例子就是用Delphi实现的一个托盘小程序。程序短小 精悍,脉络分明,我将对关键部分进行详细讲解。就象候俊杰先生把MFC一层一层地剥开一样,今天我也来一次“庖丁解牛”。

在Delphi中涉及到系统编程的方面毫无例外都要调用API函数,在ShellAPI.pas单元中有要用到的API函数的原型。

实战演练:

一.新建一个应用程序:File-> New Applicaton 在Interface部分定义一个消息常量:const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。

二.定义一个全局变量: NotifyIcon:TNotifyIconData,NotifyIcon是非常重要的一个变量,整个程序基本上是围着这个变量在转。 TNotifyIconData是一个记录类型,按住Ctrl键,在TNotifyIconData 双击即进入ShellAPI.pas单元。(注:在Delphi中,这是一个非常好的对源代码进行分析的方法,源代码说明一切,你要想知道程序背后的内 幕,最好的方法就是分析源代码!)此时出现了以下赋值语句:

TNotifyIconData = TNotifyIconDataA,这个意思很明显,就是说TNotifyIconData和TNotifyIconDataA是同种数据类型,接着往下看有:

TNotifyIconDataA = _NOTIFYICONDATAA,意思与刚才的一样,再往下看:

type

_NOTIFYICONDATAA = record

cbSize: DWORD;

Wnd: HWND;

uID: UINT;

uFlags: UINT;

uCallbackMessage: UINT;

hIcon: HICON;

szTip: array [0..63] of AnsiChar;

end;

这可真是“千呼万唤始出来,犹抱琵琶半遮面”。现在大家很清楚了,我们刚才定义的全局变量NotifyIcon其实是一个包含有7个成分的记录类型变 量,就相当于C/C++中的结构体变量(C/C++的程序员应该是再熟悉不过了)。下面我们逐个来解释记录类型中的7个部分各有什么功能。

1> cbSize就是你定义的NotifyIcon变量的大小,用SizeOf(TNotifyIconData)可以取得,如果你是一个熟练的C/C++程 序员,你应该不会陌生。在C/C++中,每当要为一个结构体变量分配内存的时候都要:通过 SizeOf(Struct type) 来获知存放一个这样的结构体变量要多少内存。

2> Wnd是一个句柄,你希望托盘程序产生的消息有哪个窗体来处理就让Wnd指向那个窗体。

例如:你准备在任务栏的托盘小图标上单击时窗体是窗体在“显示”和“隐藏”之间切换,则把Wnd指向主窗体。

3> uID:如果你要创建多个托盘小程序,那么怎么区分它们呢?就是靠这个ID号来区分。

4> uFlags是一个标志位,它表示当前所创建的托盘程序具有哪些性质:

NIF_ICON 表示当前所设置的图标(即hIcon的值)是有效的

NIF_MESSAGE 表示当前所设置的系统消息(即uCallBackMessage的值)是有效的

NIF_TIP 表示当前所设置的提示条(即szTip的值)是有效的。

5> uCallBackMessage这是7个部分里面最重要的一个。这里指定一个回调消息,也就是说这里定义一个消息名,当你单击或者右击托盘图标的时候就 会向你在Wnd所指向的窗体发送一个在uCallBackMessage中定义的消息名,然后你在程序中定义一个消息出来函数来处理这个消息。这样就把 Windows关于消息的整套流程都处理好了。

6> hIcon为托盘图标的句柄,根据这个句柄你就可以增加、修改、删除图标。

7> szTip就是当你的鼠标放到任务栏托盘的小图标上的时候弹出来的提示信息。

在这里我花了大量的笔墨介绍TNotifyIconData的内幕,把这部分搞清楚了,后面的东西就顺理成章了。

三.双击主窗体,进入FormCreate的代码区域:

TForm1.FormCreate(Sender:TObject);

Begin

//NotifyIcon为全局变量,在程序的开头已经定义了

with NotifyIcon do

begin

cbSize:=SizeOf(TNotifyIconData);

Wnd:=Handle; //指向当前窗体Form1的句柄

uID:=1;

uFlags:=NIM_ICON or NIM_MESSAGE or NIM_TIP;

uCallBackMessage:=WM_NID;

hIcon:=Application.Icon.Handle;

szTip:=”张家恶少”;

end;.

//把设置好的变量NotifyIcon加入到系统中以便处理

Shell_NotifyIcon(NIM_ADD,@NotifyIcon);

End;

四.接下来就是定义一个消息处理函数:系统给窗体发来了一个消息,就由下面这个函数来处理。每个消息处理函数都是处理某一类消息的,大家仔细地看看下面 函数体的定义和一般的函数定义有什么不一样:消息处理函数要在后面加上消息的名称,这样当系统发来WM_NID消息时,就是自动触发WMNID消息处理函 数。

procedure WMNID(var msg:TMessage);message WM_NID;

begin

case msg.LParam of

WM_LBUTTONUp; Form1.Visible:=not Form1.Visible;

WM_RBUTTONUP: ShowMessage(‘您点击的是右键’);

End;

End;

好了,一个最简单的程序诞生了,大家自己设置好自己喜欢的图标.

Project-> Options,选中Application页面,在Icon项中加载自己喜欢的图标,这样程序运行时,在任务栏里显示的就是你喜欢的图标了。当你单击图 标时,窗体Form1会在可见与不可见之间切换,也就是说单击一下显示,再单击一下又隐藏。当你右击图标的时候会弹出一条消息:“你点击的是右键”。

五.最后要记住在关闭应用程序的时候要释放掉建立的托盘程序,否则会占用系统资源。

TForm1.FormDestroy(Sender:TObject);

Begin

Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);

End;

[转载]Delphi ServerSocket,ClientSocket示例_batman_新浪博客

mikel阅读(1260)

[转载]Delphi ServerSocket,ClientSocket示例_batman_新浪博客,batman,

来源: [转载]Delphi ServerSocket,ClientSocket示例_batman_新浪博客

Delphi TServerSocket,TClientSocket实现传送文件代码

1.建立两个工程Server及Client

分别放TServerSocket及TClientSocket控件,Demo,Edit控件等。

2.设置TServerSocket name为 SS, ServerType为stNonBlocking,TClientSocket name为cs,ClientType为ctNonBlocking表示异步读写信息。注意ClientType和ServerType要相一致.若为ctBlocking则表示同步读写信息。(相一致,这点相当重要!香巴拉~)

3.Socket传送文件的顺序图

a)Client–>Server MP_QUERY

b)Server–>Client MP_ACCEPT

c) Client–>Server MP_FileProperty

d)Server–>Client MP_NextWillBeData

e)Client–>Server MP_NextWillBeData

f)Server–>Client MP_DATA

g) Client–>Server 发送数据

h) Server接收数据并处理

i)Client–>Server MP_END结束

4.Client端代码

unit UnitClient;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, StdCtrls, Buttons, ExtCtrls, ComCtrls;
Const
//设置协议标志符
//标志将要发送文件名
MP_QUERY =’aaaaa’;
//标志服务器拒绝接收
MP_REFUSE =’bbbbb’;
//标志服务器同意接收文件
MP_ACCEPT =’ccccc’;
//标志将要传递数据
MP_NEXTWILLBEDATA=’ddddd’;
//标志服务器端准备接收数据
MP_DATA =’eeeee’;
//标志客户端取消了本次发送操作
MP_ABORT =’fffff’;
//标志已经发送完毕
MP_END=’iiiii’;
//标志发送的文件长度
MP_FILEPROPERTY=’jjjjj’;
//指定每次发送包的大小
iBYTEPERSEND=1024;

type
TForm1 = class(TForm)
   OpenDialog1: TOpenDialog;
   cs: TClientSocket;
   Panel1: TPanel;
   btnSendFile: TBitBtn;
   edtIPAddress: TEdit;
   Memo1: TMemo;
   edtHostName: TEdit;
   RB1: TRadioButton;
   RB2: TRadioButton;
   ProBar: TProgressBar;
   Btncancel: TBitBtn;
   Btnexit: TBitBtn;
   procedure btnSendFileClick(Sender: TObject);
   procedure csRead(Sender: TObject; Socket: TCustomWinSocket);
   procedure FormCreate(Sender: TObject);
   procedure BtncancelClick(Sender: TObject);
   procedure BtnexitClick(Sender: TObject);
private
   //定义一个发送文件的数据流
   fsSend: TFileStream;
   //设置开始状态位
   tStart:Boolean;
   //标识当前时间
   TickCount:Longword;
   { Private declarations }
public
   { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

//发送文件
procedure TForm1.btnSendFileClick(Sender: TObject);
begin
//关闭套接字连接
cs.Close;
//初始化进程条
Probar.Position:=0;
if RB1.Checked then
begin
  cs.Host:=”;
  //指定要连接的主机IP地址
  cs.Address:=edtIPAddress.Text;
end
else
//指定要连接的主机名
cs.Host:=edtHostName.Text;
//要连接的主机所用端口号
cs.Port:=2000;
//打开套接字连接
cs.Open;
//点击发送确认按钮
if OpenDialog1.Execute then
Begin
//发送连接请求
   cs.Socket.SendText(MP_QUERY+OpenDialog1.FileName);
end;
end;

//客户端接收来自服务器端的信息
procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
var
MsgRecv:string;
bufSend:pointer;
iLength:Integer;
begin
//得到客户端发来的信息
MsgRecv:=Socket.ReceiveText;
//取前5位,得到协议标志符
MsgRecv:=copy(MsgRecv,1,5);
//接收到拒绝信息
if MsgRecv=MP_REFUSE then
   memo1.Lines.Add(‘连接请求被拒绝!’)
   //接收到确认接收信息
else if MsgRecv=MP_ACCEPT then
begin
   //为要发送的文件创建文件流
   fsSend:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
   tStart:=False;
   //进度条显示
   Probar.Max:=fsSend.Size;
   memo1.Lines.Add(‘开始发送!’);
   //获取发送开始时的时间
   TickCount:=GetTickCount;
   //创建文件流并发送文件长度。
   Socket.SendText(MP_FILEPROPERTY+inttostr(Trunc(fsSend.Size/iBYTEPERSEND)+1));
end
else if MsgRecv=MP_NEXTWILLBEDATA then
begin
   //通知接收端将要传送数据。
   Socket.SendText(MP_NEXTWILLBEDATA);
end
else if MsgRecv=MP_DATA then
begin
   //接收到确认信息,开始发送数据。
   if not tStart then
   begin
     memo1.Lines.Add(‘发送数据中… …’);
     tStart:=True;
   end;
   //还有数据没有发送。
   if fsSend.Position< fsSend.Size-1 then
   begin
     iLength:=fsSend.Size-1-fsSend.Position;
     //将数据分段发送
     if iLength>iBYTEPERSEND then
       iLength:=iBYTEPERSEND;
     GetMem(bufSend,iLength+1);
     try
       //读取文件流数据
       fsSend.Read(bufSend^,iLength);
       //发送长度为iLength的数据
       Socket.SendBuf(bufSend^,iLength);
        //进度条显示
       Probar.Position:=fsSend.Position;
     finally
       //释放内存
       FreeMem(bufSend,iLength+1);
     end;
   //发送完毕
   end else
   begin
     //通知主机文件传送结束。
     Socket.SendText(MP_END);
     memo1.Lines.Add(‘发送完成!’);
     //获取发送耗时
     memo1.Lines.Add(‘发送耗时’+IntToStr(GetTickCount-TickCount)+’毫秒’);
     fsSend.Free;   
   end;
//取消文件发送过程
end else if MsgRecv=MP_ABORT then
begin
   memo1.Lines.Add(‘中止!’);
   //文件传送取消
   fsSend.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;
//取消
procedure TForm1.BtncancelClick(Sender: TObject);
begin
//取消文件发送过程
cs.Socket.SendText(MP_ABORT);
end;

procedure TForm1.BtnexitClick(Sender: TObject);
begin
Form1.Close;
end;

end.
5.Server端代码

unit UnitServer;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ScktComp, ExtCtrls;
Const
//设置协议标志符
//标志将要发送文件名
MP_QUERY =’aaaaa’;
//标志服务器拒绝接收
MP_REFUSE =’bbbbb’;
//标志服务器同意接收文件
MP_ACCEPT =’ccccc’;
//标志将要传递数据
MP_NEXTWILLBEDATA=’ddddd’;
//标志服务器端准备接收数据
MP_DATA =’eeeee’;
//标志客户端取消了本次发送操作
MP_ABORT =’fffff’;
//标志已经发送完毕
MP_END=’iiiii’;
//标志发送的文件长度
MP_FILEPROPERTY=’jjjjj’;
//指定每次发送包的大小
iBYTEPERSEND=1024;
type
TForm1 = class(TForm)
   SaveDialog1: TSaveDialog;
   ss: TServerSocket;
   Memo1: TMemo;
   procedure ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
private
   //定义一个接收文件的数据流
   fsRecv:TFileStream;
   //设置开始状态位
   tStart:Boolean;
   //标识当前时间
   TickCount:Longword;
   { Private declarations }
public
   { Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}
//服务器端接收来自客户端的信息
procedure TForm1.ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
msgr,theFileName:string;
bufRecv:Pointer;
iLength:Integer;
begin
//接收到的数据的长度
iLength:=Socket.ReceiveLength;
//开辟一块新的内存,用来保存接收到的数据
GetMem(bufRecv,iLength);
try
   //接收数据
   Socket.ReceiveBuf(bufRecv^,iLength);
   //将接收到的数据以字符串的形式存到msgr中
   msgr:=StrPas(PChar(bufRecv));
   //取前5个字符
   msgr:=Copy(msgr,1,5);
   if msgr=MP_QUERY then
   begin
     //去掉字符串前后的空格和控制字符
     msgr:=Trim(StrPas(PChar(bufRecv)));
     //第5个字符后面的字符串为文件名
     theFileName:=ExtractFileName(Copy(msgr,6,Length(msgr)));
     SaveDialog1.Title:=’请选择或输入接收到的数据保存到的文件名:’;
     SaveDialog1.FileName:=theFileName;
     //点击确认保存按钮
     if SaveDialog1.Execute then
     begin
       //为需保存的文件创建文件流
       fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmCreate);
       //如果同意接收数据。
       memo1.Lines.Add (‘开始接收!’);
       TickCount:=GetTickCount;
       //发送同意接收文件的信息
       Socket.SendText(MP_ACCEPT);
       tStart:=False;
     end
     else
       //发送拒绝接收文件的信息
       Socket.SendText(MP_REFUSE);
   end
   else if msgr=MP_FILEPROPERTY then
   begin
     //接收文件长度并说明主机可以接收数据了
     Socket.SendText(MP_NEXTWILLBEDATA);
   end
   else if msgr=MP_NEXTWILLBEDATA then
   begin
     //要求发送端发送数据
     Socket.SendText(MP_DATA);
   end else if msgr=MP_END then
   begin
     memo1.Lines.Add (‘文件传送完成!’);
     memo1.Lines.Add (‘接收耗时’+IntToStr(GetTickCount-TickCount)+’毫秒’);
     fsRecv.Free;
   end
   //接收到文件传送取消信息
   else if msgr=MP_ABORT then   
   begin
     memo1.Lines.Add (‘MP_ABORT’);
     Socket.SendText(MP_ABORT);
     fsRecv.Free;
   end
  else
   begin
     if not tStart then
     begin
       memo1.Lines.Add(‘接收数据…’);
       tStart:=True;
     end;
     //将接收缓冲区数据写入文件
     fsRecv.WriteBuffer(bufRecv^,iLength);
     //通知客户端继续发送数据
     Socket.SendText(MP_DATA);
   end;
finally
   //释放内存
   FreeMem(bufRecv,iLength);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
//设置的监听端口
ss.Port:=2000;
//开始监听
ss.Open;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ss.Close;
end;

end.

Delphi技术总结 - 逆转瞬间 - 博客园

mikel阅读(1331)

来源: Delphi技术总结 – 逆转瞬间 – 博客园

DELPHI基础开发技巧
◇[DELPHI]网络邻居复制文件
uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);
◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件:xpanel:=x;ypanel:=y;
PANEL的DragOver 事件:xpanel:=x;ypanel:=y;
LABEL的MouseMove事件:xlabel:=x;ylabel:=y;
LABEL的EndDrag  事件:label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;
◇[DELPHI]取得WINDOWS目录
uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));
或者从注册表中读取,位置:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot键,取得如:C:\WINDOWS
◇[DELPHI]在FORM或其他容器上画线
var x,y:array [0..50] of integer;
canvas.pen.color:=clred;
canvas.pen.style:=psDash;
form1.canvas.moveto(trunc(x[i]),trunc(y[i]));
form1.canvas.lineto(trunc(x[j]),trunc(y[j]));
◇[DELPHI]字符串列表使用
var tips:tstringlist;
tips:=tstringlist.create;
tips.loadfromfile('filename.txt');
edit1.text:=tips[0];
tips.add('last line addition string');
tips.insert(1,'insert string at NO 2 line');
tips.savetofile('newfile.txt');
tips.free;
◇[DELPHI]简单的剪贴板操作
richedit1.selectall;
richedit1.copytoclipboard;
richedit1.cuttoclipboard;
edit1.pastefromclipboard;
◇[DELPHI]关于文件、目录操作
Chdir('c:\abcdir');转到目录
Mkdir('dirname');建立目录
Rmdir('dirname');删除目录
GetCurrentDir;//取当前目录名,无'\'
Getdir(0,s);//取工作目录名s:='c:\abcdir';
Deletfile('abc.txt');//删除文件
Renamefile('old.txt','new.txt');//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
ExtractFileExt(filelistbox1.filename);//取文件后缀
◇[DELPHI]处理文件属性
attr:=filegetattr(filelistbox1.filename);
if (attr and faReadonly)=faReadonly then ... //只读
if (attr and faSysfile)=faSysfile then ... //系统
if (attr and faArchive)=faArchive then ... //存档
if (attr and faHidden)=faHidden then ... //隐藏
◇[DELPHI]执行程序外文件
WINEXEC//调用可执行文件
winexec('command.com /c copy *.* c:\',SW_Normal);
winexec('start abc.txt');
ShellExecute或ShellExecuteEx//启动文件关联程序
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0);
ExecuteFile('http://tingweb.yeah.net','','',0);
ExecuteFile('mailto:tingweb@wx88.net','','',0);
◇[DELPHI]取得系统运行的进程名
var hCurrentWindow:HWnd;szText:array[0..254] of char;
begin
hCurrentWindow:=Getwindow(handle,GW_HWndFrist);
while hCurrentWindow <> 0 do
begin
if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext));
hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);
end;
end;
◇[DELPHI]关于汇编的嵌入
Asm End;
可以任意修改EAX、ECX、EDX;不能修改ESI、EDI、ESP、EBP、EBX。
◇[DELPHI]关于类型转换函数
FloatToStr//浮点转字符串
FloatToStrF//带格式的浮点转字符串
IntToHex//整数转16进制
TimeToStr
DateToStr
DateTimeToStr
FmtStr//按指定格式输出字符串
FormatDateTime('YYYY-MM-DD,hh-mm-ss',DATE);
◇[DELPHI]字符串的过程和函数
Insert(obj,target,pos);//字符串target插入在pos的位置。如插入结果大于target最大长度,多出字符将被截掉。如Pos在255以外,会产生运行错。例如,st:='Brian',则Insert('OK',st,2)会使st变为'BrOKian'。
Delete(st,pos,Num);//从st串中的pos(整型)位置开始删去个数为Num(整型)个字符的子字串。例如,st:='Brian',则Delete(st,3,2)将变为Brn。
Str(value,st);//将数值value(整型或实型)转换成字符串放在st中。例如,a=2.5E4时,则str(a:10,st)将使st的值为' 25000'。
Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值,存放在var中。St必须是一个表示数值的字符串,并符合数值常数的规则。在转换过程中,如果没有检测出错误,变量code置为0,否则置为第一个出错字符的位置。例如,st:=25.4E3,x是一个实型变量,则val(st,x,code)将使X值为25400,code值为0。
Copy(st.pos.num);//返回st串中一个位置pos(整型)处开始的,含有num(整型)个字符的子串。如果pos大于st字符串的长度,那就会返回一个空串,如果pos在255以外,会引起运行错误。例如,st:='Brian',则Copy(st,2,2)返回'ri'。
Concat(st1,st2,st3……,stn);//把所有自变量表示出的字符串按所给出的顺序连接起来,并返回连接后的值。如果结果的长度255,将产生运行错误。例如,st1:='Brian',st2:=' ',st3:='Wilfred',则Concat(st1,st2,st3)返回'Brian Wilfred'。
Length(st);//返回字符串表达式st的长度。例如,st:='Brian',则Length(st)返回值为5。
Pos(obj,target);//返回字符串obj在目标字符串target的第一次出现的位置,如果target没有匹配的串,Pos函数的返回值为0。例如,target:='Brian Wilfred',则Pos('Wil',target)的返回值是7,Pos('hurbet',target)的返回值是0。
◇[DELPHI]关于处理注册表
uses Registry;
var reg:Tregistry;
reg:=Tregistry.create;
reg.rootkey:='HKey_Current_User';
reg.openkey('Control Panel\Desktop',false);
reg.WriteString('Title Wallpaper','0');
reg.writeString('Wallpaper',filelistbox1.filename);
reg.closereg;
reg.free;
◇[DELPHI]关于键盘常量名
VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE
/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN
F1--F12:$70(112)--$7B(123)
A-Z:$41(65)--$5A(90)
0-9:$30(48)--$39(57)
◇[DELPHI]初步判断程序母语
DELPHI软件的DOS提示:This Program Must Be Run Under Win32.
VC++软件的DOS提示:This Program Cannot Be Run In DOS Mode.
◇[DELPHI]操作Cookie
response.cookies("name").domain:='http://www.086net.com';
with response.cookies.add do
begin
name:='username';
value:='username';
end
◇[DELPHI]增加到文档菜单连接
uses shellapi,shlOBJ;
shAddToRecentDocs(shArd_path,pchar(filepath));//增加连接
shAddToRecentDocs(shArd_path,nil);//清空
◇[杂类]备份智能ABC输入法词库
windows\system\user.rem
windows\system\tmmr.rem
◇[DELPHI]判断鼠标按键
if GetAsyncKeyState(VK_LButton)<>0 then ... //左键
if GetAsyncKeyState(VK_MButton)<>0 then ... //中键
if GetAsyncKeyState(VK_RButton)<>0 then ... //右键
◇[DELPHI]设置窗体的最大显示
onFormCreate事件
self.width:=screen.width;
self.height:=screen.height;
◇[DELPHI]按键接受消息
OnCreate事件中处理:Application.OnMessage:=MyOnMessage;
procedure TForm1.MyOnMessage(var MSG:TMSG;var Handle:Boolean);
begin
if msg.message=256 then ... //ANY键
if msg.message=112 then ... //F1
if msg.message=113 then ... //F2
end;
◇[杂类]隐藏共享文件夹
共享效果:可访问,但不可见(在资源管理、网络邻居中)
取共享名为:direction$
访问://computer/dirction/
◇[Java Script]Java Script网页常用效果
网页60秒定时关闭
关闭窗口
关闭
定时转URL
数据源,一个是MQIS,一个是LocalSever,任选一个选后点击配置按钮,不知你的SQL7.0
是不是安装在本地机器上,如果是的话直接进行下一步,如果不是,在服务器一栏中填上
Server,然后进行下一步,填写登录ID 和密码(登录ID,和密码是在SQL7.0中的用户选项
中设的)。
第二步,配置BDE:
打开Delphi的BDE,然后点击MQIS 或 LocalServer,就会提示用户名和密码,这和
ODBC的用户名和密码是一样的,填上就行了。
第三步,配置程序:
如果用的是TTable,就在TTable的DatabaseName中选择MQIS 或LocalServer,然后在
TableName中选择Sale就行了,然后将Active改为True,Delphi弹出提示对话,填入用户
名和密码。
如果用的是TQuery,在TQuery上点击右键,再击"SQL Builder",这是以界面方式配置
SQL语句,或者在TQuery的SQL中填入SQL语句。最后,别忘了将Active改为True
在运行也可能配置TQuery,具体见Delphi帮助。
□◇[DELPHI]得到图像上某一点的RGB值
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
red,green,blue:byte ;
i:integer;
begin
i:= image1.Canvas.Pixels[x,y];
Blue:= GetBValue(i);
Green:= GetGValue(i):
Red:= GetRValue(i);
Label1.Caption:=inttostr(Red);
Label2.Caption:=inttostr(Green);
Label3.Caption:=inttostr(Blue);
end;
□◇[DELPHI]关于日期格式分解转换
var year,month,day:word;now2:Tdatatime;
now2:=date();
decodedate(now2,year,month,day);
lable1.Text :=inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';
◇[DELPHI]如何判断当前网络连接方式
判断结果是MODEM、局域网或是代理服务器方式。
uses wininet;
Function ConnectionKind :boolean;
var flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
showmessage('Modem');
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
showmessage('LAN');
end;
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
showmessage('Proxy');
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
showmessage('Modem Busy');
end;
end;
end;
◇[DELPHI]如何判断字符串是否是有效EMAIL地址
function IsEMail(EMail: String): Boolean;
var s: String;ETpos: Integer;
begin
ETpos:= pos('@', EMail);
if ETpos > 1 then
begin
s:= copy(EMail,ETpos+1,Length(EMail));
if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
Result:= true else Result:= false;
end
else
Result:= false;
end;
◇[DELPHI]判断系统是否连接INTERNET
需要引入URL.DLL中的InetIsOffline函数。
函数申明为:
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
然后就可以调用函数判断系统是否连接到INTERNET
if InetIsOffline(0) then ShowMessage('not connected!')
else ShowMessage('connected!');
该函数返回TRUE如果本地系统没有连接到INTERNET。
附:
大多数装有IE或OFFICE97的系统都有此DLL可供调用。
InetIsOffline
BOOL InetIsOffline(
DWORD dwFlags,
);
◇[DELPHI]简单地播放和暂停WAV文件
uses mmsystem;
function PlayWav(const FileName: string): Boolean;
begin
Result := PlaySound(PChar(FileName), 0, SND_ASYNC);
end;
procedure StopWav;
var
buffer: array[0..2] of char;
begin
buffer[0] := #0;
PlaySound(Buffer, 0, SND_PURGE);
end;
◇[DELPHI]取机器BIOS信息
with Memo1.Lines do
begin
Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));
Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));
Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
end;
◇[DELPHI]网络下载文件
uses UrlMon;
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
if DownloadFile('http://www.borland.com/delphi6.zip, 'c:\kylix.zip') then
ShowMessage('Download succesful')
else ShowMessage('Download unsuccesful')
◇[DELPHI]解析服务器IP地址
uses winsock
function IPAddrToName(IPAddr : String): String;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt<>nil then result:=StrPas(Hostent^.h_name) else result:='';
end;
◇[DELPHI]取得快捷方式中的连接
function ExeFromLink(const linkname: string): string;
var
FDir,
FName,
ExeName: PChar;
z: integer;
begin
ExeName:= StrAlloc(MAX_PATH);
FName:= StrAlloc(MAX_PATH);
FDir:= StrAlloc(MAX_PATH);
StrPCopy(FName, ExtractFileName(linkname));
StrPCopy(FDir, ExtractFilePath(linkname));
z:= FindExecutable(FName, FDir, ExeName);
if z > 32 then
Result:= StrPas(ExeName)
else
Result:= '';
StrDispose(FDir);
StrDispose(FName);
StrDispose(ExeName);
end;
◇[DELPHI]控制TCombobox的自动完成
{'Sorted' property of the TCombobox to true }
var lastKey: Word; //全局变量
//TCombobox的OnChange事件
procedure TForm1.AutoCompleteChange(Sender: TObject);
var
SearchStr: string;
retVal: integer;
begin
SearchStr := (Sender as TCombobox).Text;
if lastKey <> VK_BACK then // backspace: VK_BACK or $08
begin
retVal := (Sender as TCombobox).Perform(CB_FINDSTRING, -1, LongInt(PChar(SearchStr)));
if retVal > CB_Err then
begin
(Sender as TCombobox).ItemIndex := retVal;
(Sender as TCombobox).SelStart := Length(SearchStr);
(Sender as TCombobox).SelLength :=
(Length((Sender as TCombobox).Text) - Length(SearchStr));
end; // retVal > CB_Err
end; // lastKey <> VK_BACK
lastKey := 0; // reset lastKey
end;
//TCombobox的OnKeyDown事件
procedure TForm1.AutoCompleteKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
lastKey := Key;
end;
◇[DELPHI]如何清空一个目录
function EmptyDirectory(TheDirectory :String ; Recursive : Boolean) :
Boolean;
var
SearchRec : TSearchRec;
Res : Integer;
begin
Result := False;
TheDirectory := NormalDir(TheDirectory);
Res := FindFirst(TheDirectory + '*.*', faAnyFile, SearchRec);
try
while Res = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
if ((SearchRec.Attr and faDirectory) > 0) and Recursive
then begin
EmptyDirectory(TheDirectory + SearchRec.Name, True);
RemoveDirectory(PChar(TheDirectory + SearchRec.Name));
end
else begin
DeleteFile(PChar(TheDirectory + SearchRec.Name))
end;
end;
Res := FindNext(SearchRec);
end;
Result := True;
finally
FindClose(SearchRec.FindHandle);
end;
end;
◇[DELPHI]如何计算一个目录的大小
function GetDirectorySize(const ADirectory: string): Integer;
var
Dir: TSearchRec;
Ret: integer;
Path: string;
begin
Result := 0;
Path := ExtractFilePath(ADirectory);
Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);
if Ret <> NO_ERROR then exit;
try
while ret=NO_ERROR do
begin
inc(Result, Dir.Size);
if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> '.') then
Inc(Result, GetDirectorySize(Path + Dir.Name + '\*.*'));
Ret := Sysutils.FindNext(Dir);
end;
finally
Sysutils.FindClose(Dir);
end;
end;
◇[DELPHI]安装程序如何添加到Uninstall列表
操作注册表,如下:
1.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall键下建立一个主键,名称任意。
例HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyUninstall
2.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyUnistall下键两个串值,
这两个串值的名称是特定的:DisplayName和UninstallString。
3.给串DisplayName赋值为显示在“删除应用程序列表”中的名称,如'Aiming Uninstall one';
给串UninstallString赋值为执行的删除命令,如 C:\WIN97\uninst.exe -f"C:\TestPro\aimTest.isu"
◇[DELPHI]截获WM_QUERYENDSESSION关机消息
type
TForm1 = class(TForm)
procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
procedure CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
private
{ Private declarations }
public
{ Public declarations }
end;
procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
Showmessage('computer is about to shut down');
end;
◇[DELPHI]获取网上邻居
procedure getnethood();//NT做服务器,WIN98上调试通过。
var
a,i:integer;
errcode:integer;
netres:array[0..1023] of netresource;
enumhandle:thandle;
enumentries:dword;
buffersize:dword;
s:string;
mylistitems:tlistitems;
mylistitem:tlistitem;
alldomain:tstrings;
begin //listcomputer is a listview to list all computers;controlcenter is a form.
alldomain:=tstringlist.Create ;
with netres[0] do begin
dwscope :=RESOURCE_GLOBALNET;
dwtype :=RESOURCETYPE_ANY;
dwdisplaytype :=RESOURCEDISPLAYTYPE_DOMAIN;
dwusage :=RESOURCEUSAGE_CONTAINER;
lplocalname :=nil;
lpremotename :=nil;
lpcomment :=nil;
lpprovider :=nil;
end; // 获取所有的域
errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,@netres[0],enumhandle);
if errcode=NO_ERROR then begin
enumentries:=1024;
buffersize:=sizeof(netres);
errcode:=wnetenumresource(enumhandle,enumentries,@netres[0],buffersize);
end;
a:=0;
mylistitems :=controlcenter.lstcomputer.Items ;
mylistitems.Clear ;
while (string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do
begin
alldomain.Add (netres[a].lpremotename);
a:=a+1;
end;
wnetcloseenum(enumhandle);
// 获取所有的计算机
mylistitems :=controlcenter.lstcomputer.Items ;
mylistitems.Clear ;
for i:=0 to alldomain.Count-1 do
begin
with netres[0] do begin
dwscope :=RESOURCE_GLOBALNET;
dwtype :=RESOURCETYPE_ANY;
dwdisplaytype :=RESOURCEDISPLAYTYPE_SERVER;
dwusage :=RESOURCEUSAGE_CONTAINER;
lplocalname :=nil;
lpremotename :=pchar(alldomain[i]);
lpcomment :=nil;
lpprovider :=nil;
end;
ErrCode:=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,@netres[0],EnumHandle);
if errcode=NO_ERROR then
begin
EnumEntries:=1024;
BufferSize:=SizeOf(NetRes);
ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);
end;
a:=0;
while (string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do
begin
mylistitem :=mylistitems.Add ;
mylistitem.ImageIndex :=0;
mylistitem.Caption :=uppercase(stringreplace(string(NetRes[a].lpremotename),'\\','',[rfReplaceAll]));
a:=a+1;
end;
wnetcloseenum(enumhandle);
end;
end;
◇[DELPHI]获取某一计算机上的共享目录
procedure getsharefolder(const computername:string);
var
errcode,a:integer;
netres:array[0..1023] of netresource;
enumhandle:thandle;
enumentries,buffersize:dword;
s:string;
mylistitems:tlistitems;
mylistitem:tlistitem;
mystrings:tstringlist;
begin
with netres[0] do begin
dwscope :=RESOURCE_GLOBALNET;
dwtype :=RESOURCETYPE_DISK;
dwdisplaytype :=RESOURCEDISPLAYTYPE_SHARE;
dwusage :=RESOURCEUSAGE_CONTAINER;
lplocalname :=nil;
lpremotename :=pchar(computername);
lpcomment :=nil;
lpprovider :=nil;
end; // 获取根结点
errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER,@netres[0],enumhandle);
if errcode=NO_ERROR then
begin
EnumEntries:=1024;
BufferSize:=SizeOf(NetRes);
ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);
end;
wnetcloseenum(enumhandle);
a:=0;
mylistitems:=controlcenter.lstfile.Items ;
mylistitems.Clear ;
while (string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do
begin
with mylistitems do
begin
mylistitem:=add;
mylistitem.ImageIndex :=4;
mylistitem.Caption :=extractfilename(netres[a].lpremotename);
end;
a:=a+1;
end;
end;
◇[DELPHI]得到硬盘序列号
var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then Label1.Caption := IntToStr(SerialNum^);
end;
◇[DELPHI]MEMO的自动翻页
Procedure ScrollMemo(Memo : TMemo; Direction : char);
begin
case direction of
'd': begin
SendMessage(Memo.Handle, { HWND of the Memo Control }
WM_VSCROLL, { Windows Message }
SB_PAGEDOWN, { Scroll Command }
0) { Not Used }
end;
'u' : begin
SendMessage(Memo.Handle, { HWND of the Memo Control }
WM_VSCROLL, { Windows Message }
SB_PAGEUP, { Scroll Command }
0); { Not Used }
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ScrollMemo(Memo1,'d'); //上翻页
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ScrollMemo(Memo1,'u'); //下翻页
end;
◇[DELPHI]DBGrid中回车到下个位置(Tab键)
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then
DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl
else
begin
Table1.next;
DBGrid1.Columns[0].field.FocusControl;
end;
end;
◇[DELPHI]如何安装控件
安装方法:
1.对于单个控件,Component-->install component..-->PAS或DCU文件-->install
2.对于带*.dpk文件的控件包,File-->open(下拉列表框中选*.dpk)-->install即可.
3.对于带*.dpl文件的控件包,Install Packages-->Add-->dpl文件名即可。
4.如果以上Install按钮为失效的话,试试Compile按钮。
5.是run time lib则在option下的packages下的runtimepackes加之.
如果编译时提示文件找不到的话,一般是控件的安装目录不在delphi的Lib目录中,有两种方法可以解决:
1.把安装的原文件拷入到delphi的Lib目录下。
2.或者Tools-->Environment Options中把控件原代码路径加入到Delphi的Lib目录中即可。
◇[DELPHI]目录完全删除(deltree)
procedure TForm1.DeleteDirectory(strDir:String);
var
sr: TSearchRec;
FileAttrs: Integer;
strfilename:string;
strPth:string;
begin
strpth:=Getcurrentdir();
FileAttrs := faAnyFile;
if FindFirst(strpth+'\'+strdir+'\*.*', FileAttrs, sr) = 0 then
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
strfilename:=sr.Name;
if fileexists(strpth+'\'+strdir+'\'+strfilename) then
deletefile(strpth+'\'+strdir+'\'+strfilename);
end;
while FindNext(sr) = 0 do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
strfilename:=sr.name;
if fileexists(strpth+'\'+strdir+'\'+strfilename) then
deletefile(strpth+'\'+strdir+'\'+strfilename);
end;
end;
FindClose(sr);
removedir(strpth+'\'+strdir);
end;
end;
◇[DELPHI]取得TMemo 控件当前光标的行和列信息到Tpoint中
1.function ReadCursorPos(SourceMemo: TMemo): TPoint;
var Point: TPoint;
begin
 point.y := SendMessage(SourceMemo.Handle,EM_LINEFROMCHAR,SourceMemo.SelStart,0);
 point.x := SourceMemo.SelStart-SendMessage(SourceMemo.Handle,EM_LINEINDEX,point.y,0);
 Result := Point;
end;
2.LineLength:=SendMessage(memol.handle,EM-LINELENGTH,Cpos,0);//行长
◇[DELPHI]读硬盘序列号
function GetDiskSerial(DiskChar: Char): string;
var
SerialNum : pdword;
a, b : dword;
Buffer : array [0..255] of char;
begin
result := "";
if GetVolumeInformation(PChar(diskchar+":\"), Buffer, SizeOf(Buffer), SerialNum,
a, b, nil, 0) then
 Result := IntToStr(SerialNum^);
end;
◇[INTERNET]CSS常用综合技巧
1。P:first-letter { font-size: 300%; float: left }//首字会比普通字体加大三倍。
2//连接一个外部样式表
3。嵌入一个样式表
4//内联样式
Arial//SPAN接受STYLE、CLASS和ID属性
DIV可以包含段落、标题、表格甚至其它部分
5CLASS属性
//定义见3。
6。ID属性
//定义见3。
7。属性列表
字体风格:font-style: [normal | italic | oblique];
字体大小:font-size: [xx-small | x-small | small | medium | large | x-large | xx-large | larger | smaller | <长度> | <百分比>]
文本修饰:text-decoration:[ underline || overline || line-through || blink ]
文本转换:text-transform:[none | capitalize | uppercase | lowercase]
背景颜色:background-color:[<颜色> | transparent]
背景图象:background-image:[ | none]
行高:line-height: [normal | <数字> | <长度> | <百分比>]
边框样式:border-style: [ none | dotted | dashed | solid | double | groove | ridge | inset | outset ]
漂浮:float: [left | right | none]
8。长度单位
相对单位:
em (em,元素的字体的高度)
ex (x-height,字母 "x" 的高度)
px (像素,相对于屏幕的分辨率)
绝对长度:
in (英寸,1英寸=2.54厘米)
cm (厘米,1厘米=10毫米)
mm (米)
pt (点,1点=1/72英寸)
pc (帕,1帕=12点)
◇[DELPHI]VCL制作简要步骤
1.创建部件属性方法事件
(建立库单元,继承为新的类型,添加属性、方法、事件,注册部件,建立包文件)
2.消息处理
3.异常处理
4.部件可视
◇[DELPHI]动态连接库的装载
静态装载:procedure name;external 'lib.dll';
动态装载:var handle:Thandle;
handle:=loadlibrary('lib.dll');
if handle<>0 then
begin
{dosomething}
freelibrary(handle);
end;
◇[DELPHI]指针变量和地址
var x,y:integer;p:^integer;//指向INTEGER变量的指针
x:=10;//变量赋值
p:=@x;//变量x的地址
y:=p^;//为Y赋值指针P
@@procedure//返回过程变量的内存地址
◇[DELPHI]判断字符是汉字的一个字符
ByteType('你好haha吗',1) = mbLeadByte//是第一个字符
ByteType('你好haha吗',2) = mbTrailByte//是第二个字符
ByteType('你好haha吗',5) = mbSingleByte//不是中文字符
◇[DELPHI]memo的定位操作
memo1.lines.delete(0)//删除第1行
memo1.selstart:=10//定位10字节处
◇[DELPHI]获得双字节字符内码
function getit(s: string): integer;
begin
Result := byte(s[1]) * $100 + byte(s[2]);
end;
使用:getit('计')//$bcc6 即十进制 48326
◇[DELPHI]调用ADD数据存储过程
存储过程如下:
create procedure addrecord(
record1 varchar(10)
record2 varchar(20)
)
as
begin
insert into tablename (field1,field2) values(:record1,:record2)
end
执行存储过程:
EXECUTE procedure addrecord("urrecord1","urrecord2")
◇[DELPHI]将文件存到blob字段中
function blobcontenttostring(const filename: string):string;
begin
with tfilestream.create(filename,fmopenread) do
try
setlength(Result,size);
read(Pointer(Result)^,size);
finally
free;
end;
end;
//保存字段
begin
if (opendialog1.execute) then
begin
sFileName:=OpenDialog1.FileName;
adotable1.edit;
adotable1.fieldbyname('visio').asstring:=Blobcontenttostring(FileName);
adotable1.post;
end;
◇[DELPHI]把文件全部复制到剪贴板
uses shlobj,activex,clipbrd;
procedure Tform1.copytoclipbrd(var FileName:string);
var
FE:TFormatEtc;
Medium: TStgMedium;
dropfiles:PDropFiles;
pFile:PChar;
begin
FE.cfFormat := CF_HDROP;
FE.dwAspect := DVASPECT_CONTENT;
FE.tymed := TYMED_HGLOBAL;
Medium.hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT, SizeOf(TDropFiles)+length(FileName)+1);
if Medium.hGlobal<>0 then begin
Medium.tymed := TYMED_HGLOBAL;
dropfiles := GlobalLock(Medium.hGlobal);
try
dropfiles^.pfiles := SizeOf(TDropFiles);
dropfiles^.fwide := False;
longint(pFile) := longint(dropfiles)+SizeOf(TDropFiles);
StrPCopy(pFile,FileName);
Inc(pFile, Length(FileName)+1);
pFile^ := #0;
finally
GlobalUnlock(Medium.hGlobal);
end;
Clipboard.SetAsHandle(CF_HDROP,Medium.hGlobal);
end;
end;
◇[DELPHI]列举当前系统运行进程
uses TLHelp32;
procedure TForm1.Button1Click(Sender: TObject);
var lppe: TProcessEntry32;
found : boolean;
Hand : THandle;
begin
Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
found := Process32First(Hand,lppe);
while found do
begin
ListBox1.Items.Add(StrPas(lppe.szExeFile));
found := Process32Next(Hand,lppe);
end;
end;
◇[DELPHI]根据BDETable1建立新表Table2
Table2:=TTable.Create(nil);
try
Table2.DatabaseName:=Table1.DatabaseName;
Table2.FieldDefs.Assign(Table1.FieldDefs);
Table2.IndexDefs.Assign(Table1.IndexDefs);
Table2.TableName:='new_table';
Table2.CreateTable();
finally
Table2.Free();
end;
◇[DELPHI]最菜理解DLL建立和引用
//先看DLL source(FILE-->NEW-->DLL)
library project1;
uses
SysUtils, Classes;
function addit(f:integer;s:integer):integer;export;
begin
makeasum:=f+s;
end;
exports
addit;
end.
//调用(IN ur PROJECT)
implementation
function addit(f:integer;s:integer):integer;far;external 'project1';//申明
{调用就是addit(2,4);结果显示6}
◇[DELPHI]动态读取程序自身大小
function GesSelfSize: integer;
var
f: file of byte;
begin
filemode := 0;
assignfile(f, application.exename);
reset(f);
Result := filesize(f);//单位是字节
closefile(f);
end;
◇[DELPHI]读取BIOS信息
with Memo1.Lines do
begin
Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));
Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));
Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
end;
◇[DELPHI]动态建立MSSQL别名
procedure TForm1.Button1Click(Sender: TObject);
var MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=210.242.86.2');
Add('DATABASE NAME=db');
Add('USER NAME=sa');
end;
Session1.AddAlias('TESTSQL', 'MSSQL', MyList); //ミMSSQL
Session1.SaveConfigFile;
finally
MyList.Free;
Session1.Active:=True;
Database1.DatabaseName:='DB';
Database1.AliasName:='TESTSQL';
Database1.LoginPrompt:=False;
Database1.Params.Add('USER NAME=sa');
Database1.Params.Add('PASSWORD=');
Database1.Connected:=True;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Database1.Connected:=False;
Session1.DeleteAlias('TESTSQL'); 
end;
◇[DELPHI]播放背景音乐
uses mmsystem
//播放音乐
MCISendString('OPEN e:\1.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('PLAY NN FROM 0', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;
//停止播放
MCISendString('OPEN e:\1.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('STOP NN', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
◇[DELPHI]接口和类的一个范例代码
Type{接口和类申明:区别在于不能在接口中申明数据成员、任何非公有的方法、公共方法不使用PUBLIC关键字}
Isample=interface//定义Isample接口
function getstring:string;
end;
Tsample=class(TInterfacedObject,Isample)
public
function getstring:string;
end;
//function定义
function Tsample.getstring:string;
begin
result:='what show is ';
end;
//调用类对象
var sample:Tsample;
begin
sample:=Tsample.create;
showmessage(sample.getstring+'class object!');
sample.free;
end;
//调用接口
var sampleinterface:Isample;
sample:Tsample;
begin
sample:=Tsample.create;
sampleInterface:=sample;//Interface的实现必须使用class
{以上两行也可表达成sampleInterface:=Tsample.create;}
showmessage(sampleInterface.getstring+'Interface!');
//sample.free;{和局部类不同,Interface中的类自动释放}
sampleInterface:=nil;{释放接口对象}
end;
◇[DELPHI]任务条就看不当程序
var
ExtendedStyle : Integer;
begin
Application.Initialize;
ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
◇[DELPHI]ALT+CTRL+DEL看不到程序
implementation后添加声明:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏
RegisterServiceProcess(GetCurrentProcessID, 0);//显示
◇[DELPHI]检测光驱符号
var drive:char;
cdromID:integer;
begin
for drive:='d' to 'z' do
begin
cdromID:=GetDriveType(pchar(drive+':\'));
if cdromID=5 then showmessage('你的光驱为:'+drive+'盘!');
end;
end;
◇[DELPHI]检测声卡
if auxGetNumDevs()<=0 then showmessage('No soundcard found!') else showmessage('Any soundcard found!');
◇[DELPHI]在字符串网格中画图
StringGrid.OnDrawCell事件
with StringGrid1.Canvas do
Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
◇[SQL SERVER]SQL中代替Like语句的另一种写法
比如查找用户名包含有"c"的所有用户, 可以用
use mydatabase
select * from table1 where username like'%c%"
下面是完成上面功能的另一种写法:
use mydatabase
select * from table1 where charindex('c',username)>0
这种方法理论上比上一种方法多了一个判断语句,即>0, 但这个判断过程是最快的, 我想信80%以上的运算都是花在查找字
符串及其它的运算上, 所以运用charindex函数也没什么大不了. 用这种方法也有好处, 那就是对%,|等在不能直接用like
查找到的字符中可以直接在这charindex中运用, 如下:
use mydatabase
select * from table1 where charindex('%',username)>0
也可以写成:
use mydatabase
select * from table1 where charindex(char(37),username)>0
ASCII的字符即为%
◇[DELPHI]SQL显示多数据库/表
SELECT DISTINCT A.bianhao,a.xingming, b.gongzi FROM "jianjie.dbf" a, "gongzi.DBF" b
WHERE A.bianhao=b.bianhao
◇[DELPHI]RFC(Request For Comment)相关
IETF(Internet Engineering Task Force)维护RFC文档http://www.ietf.cnri.reston.va.us/
RFC882:报文头标结构
RFC1521:MIME第一部分,传输报文方法
RFC1945:多媒体文档传输文档
◇[DELPHI]TNMUUProcessor的使用
var inStream,outStream:TFileStream;
begin
inStream:=TFileStream.create(infile.txt,fmOpenRead);
outStream:=TFileStream(outfile.txt,fmCreate);
NMUUE.Method:=uuCode;{UUEncode/Decode}
//NMUUE.Method:=uuMIME;{MIME}
NMUUE.InputStream:=InStream;
NMUUE.OutputStream:=OutStream;
NMUUE.Encode;{编码处理}
//NMUUE.Decode;{解码处理}
inStream.free;
outStream.free;
end;
◇[DELPHI]TFileStream的操作
//从文件流当前位置读count字节到缓冲区BUFFER
function read(var buffer;count:longint):longint;override;
//将缓冲区BUFFER读到文件流中
function write(const buffer;count:longint):longint;override;
//设置文件流当前读写指针为OFFSET
function seek(offset:longint;origin:word):longint;override;
origin={soFromBeginning,soFromCurrent,soFromEnd}
//从另一文件流中当前位置复制COUNT到当前文件流当前位置
function copyfrom(source:TStream;count:longint):longint;
//读指定文件到文件流
var myFStream:TFileStream;
begin
myFStream:=TFileStream.create(OpenDialog1.filename,fmOpenRead);
end;
[JavaScript]检测是否安装IE插件Shockwave&Quicktime
var myPlugin = navigator.plugins["Shockwave"];
if (myPlugin)
document.writeln("你已经安装了 Shockwave!")
else
document.writeln("你尚未安装 Shockwave!")
var myPlugin = navigator.plugins["Quicktime"];
if (myPlugin)
document.writeln("你已经安装了Quicktime!")
else
document.writeln("你尚未安装 Quicktime!")
//Delphi控件数组的简易实现
Procedure TForm1.Edit1Enter(Sender:TObject);
begin
(Sender As TEdit).Color:=ClInfo;
file://改变Edit获得焦点时的背景颜色为黄色
end;
Procedure TForm1.Edit1Exit(Sender:TObject);
Begin
(Sender As TEdit).Color:=ClWhite;
file://改变Edit失去焦点时的背景颜色为白色
End;
file://设置窗体中所有的Edit背景颜色为ClLime
Procedure TForm1.Button1(Sender:TObject);
var
Index:Integer;
Begin
For Index:=0 to ControlCount-1 do
Begin
if Components[Index] is TEdit then
begin
(Components[Index] As TEdit).Color:=ClLime;
end
End
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/cowbo/archive/2006/09/08/1193717.aspx

如何知道鼠标左键 是否是按下的状态呢?-CSDN论坛-CSDN.NET-中国最大的IT技术社区

mikel阅读(799)

来源: 如何知道鼠标左键 是否是按下的状态呢?-CSDN论坛-CSDN.NET-中国最大的IT技术社区

不需要钩子就能做到。

如果只是监控在本应用程序中鼠标是否按下,用Mouse.Capture是可以判断的;就看你是怎么用的?时机….

如果需要全局监控,可以使用API:GetAsyncKeyState。

以上两种方法,不论是哪种方式。触发时机要选好,目标:程序要能及时捕捉到鼠标动作。比如你可以用timer测试,时间间隔设置为1ms。

API的使用,还是给你点代码,避免等下又说不行:

Delphi/Pascal code

?

1
2
3
4
5
procedure XXXXTimer(Sender: TObject);
begin
  if GetAsyncKeyState(Vk_Lbutton) <> 0 then
    showmessage('鼠标左键按下');
end;