一、换空间换域名 1、如果是上述问题,打包备份旧空间ftp内的所有文件,进旧站数据库phpmyadmin里导出你网站的数据库sql文件; 2、将备份的ftp所有文件上传至新的空间FTP内,将备份的sql上传到新空间的数据库phpmyadmin内; 3、打开新空间ftp的网站根目录找到wp-config.php文件,编辑它(php文件不要用txt去编辑),进 ...
-
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 ...
-
delphi webbrowser 地址定位点击超链接
有时候需要模拟点击js链接,但又无name无id该怎么办呢! 用下面代码可以达到意想不到的效果,循环检测链接地址,地址匹配则点击! procedure TForm1.Button1Click(Sender: TObject); var I: Integer; Document: IHTMLDocument2; Element: IHTMLElement; Anchors: IHTMLElementCollection; sLink: stri ...
-
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 ...
-
delphi 检测图片格式类型
有时候jpg后缀图片其实是png格式的图片。这样我们就需要将真实的格式还原出来; procedure TForm1.Button6Click(Sender: TObject); var //声明变量 MyImage:TMemoryStream; //内存流对象 Buffer:Word; begin if strtoint(edit3.Text)<strtoint(edit4.Text) then //OpenDialog1是一个文件打开 ...
-
delphi 文本内容重复行删除
将memo中重复行的数据删除,只保留一行相同数据! procedure RemoveDuplicates(const stringList : TStringList) ; var buffer: TStringList; cnt: Integer; begin stringList.Sort; buffer := TStringList.Create; try buffer.Sorted := True; buffer.Duplicates := dupIgnore; bu ...
-
linux 新硬盘分区、格式化、挂载
第一步:删除分区: fdisk /dev/sdc →进入到新添加的硬盘中 he number of cylinders for this disk is set to 10402. There is nothing wrong with that, but this is larger than 1024, and could in certain setups cause problems with: 1) software that runs at boot time (e.g., old versions of LILO) 2) bo ...
-
discuz x3.2标签伪静态教程
(一)、伪静态规则添加(nginx) rewrite ^([^\.]*)/tag.html$ $1/misc.php?mod=tag last; rewrite ^([^\.]*)/tag-([0-9]+)\.html$ $1/misc.php?mod=tag&id=$2 last; (二)、修改帖子内标签链接 template/default(模板目录)/forum/viewthread_node_body.htm 查找: <a title="$var[1]" href ...
-
Discuz 3.2设置用户组免回复可见详细教程
如果你开启了特别用户组,例如:Discuz 如何开启用户组购买。 而你又想对他进行特殊设置:VIP组免回复查看内容;那这个教程就很适合你。不妨看一下如何实现吧! 教程并不复杂,请耐心查看。 第一步:执行升级数据库 升级数据库可以用PhpMyAdmin,或者在后台 – 站长 – 数据库 – 升级等其他第三方数据 ...
-
delphi WebBrowser 提取标题和链接及图片
提取所有连接到memo1中: procedure TForm1.Button1Click(Sender: TObject); var i :Integer; begin for i := 0 to WebBrowser1.OleObject.document.links.length - 1 do memo1.Lines.Add(WebBrowser1.OleObject.document.links.item(i).href); end; 提取网页标题: procedure TForm1.Button1Click(Send ...
最活跃的读者