当前位置: 首页 > delphi
  • delphi 提取网页及地址相关函数

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

    技术文档679次阅读抢沙发
  • delphi idhttp Could not load SSL library报错

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

    技术文档1,145次阅读抢沙发
  • delphi tstringlist 用法

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

    技术文档792次阅读抢沙发
  • delphi xe 网址提取根域名

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

    技术文档640次阅读抢沙发
  • delphi WebBrowser对IE浏览器的各种控制

    试着改变参数会得到其他一些功能: WebBrowser.ExecWB(1,1) 打开 WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口,并打开一个新窗口 WebBrowser.ExecWB(4,1) 保存网页 WebBrowser.ExecWB(6,1) 打印 WebBrowser.ExecWB(7,1) 打印预览 WebBrowser.ExecWB(8,1) 打印页面设置 WebBrowser.ExecWB(10,1) 查看页面属性 WebBrow ...

    乱七八糟918次阅读抢沙发
  • delphi 字符复制粘贴

    uses Clipbrd; 把数据复制到粘贴板: clipboard.AsText:='11111111'; 把复制的数据写入变量: str:=clipboard.AsText; 把数据模拟粘贴: keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); //ctrl+v keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0); keybd_event(Ord('V'), Ma ...

    技术文档626次阅读抢沙发
  • delphi webbrowser 地址定位点击超链接

    有时候需要模拟点击js链接,但又无name无id该怎么办呢! 用下面代码可以达到意想不到的效果,循环检测链接地址,地址匹配则点击! procedure TForm1.Button1Click(Sender: TObject); var I: Integer; Document: IHTMLDocument2; Element: IHTMLElement; Anchors: IHTMLElementCollection; sLink: stri ...

    技术文档1,050次阅读抢沙发
  • delphi WebBrowser文字判断来点击链接

    uses ActiveX, ComObj, MSHTML; 根据连接文字点击连接- 一般情况下的连接 Procedure HTMLClinkByText(text:string;Wbr:TWebBrowser); var doc:IHTMLDocument2; len,I:integer; item:OleVariant; all:IHTMLElementCollection; begin doc:=Wbr.Document as IHTMLDocument2; all:=d ...

    技术文档771次阅读抢沙发
  • delphi 检测图片格式类型

    有时候jpg后缀图片其实是png格式的图片。这样我们就需要将真实的格式还原出来; procedure TForm1.Button6Click(Sender: TObject); var //声明变量 MyImage:TMemoryStream; //内存流对象 Buffer:Word; begin if strtoint(edit3.Text)<strtoint(edit4.Text) then //OpenDialog1是一个文件打开 ...

    技术文档520次阅读抢沙发