烟花楼博客

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

提取网址: 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 ...

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

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 ...

网上找半天没找到，网址盲提取。。 高手路过，可能效率不高，但够用了 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'; ...

取出网址文件名: function GetURLFileName(aURL: string): string; var i: integer; s: string; begin //返回下载地址的文件名 s := aURL; i := Pos('/', s); while i <> 0 do //去掉"/"前面的内容剩下的就是文件名了 begin Delete(s, 1, i); i := Pos('/', s); e ...