解决方案 »
- 关于服务器列表的问题
- 怎样判断adoconnection的连接是否正常
- DELPHI MDI子窗口怪问题
- delphi中是否有类似vb中的那个split的函数?
- 寻求高手解决D7在WinXP SP2中的问题!
- delphi7 + sql server2000 就是想向数据表中插入记录! 分不够再给.
- 有人吗? 我要把richedit的数据保存到数据库,怎么做,各位行行好
- ■■■Flash.ocx的问题■■■
- tquery问题
- 想用delphi加SQL2005编写西门子PLC上位机程序用prodave60
- Application->HandleMessage()有时需要鼠标点一下才执行
- 一條SQL語句,在SQL Query Analyzer中執行正確,但在DELPHI中卻完全不同的結果,為何?
function GetIP: string;
var
xml : OleVariant;
r:string;
p1,p2 : Integer;
begin
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.net.cn/static/customercare/yourIP.asp', False);
xml.Send;
r := xml.responseText;
p1:=Pos('<h2>',r); // 找到 h2 标签
p2:=Pos('</h2>',r); // 找到 h2 结束标签
Result := Copy(r, p1+4, p2-p1-4);
end;