• 今天研究一个自动生成bootstrap网页的程序,从原来的软件中复制TChromiumWindow到新Form中,相关附件文件也复制到相应目录,但却不显示网页,奇怪了! 仔细翻看了以前的代码, 主要有以下几点: 1.在工程文件(.dpr)在uses中增加uCEFApplication 2.改造 工程文件(.dpr) 中begin…end.中的部分改成如下: begin ...

    技术文档1,083次阅读抢沙发
  • 提取网址: function qianurl(URL: String): String; begin if Pos('http://', URL) > 0 then Delete(Url, 1, 7); Result := Copy(Url, 1, Pos('/', Url) - 1); if Pos('https://', URL) > 0 then Delete(Url, 1, 8); Result := Copy(Url, 1, Pos('/', Url) - 1); if Result = '' then Result ...

    技术文档540次阅读抢沙发
  • 最近做一个程序,用到idhttp.自认为代码没问题,可当idhttp get远程文件下载时就报”Could not load SSL library”! 看到ssl,突然想到是https的网站资源.访问的站如果是https,那么资源是加密的!既然加密了就要解密,所以查了下资料.需要ssl控件,同时需要两个dll ssl库. ssl控件:IdSSLIOHandlerSocketOpenSSL1 dl ...

    技术文档703次阅读抢沙发
  • TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.Inde ...

    技术文档698次阅读抢沙发
  • 网上找半天没找到,网址盲提取。。 高手路过,可能效率不高,但够用了 function tiyu(URL: String): String; var i,y:integer; tmp:tstringlist; yu :Array Of string; begin SetLength(yu, 260) ; yu[0]:='com'; yu[1]:='net'; yu[2]:='ru'; yu[3]:='org'; yu[4]:='de'; yu[5]:='cn'; ...

    技术文档488次阅读抢沙发
  • 您有没有这种习惯,睡觉前拿出手机上上网,刷刷朋友圈,等再看时间时已经是凌晨一两点了。最近的一项研究表明,睡前使用手机会影响睡眠质量。来看报导。 根据休斯顿大学视光学院的最新调查,手机中散射出的蓝光会降低睡眠质量,特别是对于10岁以下的孩子。 研究发现这种蓝光会抑制体内褪黑激素的分泌,而这种激素正是 ...

    生活杂谈529次阅读抢沙发
  • 01、人在的时候,以为来日方长,还有很多机会见面,其实人生是减法,见一面,少一面。 02、人穷的时候,要少在家里,多在外面。富有的时候,要多在家里,少在外面。这是生活的艺术。 03、不要在心情糟烂差的时候,用决绝的话伤害爱你的人。 04、别用耳朵去了解人。 05、穷的时候一定要大方,富的时候,就不要摆阔了。生 ...

    生活杂谈719次阅读抢沙发