- 博客(4)
- 收藏
- 关注
RSS订阅原创 Bresenham高效画线算法
Bresenham高效画线算法 画线的算法不少，但要作到高速、简单并不容易。斜率相乘法是最简单的方法之一，但计算每个点均要花费不少时间用于乘、除法运算；下面介绍的是Bresenhams高效画线算法，对每个点的坐标计算只要加、减法就能完成。 简化算法用伪Pascal语言描述如下：procedure DrawLine(x1, y1, x2, y2: Integer);var x,
2001-02-03 09:14:00
1357
原创 Delphi的嵌入式asm一例: Byte快速转换为16进制字符串
上次Delphi做的asm内嵌过程／函数格式是：procedure ProcName(...);asm ...end; 对这种过程／函数，整个由asm写成。内嵌asm还有一种常见用法，就是在程序局部调用asm：function ByteToHex(Src: Byte): String;begin SetLength(Result, 2); asm MOV EDI,
2000-12-29 17:46:00
3231
原创 Delphi嵌入式汇编一例
用delphi写的程序，把x指针指向的4个字节次序颠倒过来：function toulong(x: pchar): longword; begin result := (longword(x^) shl 24) or (longword((x + 1)^) shl 16) or (longword((x + 2)^) shl 8) or
2000-12-28 18:04:00
1256
原创 网络包探测软件
网络包探测软件 DSoft Sniffer 2.9 是不错的Shareware，但有时间限制，如何去除呢？以下是Delphi5写的核心部分。var r: TRegistry; t: DWORD;begin r := TRegistry.Create; try r.RootKey := HKEY_LOCAL_MACHINE; r.OpenKey(/SOFTWARE/Dsof
2000-12-28 17:50:00
877
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人