Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对此作一个补充。
线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程，即所谓的主线程。同时还可以有多个子线程。当一个进程中用到超过一个线程时，就是所谓的“多线程”。
那么这个所谓的“一段代码”是如何定义的呢？其实就是一个函数或过程（对Delphi而言）。
如果用Windows API来创建线程的话，是通过一个叫做CreateThread的API函数来实现的，它的定义为：
HANDLE CreateThread(
LPSECURITY_ATTRIBUTES lpThreadAttributes,
DWORD dwStackSize,
LPTHREAD_START_ROUTINE lpStartAddress,
LPVOID lpParameter,
DWORD dwCreationFlags,
LPDWORD lpThreadId
);
&nbs ......
这两天用到了图像处理，需要把图像旋转180度，很简单的图像处理，但我是新来的，花去了很长时间，结果呢，还没搞定……
下面是我写的代码，算法很简单，把点[SWidth-1-PX,SHeight-1-PY]跟点[x,y]的颜色做一下交换，但是效果很糟糕，转的非常慢。我尝试优化算法，把颜色信息读取到之后，进行一下比较，如果颜色一样就不用做交换了，颜色不一样再交换。没感觉到速度变快了。又上网找了很多相关文章，发现大部分的算法是我没有经过比较的算法，还有360度旋转的，算法更麻烦，最后我改成引用windows自带的图片和传真浏览器了，详细代码在下一篇放出。
以下是我用自己的算法写的旋转180度的代码，希望高人能帮我看看，问题出在哪里，为什么旋转的这么慢，不胜感激！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls,Math;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
......
Delphi中调用Windows自带的图片和传真浏览器查看图片，可以旋转图片也可以调用画图程序编辑图像。自己写不出来好的代码，就用系统自带的好了。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
SysDir,StrParm,StrPicPath,StrRundll:array[0..128] of char;
p1,p2:pchar;
begin
GetSystemDirectory(SysDir,128);
StrRundll:=SysDir;
strcat(StrRundll,'\rundll32.exe');
// showmessage('获取rundll32路径正常');
StrParm:=SysDir;
Strcat(StrParm,'\shimgvw.dll imageview_fullscreen ');
StrPicPath:='D:\My Document\My Pictures\未命名.bmp';
strcat(StrParm,StrPicPath);
// showmessage('获取str ......
分类
运算符
操作
操作数
结果类型
范例
算术运算符
+
加
整数，实数
整数，实数
X + Y
-
减
整数，实数
整数，实数
Result - 1
*
乘
整数，实数
整数，实数
P * InterestRate
/
实数除
整数，实数
实数
X / 2
div
整数除
整数
整数
Total div UnitSize
mod
取模
整数
整数
Y mod 6
+(一元)
符号等同
整数，实数
整数，实数
+7
-(一元)
符号相反
整数，实数
整数，实数
-X
布尔运算符
not
否定
布尔型
Boolean
not (C in MySet)
and
与
布尔型
Boolean
Done and (Total > 0)
or
或
布尔型
Boolean
A or B
xor
异或
布尔型
Boolean
A xor B
逻辑(按位)运算符
not
按位否定
整数
整数
not X
and
按位与
整数
整数
X and Y
or
按位或
整数
整数
X or Y
xor
按位异或
整数
整数
X xor Y
shl
按位左移
整数
整数
X shl 2
shr
按位右移
整数
整数
Y shr I
字符串运算符
+
连接
字符串、压缩串、字符
字符串
S + '.'
指针运算符
+
指针加
字符指针，整数
字符指针
P + I
-
指针减
字符指针，整数
字符指针，整数
P - Q
^
指针解除参照
指针
指针的基� ......
JSON:
[{"subjecttypeId":"1","subjectName":"67","scope":"1",},{"subjecttypeId":"1","subjectName":"345","scope":"1"}]
JavaScript:
var result = window.eval('(' + JSON+ ')');
for(var p in result){
result[p].subjectName;
alert(result[p].subjectName);
} ......
Javascript文件及文件夹操作
一、功能实现核心：FileSystemObject 对象
要在javascript中实现文件操作功能，主要就是依靠FileSystemobject对象。
二、FileSystemObject编程
使用FileSystemObject 对象进行编程很简单，一般要经过如下的步骤： 创建FileSystemObject对象、应用相关方法、访问对象相关属性 。
（一）创建FileSystemObject对象
创建FileSystemObject对象的代码只要1行：
var fso = new ActiveXObject("Scripting.FileSystemObject");
上述代码执行后，fso就成为一个FileSystemObject对象实例。
（二）应用相关方法
创建对象实例后，就可以使用对象的相关方法了。比如，使用CreateTextFile方法创建一个文本文件：
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f1 = fso.createtextfile("c:\\myjstest.txt",true");
（三）访问对象相关属性
要访问对象的相关属性，首先要建立指向对象的句柄，这就要通过get系列方法实现：GetDrive负责获取驱动器信息，GetFolder负责获取文件夹信息，GetFile负责获取文件信息。比如，指向下面的代码后，f1就成为指向文件c:\test.txt的句柄：
var fso = ......
总记录数:40319; 总页数:6720; 每页6 条;
首页 上一页 [7] [8] [9] [10] 11
[12] [13] [14] [15] [16] 下一页 尾页
最新文章 :