我学Delphi心得与笔记-------多线程实例
关于线程的原理:其实并没有真正的多线程,所谓的多线程只不过是CPU的执行效率高,将任务分成多个点,基本能达到同时执行的效果.
关于Delphi下的多线程的应用需要说明的是:同时开启的线程数以及线程执行的方法都会影响cpu的执行效率,一般的情况下,能不用线程就不要用;下面写一个Delphi的多线和应用的例子:
----------------------------多线程的申明
type
TmapQueryThread=class;
TmapQueryThread=class(TThread)
private
vehicleId:string;
Lon:integer;
Lat:integer;
AreaName:string;
public
constructor Create(vid:string;slon,slat:integer);
protected
procedure Execute;override
procedure GetAreaName;
procedure BeginView;
end;
-----------------------------------多线程的实现
constructor TmapQueryThread.Create(vid:string;slon,slat:integer);
begin
inherited Create(False);
vehicleId := vid;
Lon:= slon;
Lat:=slat;
AreaName := '';
end;
procedure TmapQueryThread.Execute;
begin
inherited;
GetAreaName;
if not Terminated then
begin
Synchronize(BeginView);
end;
end;
//根据经纬度获取网络51地图的地址
procedure TmapQueryThread. GetAreaName;
var
Url:string;
node:IxmlNode;
xmldocm:TxmlDocument;
begin
CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
Url := 'http://rgc.vip.51ditu.com/rgc?pos='+ FloatToStr(slon)+','+FloatToStr(slat)+'&type=1';
try
xmldocm := TXMLDocument.Create(Application);
xmldocm.LoadFromFile(Url);
node := xmldocm.DocumentElement.ChildNodes[1].ChildNodes[0];
AreaName := SubStr(node.Text);
except
AreaName := '网络地址获取错误,请重试';
end;
xmldocm.Free;
CoUninitialize;
end;
//对结果进行操作
procedure TmapQueryThread.BeginView;
begin
showmessage(AreaName);//areaName为查询的返回结果,可以自行操作
end;
------------------线各线束,在程序中实现应用该线程
procedure TFrom1.Btn1_Cliek(Sender: TObject);
begin
TmapQueryThread
mapQueryThread:=TmapQueryThread.Create('123456',158746111,1200000);//线程实例化
end;
以上只是在项目中应用的一个小小的线程实例,可能存在一些小剖疏忽,
人生的无奈那么多谁可以数得清?请告诉我!别回头走自己的路,就算有些事让人无助,至少我有一路吃苦的幸福!多年以后当我抬头望天空,湛蓝的色彩中依然有我沉郁多年的思绪!回归那一季那个曾叫‘山子’的男孩纯洁的微笑,然后宿命收拢指间,我们无处可逃
作者:Love Coding
出处:http://www.cnblogs.com/youshan/
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。