Delphi
文章平均质量分 61
JJNW
这个作者很懒,什么都没留下…
展开
-
通过域名获得IP
use winsock;数据结构定义:(msdn 2004Jan)typedef struct hostent { char FAR* h_name;//域名 char FAR FAR** h_aliases;//别名 short h_addrtype;//地址类型,tcp、udp是2 short h_length;//地址长度,ip是4,即4个byte型数字 char FAR FA原创 2005-03-26 19:41:00 · 1082 阅读 · 0 评论 -
画渐变函数
代码procedure ColorFul(_Sender:TCanvas;_C1,_C2:TColor;_Width,_Height:Integer;_Mode:Integer);var i:Integer;Rct:TRect;R1,G1,B1,R2,G2,B2,R3,G3,B3:Byte;begin with TCanvas(_Sender) do begin R1:=Byte(_C1)原创 2005-03-28 08:35:00 · 1253 阅读 · 0 评论 -
一个Button控件
unit MyButton;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyButton = class(TButton) private FCanvas:TCanvas; drawColor:TColor; F原创 2005-09-13 09:00:00 · 1251 阅读 · 0 评论