本站创建于2006年,博主为Delphi老码农,暗黑忠实粉丝,主要用于学习经验分享
    • 成都继续实行“尾号限行”

    • 成都全搜索新闻网(记者 马丽)6月26日报道 6月30日,成都已施行了近9个月的尾号限行措施(详细)就要到期。今日下午2点,成都市交管局召开关于“成都市区机动车尾号限行”情况的新闻发布会。以下为成都全搜索新闻网记者从现场发回的消息:

          14:01 成都市交管局局长李文胜宣读《成都市公安局交通管理局关于继续实施二三环路之间区域汽车尾号限行交通管理措施的通告》:

          从7月1日起,成都市继续实施区域尾号限行政策,限行时间、区域和规则不变。据称,此次尾号限行措施有效期不超过5年,将在实行中根据实际情况做出调整。

          一、限行车辆

        所有“川A”及外地籍号牌汽车

          二、限行区域

          三环路(含)与二环路(含)之间区域内所有道路,含二环高架路面

          三、限行时间

          工作日的7:30—20:00

          四、“尾号限行”规则

          (一)上述限行车辆按照机动车号牌(含临时号牌)的最后一位阿拉伯数字分为五组,每两个号码为一组,每个工作日禁止一组在上述限行时间和 限行区域内通行。尾号组合及对应规则分别为:星期一为“1”和“6”; 星期二为“2”和“7”;星期三为“3”和“8”;星期四为“4”和“9” ;星期五为“5”和“0”。

          (二)全体公民放假的节日,如果恰逢星期六、星期日而变更为工作日的 ,按对应工作日实施“尾号限行”。

          五、以下机动车不受上述措施限制

          (一)军车、警车、消防车、救护车和工程救险车;

          (二)公共汽车、长途客车、出租车、旅游客车、邮政专用车、运钞车,持市公安局交管局核发《公交专用车道通行证》的制式校车和交通车,持成都市“三绿工程”工作领导小组办公室、市城管局和市公安局交管局联合核发《三绿工程证》的拉运鲜活农副产品车辆;

          (三)环卫、园林、道路养护的专项作业车辆,殡仪馆的殡葬车辆;

          (四)持市城管局、市公安局交管局核发《成都市货运汽车城区道路行驶证》的车辆;

          (五)悬挂使领馆号牌车辆及经批准临时入境的车辆;

          (六)法律法规规定的其他不受行驶路线、行驶方向限制的车辆。

          六、除以上交通管理措施外,公安机关交通管理部门将根据道路交通的实际情况,适时采取调整“尾号限行”区域或时段等其他相应的临时交通管控措施,并提前向社会通告。

          七、机动车驾驶人应当遵守有关规定,服从交通警察的指挥管理。对违反本通告的,公安机关交通管理部门将依法从严处罚,并实施交通违法累积记分管理。违反车辆处罚100元3分。

          14:00 新闻发布会开始,成都市交管局局长李文胜、副局长巫文化,成都市交管局科规处、宣传处相关负责人出席发布会。

    • Delphi之通过崩溃地址找出源代码的出错行

    • 一 什么是MAP文件

            什么是 MAP 文件?简单地讲, MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方、任何时候使用,不需要有额外的程序进行支持。而且,这是唯一能找出程序崩溃的地方的救星。

            如果要查找代码行号,需要使用下面的公式做一些十六进制的减法运算:

            崩溃行偏移 = 崩溃地址(Crash Address) - 基地址(ImageBase Address) - 0x1000

            为什么要这样做呢?我们得到的崩溃地址都是由 偏移地址+ 基地址得来的,所以在计算行号的时候要把基地址减去,一般情况下,基地址的值是 0x00400000 。另外,由于一般的 PE 文件的代码段都是从 0x1000 偏移开始的,所以也必须减去 0x1000 。

      二 Delphi 下生成MAP文件的方法 

              1.   project   ->   options   ->   Linker   ->   Map   file   选择detailed.  

      三 例子

            代码

      procedure TForm1.Button1Click(Sender: TObject);
      var     
          I,   J:   Integer;
          p:   PChar;
      begin
          I   :
      =   10
      ;
          J   :
      =   0
      ;
          p   :
      =
         nil;
          p
      ^   :=   'A';   //   36行.  这里会报错

      end;

           运行时会抱错

      这里可以发现出错地址是:$00401A51

      根据:      崩溃行偏移 = 崩溃地址(Crash Address) - 基地址(ImageBase Address) - 0x1000

                                           =$00401A51 - $00400000 -$1000

                                          =$00000A51

      用记事本打开生成的MAP文件
      Line numbers 
      for
       Unit1(Unit1.pas) segment .text

          
      32 0001:00000A48    35 0001:00000A49     36 0001:00000A4E    37 0001
      :00000A54
          
      40 0001:00000A58    42 0001:00000A7D    43 0001:00000A8E    44 0001
      :00000ABD
          
      45 0001:00000AEE    49 0001:00000AF8    50 0001:00000B10    52 0001
      :00000B44
          
      52 0001
      :00000B4B

      那么,通过在MAP文件里查找小于或等于$00000A51的最大值就是,我们要得到的崩溃行偏移.

      这样得到出错行在, Unit1单元的36行.  正好是这行:   p^   :=   'A';   //   36行.  

    • 关于多对多关系数据的比较算法

    • 昨天搞了一个小软件,主要分析多对多关系的数据,刚开始一直没有想到办法,后来想到了通过数据库数据读取来循环操作,功能实现了,但是要读取数据库很多次,效率感觉不行,于是又重新想了想,用动态数组的方法来实现,不读写数据库,速度也很快,而且充分发挥了CS客户端的效率,可以交由客户端来完成一些事务处理,这个是BS无法比的,哈哈。现将demo分享一下。

      1、两张表,一个是学生信息表UserInfo,一个学科信息Project表

      UserInfo信息如下

      id,  name, myProject
      1    tom     1,2,3,4
      2    jim      1,3
      3   sam      2,4

      Project信息如下

      id,name
      1    math
      2    english
      3   chinese
      4   Japanese

       myProject字段信息记录学生的科目信息,现在是需要在listview列表里显示某个学生的科目信息,所学科目打钩。

      1、首先将所有科目信息填充到listview,第一列为科目ID

      2、取出某学生的学科信息myProject值temp

      第一种实现方法,通过数据库循环操作:

            for i:=0 to lv_hdtc.Items.Count-1 do
            begin
                   //通过数据循环操作获取相关信息
                  mysql:='select id from Project  where id in ('+temp+')';
                  with data do
                  begin
                        qry_temp.Close;
                        qry_temp.SQL.Clear;
                        qry_temp.SQL.Add(mysql);
                        qry_temp.Open;
                        for j:=0 to qry_temp.RecordCount-1 do
                        begin
                              if Trim(qry_temp.fieldbyname('id').AsString)=lvtxt then
                              lv_hdtc.Items.Item[i].Checked:=True;

                              qry_temp.FindNext;
                        end;
                  end;
                             
            end;

      第二种实现方法,使用动态数组:

          //mytc: array of string;
           i:=0;
           SetLength(mytc,Length(temp));
           while True do
           begin
                   if Pos(',',temp)>0 then
                   begin
                        SplitString(temp,',',l,r);
                        mytc[i]:=Trim(l);
                        temp:=Trim(r);
                        i:=i+1;
                   end
                   else
                   begin
                       if i=0 then
                       mytc[0]:=Trim(temp)
                       else
                       mytc[i]:=Trim(temp);
                      
                       Break;
                   end;
           end;


            for i:=0 to lv_hdtc.Items.Count-1 do
            begin
                  //通过本地数组格式化进行操作
                  lvtxt:=Trim(lv_hdtc.Items.Item[i].Caption);

                  for j:=0 to Length(mytc)-1 do
                  begin
                        if Trim(mytc[j])=lvtxt then
                        lv_hdtc.Items.Item[i].Checked:=True;
                  end;
                
            end;

       

    • LBE小组发布三星S4机型一键ROOT工具

    • BE小组 S4机型ROOT:三星S4 15个机型,含GT-I9508 移动版、GT-I9502 联通版、SCH-I959 电信版,一键线刷方案!实测100%ROOT成功率!无需三方Recovery!【利用三星特殊挖煤升级模式】,【采取与三星官方固件相同协议】真正实现【无需手动刷入recovery】就USB连上手机直接root!

      本方案并非采用三星漏洞,所以该ROOT方案不会因三星官方升级而失效。
      联通 9502/电信959/移动9508均支持!
      共计支持15个S4机型,仅日本区1个机型不支持

      直接线刷,无需SD卡支持,无需安装额外补丁,无需Android的exploit,无需第三方recovery!

      网盘链接:下载

      支持机型列表: 
      GT-I9500 
      GT-I9502 联通版 
      GT-I9505 
      GT-I9508 移动版
      SCH-I545
      SCH-I959 电信版
      SCH-R970
      SGH-I337

      唯一不支持机型:
      SGH-N045(SC-04E)  japan

      刷机教程:
      1、 下载安装LBE 一键ROOT安装包
      2、 USB连接手机
      【S4的手机驱动链接需要打开USB调试选项 具体请参见:http://tieba.baidu.com/p/2297561483
      3、 点击一键ROOT
      4、 等待结果,成功!就是这么简单!

      刷机提示:
      1、正常情况:手机会进入到挖煤模式,过几分钟后会自动重启到正常界面。
      部分手机可能还需要一次重启

      2、强烈建议不要运行VMWARE虚拟机,会对三星手机的官方驱动有干扰造成无法正常识别手机

      3、不支持虚拟机下的Windows系统

      4、 由于本工具会替换系统recovery,安装LBE定制的CWM Recovery

      5、 必须正确安装三星官方驱动!如果未安装三星官方驱动,该工具会自己从云端下载三星官方驱动安装。

      6、 工具内测阶段,云端支持的机型列表以Galaxy S4, Galaxy S3, Galaxy Note2三系列为主,其他机型会逐渐在云端更新。

      ROOT有风险,刷机需谨慎。LBE开发小组不对因刷机造成的问题负责,如果您使用则默认你认可这一点

    • 四川艾普网络冲刺IPO

    •   进入6月之后,随着新股发行体制改革的启动,所有人都在等着IPO 开闸。而IPO的前端审批依然在正常进行。本月以来,已有11家公司新进入初审名单,其中四川省艾普网络股份有限公司也在上周成为了冲刺IPO大军中的一员,准备在创业板上市。

      曾获九鼎投资入股
        对于艾普网络这家公司,成都市民是十分熟悉的。而公司上市的愿景,也由来已久。有知情人士透露,在2012年艾普宽带股东签署的股权转让协议中,曾明确表示公司将在2014年12月31日前在A股市场上市。
        艾普网络成立于2000年4月,注册地为成都市高新区,注册资本9900万股,资产超过5个亿。
        艾普网络成立时的原始股东有6个,分别是现任董事长是李嘉的成都华电电子技术研究所和成都华电科技有限公司,四川省电子工业厅后勤综合服务中心、以及三位自然人。
        之后艾普网络的股权多番变动,在2011年,公司还引入了九鼎投资。有资料显示,苏州天微钟山九鼎投资中心以货币方式认缴515.122万元,占股10.56%,实际出资2552万元;厦门鸿泰九鼎股权投资认缴297.9512万元,占股6.11%;实际出资1476.1万元;北京含光九鼎投资中心认缴64.9756万元,占股1.33%,实际出资321.9万元。

      6月IPO新增11家
        与艾普网络一样,上周IPO审核新增的另外5家公司,都是准备在创业板上市的。值得注意的是,根据IPO申报表,上述6家企业“是否提交财务自查报告”一栏中均显示为“不适用”。
        而算上此前进入审核名单的公司,6月以来,已经有11家公司的首次新股发行申请被证监会受理。其中创业板有7家公司,沪深主板、中小板有4家。
        根据证监会的数据统计显示,截至6月13日,沪深两市共有IPO在审企业为677家,其中创业板为233家;IPO终止审查企业为269家,其中创业板为134家。华西都市报记者张锐睿

      文章来源:http://www.wccdaily.com.cn/shtml/hxdsb/20130618/112648.shtml

    • Delphi的DateToStr StrToDate格式灵活用法

    • procedure TForm1.Button1Click(Sender: TObject);
      var
         ADate: String;
         ADate2: TDate;
         AFormat, AFormat2: TFormatSettings;
      begin
         AFormat.ShortDateFormat := 'ee/mm/dd';
         AFormat.DateSeparator := '/';
         ADate := '94/05/15';
         ADate2 := StrToDate( ADate, AFormat );
         AFormat2.ShortDateFormat := 'yyyy/mm/dd';
         AFormat2.DateSeparator := '/';
         ShowMessage( DateToStr( StrToDate( ADate, AFormat ), AFormat2 ) );
      end;
      其中,最重要的就是TFormatSettings这个类.
      可以设置AFormat.shortDateFormat:='yyyymmdd'
      DateToStr(ADate,Aformat)得到字符串就是类似20080409的字符了.
      如果是'yymmdd'则为080409的字符

    • 锻炼身体增强体质

    • 一个月前腰痛,去医院检查发现有肾结石,于是每天喝水喝水再喝水,跳跳跳跳。。。。

      走楼梯下楼都走了好多次了,从24楼下楼,就当消防演习吧。喝了不少金钱草水,其中又痛了两次,去六医院输了三天液,后来又输了两次,还打了一针杜冷丁,半夜1点痛的不行去医院打针,我靠。

      从肾结石变成输尿管结石,最后一次检查在输尿管下地段,前两天解小便的时候,卡了一下,好像排出来了,但是又没有看到东西,这两天还有点腰痛,估计还没出来,妈妈的。。。

      最近这10年,基本上很少锻炼,以前上学的时候还要去跑一下,跳一下,上班以后除了上班还是上班,基本上都坐在电脑旁边的,基本上不运动,现在长了个结石就是不运动的后果呀。。。

      所以现在每天晚上都要去跑一下步,跳一下,每天4公里,半小时,跑一会累了就走一段路,差不多每天都要出两次汗,才跑一个月,好像已经减了5斤了,坚持。。。。我的目标是130斤,再减20斤就可以了

      最后一句:锻炼身体,增强体质。

    • 中国盗版网站站长李翔在美被判入狱12年

    • 中国盗版网站Crack99.com的站长李翔因为非法出售市场价值超过1亿美元(但实际销售额只有几万美元)的工业软件,在美被判入狱12年。李翔本人不是黑客,他只是将别人破解的软件重新打包,借助电子邮件和文件共享网站出售给世界各地的买家。他其实是互联网时代的盗版光盘小贩,只是盗版的是工业设计软件、建模软件和模拟软件。

      Crack99.com出售了550种左右的软件,许多买家都是美国人,美国海关执法局特工以买家的身份于2011年 在美国管辖区塞班岛诱捕了试图开辟国际盗版市场的李翔。李翔的律师表示12年徒刑难以接受,他是第一位因为在中国盗版软件而在美国逮捕和起诉的中国公民。

      他是第一位因为在中国盗版软件而在美国逮捕和起诉的中国公民。李翔来自中国成都,于2011年6月在太平洋塞班岛被美国国土安全部诱捕,整个诱捕的过程颇具戏剧性。

      诱捕过程:2010年初,美国国土安全部雇佣的代理人向李翔购买了5个软件产品,总共价值15万美元,但李翔只收取几千美元。通过多次交易混熟之后,代理人告诉李翔希望在美国向小企业转售破解软件。李翔同意了,他们安排在塞班岛见面,李翔随身带了十几张盗版软件光盘,被当场逮捕。

    • 安装补丁KB2839229导致蓝屏

    • 微软昨日向全球用户推送了6月安全补丁,共5个,其中MS13-048用于修复一个秘密报告的Windows内核中存在的可能导致信息泄露的漏洞,编号为KB2839229,该补丁适用于Windows XP SP3、Windows Server 2003 SP2、Vista SP2、32位Windows Server 2008 SP2、32位Windows 7 SP1、32位Windows 8。

      不过,我们建议大家暂且不要安装该补丁。今天,不少国内用户在各论坛反映,安装KB2839229并重启系统后,机器出现蓝屏,无法访问系统。目前反馈该问题的大都为XP和Windows 7用户。如果你已经安装过该补丁,并且也不幸遇到了蓝屏,可以尝试在安全模式(开机时按F8)下卸载该补丁,系统就会恢复正常。

      如果你已经安装过该补丁,尚未重启,为避免可能遭遇蓝屏问题,可以到控制面板-卸载程序-查看已安装的更新,在列表中选中KB2839229,右键点击,然后卸载即可。

Powered by Typecho)))   ICP:蜀ICP备05009250号