- 博客(7)
- 收藏
- 关注
RSS订阅原创 使用cnvcl中的TCnIp提取IP段
var IP:TCnIp; i:Integer; CurIP:string;begin IP := TCnIp.Create(nil); IP.IPAddress := '192.168.0.1'; CurIP := IP.IPAddress; while CurIP '192.168.255.255' do begin mmo1.Lines.Add( CurIP ); CurIP :=
2011-03-29 05:58:00
909
原创 在socket中用http代理访问网页的关键问题
<br />以前关注过在socket使用http代理访问网页的问题，原理很简单，就是非代理情况下connect的是目标网页的IP和端口，而使用代理则connect代理IP和端口，连接成功后就直接send数据了。<br /> <br />原理清楚，但一直没应用过，今天正好需要就测试了一下，结果在http代理可用，connect正常的情况下，send数据后总是返回http/1.1 400。最后在一个帖子中找到了原因所在，其实使用http代理来发送GET或POST，其包的格式与非代理的GET或POST有一些区别，
2011-03-29 05:35:00
1525
原创 在Delphi中操作Mysql
<br />以前在VC中使用过MySQL，当时是找的一个现成的C++ MySQL类。最近在Delphi中又需要操作Mysql，最初找了个封闭过的类，但已经是七八年以前的程序了，我机器上装的是MySQl5.1，使用了5.1中的libmySQL.dll（2.25MB）。连接正常、查询一个字段正常，但查询两个字段就只能获取第一个字段的值，读第二个字段的值就程序异常。<br /> <br />没办法，又重新找了个接口，不过没有封闭，只有自己慢慢学着调用了。<br /> <br />http://www.audio-
2011-03-29 00:53:00
1766
原创 WinAPI: IsIconic、IsZoomed - 分别判断窗口是否已最小化、最大化
//声明:<br />IsIconic(<br /> hWnd: HWND {窗口句柄}<br />): BOOL;<br /><br />IsZoomed(<br /> hWnd: HWND {窗口句柄}<br />): BOOL;<br />
2011-03-27 21:40:00
1671
1
原创 在进行文字自绘时，自动换行打印
<br />DrawText( Canvas.Handle, PChar( s ), Length( s ), rect, DT_WORDBREAK );
2011-03-24 22:32:00
808
原创 Delphi中WebBrowser判断页面及JS是否加载完成
<br />时间很完了，但问题总算解决了。<br /> <br />在一个程序中需要判断WebBrowser打开的页面是否加载完成，通常的做完是使用Busy属性，代码如下：<br /> <br />while WebBrowser1.Busy do<br /> Application.ProcessMessages;<br /> <br />这个访问对于访问纯Html的页面时是一点儿问题都没有的，但有些页面在设计时为了不影响打开速度，是让html代码优先显示，然后再运行js代码或框架代码，由于我要访问
2011-03-19 04:35:00
7151
原创 idhttp用代理IP获取网页源码
<br />procedure TForm1.btn1Click(Sender: TObject);<br />var<br /> Http:TIdHTTP;<br />begin<br /> Http := TIdHTTP.Create(nil);<br /> Http.ProxyParams.ProxyServer := '91.211.141.249'; //代理IP<br /> Http.ProxyParams.ProxyPort := 8080;<b
2011-03-18 13:52:00
2300
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人