• 我学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;

     以上只是在项目中应用的一个小小的线程实例,可能存在一些小剖疏忽,

  • 相关阅读:
    《Ubuntu标准教程》学习总结
    Ubuntu下安装VirtualBox并为其添加USB支持
    Eclipse下配置TinyOS开发环境
    Ubuntu下的网络服务
    Ubuntu12.04添加环境变量
    Ubuntu12.04下搭建Java环境
    poj 1066 线段相交
    poj 2653 (线段相交判断)
    poj 2398 (叉积+二分)
    hdu 4883 思维题
  • 原文地址:https://www.cnblogs.com/youshan/p/2352938.html
Copyright © 2020-2023  润新知