Delphi多线程学习（3）：线程同步的原因
在使用多线程的时候，如果多线程对某个特定的公共数据或资源进行访问，需要对多线程进行协调操作，叫做线程同步。
例如：三个线程分别循环地向ListBox中写入数据。没有进行同步时，写入的顺序是不确定的。
{主窗体代码}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses MyThread;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
TMyThread.Create(False);
TMyThread.Create(False);
TMyThread.Create(False);
end;
end.{多线程代码}
unit MyThread;
interface
uses
Classes,StdCtrls,SysUtils,Windows;
type
TMyThread = class(TThread)
private
{ Private declarations }
str:String;
procedure AddList;
protected
procedure Execute; override;
end;
implementation
uses Unit2;
{ TMyThread }
procedure TMyThread.AddList;
begin
Form2.ListBox1.Items.Add(str);
end;
procedure TMyThread.Execute;
var
i:Integer;
begin
{ Place thread code here }
for i := 0 to 99 do
begin
if not Terminated then
begin
str:=Format('线程ID:%d，第%d个循环。',[GetCurrentThreadId,i]);
Synchronize(AddList);
end;
end;
end;
end.
三个线程根据分配到的CPU时间的顺序向ListBox中写入数据。这里的公共资源是ListBox。
可以将这个公共的冷资源比喻为一个图书馆，线程比喻为借书看书的人员。那么没有同步处理的情况下，就好像图书馆完全开放，没有人管理，每个人都可以访问这个图书馆。看起来乱糟糟的，而且当某人想借书A的话，查询的时候书A还在，当他去借的时候可能被另一人已借走。
为了更好管理的需要（某些对公共资源的访问必须逐个线程处理，才不会出错），这里就要用到同步，即查询和借书这两个步骤要一起完成，等一�
相关文档：
在编制了一个应用程序后的维护阶段，我们会面临给应用程序升级的工作.无疑，手工升级的工作是十分繁琐的，你可能会需要到用户的机器上去更新文件.可是，如果能编一个自动升级程序，放在网络上，让用户下载，只需执行一下就完成升级工作，不是很方便吗？其实，用Delphi可以很方便地编制出这样一个的程序.
以下是我们的例子� ......
实际上这个名字叫[SDL & Delphi]也不成问题， 因为除了Delphi似乎也没有哪个流行的开发工具用的是Pascal语言。
SDL其实我也只学了不到两星期而已。刚开始我想试图用VC，因为这样资料最全，也很好找，但太久没用VC现在看C的代码有点困难（->这个算符是干吗的来着……）。其实作为一个专业不是计算机的人 ......
技术交流,DH讲解. 记得很早之前我就说过,数组和结构体在内存中其实一样的,他们都是连续分布的.
例如: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
这两个都占12字节,而且TMyStruct.A就是T3IntArray[0].
而我们知道在访问数组中某个元素的时候,只是在� ......
技术交流,DH讲解.
明天去坐火车,回家,今天就没有事做,本来在弄一个跨进程获取其他程序里面组件,如ListView,ListBox,Button等的信息,突然有个想法自己写个Timer,不用SetTimer函数,我们自己用个多线程也正好实现这个.反正前段时间多线程也弄得比较多,本来想单独讲讲的,现在就用个例子来说明吧.
写成一个控件:utTimer.pas
v ......
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
搞了好一会才搞明白其用法.所以想贴出来帮助需要帮助的人.
var
&nb ......
