Delphi下OpenGL2d绘图之画点的方法
一、前言
Delphi图形的绘制可以在glBegin()、glEnd()之间完成，绘制的框架代码可以使用Delphi下OpenGL2d绘图的初始化代码，具体内容可参考本站https://www.jb51.net/article/52141.htm。修改的部份为 Draw 函数的内容。
二、画点
使用glPointSize 函数指定栅格化点的直径。默认为1.0，只在GL_POINTS下起作用，关于消锯齿等 ...
Delphi下OpenGL2d绘图之初始化流程详解
一、前言：
Delphi默认支持OpenGl，可以使用uses OpenGL单元进行引用，之后就可以使用OpenGL的函数。OpenGl是跨平台的，而且Windows很早就支持并集成在系统中，存在于system32中的opengl32.dll，不需要再额外进行安装。虽然windows本身有d3d，但是其能力有限，相关学习资料页相对较少。
通常OpenGL仅仅支持以下几种基本几何 ...
Delphi使用OpenGL2d绘图之画图片Bmp的方法
一、前言：
对于Delphi来说，要画图片要先处理一下，需要引用别的单元，而Delphi中没带，需要另外下载Gl.pas。网上常见自带的OpenGl单元封装的是1.0版的，有此函数未声明。网上可以找到Gl.pas单元。另外需要一个Glaux.pas单元与glaux.dll，是辅助库。在本文最后会提供下载。
二、实现流程：
绘画图片需要以下几个流程。Wind ...
Delphi实现判断网址是否存在及是否可以打开的方法
本例所述Delphi程序用于检测网址是否为404，也就是检测网址是否存在，或是否可以打开，针对不同的检查方法，会返回不同的结果。
程序主要代码如下：
unit address;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMHttp, StdCtrls, ComCtrls;
type
TForm1 = clas ...
Delphi中设置条件断点的方法讲解
写了这么长时间的代码，一直认为调试程序比写程序要重要，上次有人问俺，如何调试一个循环中某个循环条件位置下断点。本来想来在Delphi的断点设置中应该是有一个类似条件断点的东西的，不过我也一直不知道怎么设置这个条件断点，所以当时给他们的说法是在那个循环中，加上一个条件判断，写上一个Showmessage之类的弹窗。然 ...
截取指定符号之间的字符串(随机读取)delphi实例代码
复制代码 代码如下:unit Unit1;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type TForm1 = class(TForm) test: TMemo; Button1: TBu ...
Delphi实现树型结构具体实例
复制代码 代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB;type PNodeInfoEx = ^TNodeInfoEx; TNodeInfoEx = Packed Record NodeID : I ...
Delphi 生成excel中饼图的实例代码
复制代码 代码如下:var i,j,m,n,count1:integer; str:string; Jdate:tdatetime; channellist,potBstrtime,potEstrtime,Jchannelname:string; Rres:boolean; JSHR:double; Excelid,achart1,cell1,cell2,cell3,cell4,cellMiddle,Range1,Range2,series1:variant; ExRowsValue ...
delphi发送消息控制滚动条使用示例
1、Perform 函数 复制代码 代码如下: DBGrid1.Perform(WM_VSCROLL,SB_PAGEDOWN,0); //控制滚动条，向后翻页 DBGrid1.Perform(WM_VSCROLL,SB_PAGEUP,0); //控制滚动条，向前翻页 2、SendMessage 函数 复制代码 代码如下: SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0); SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_ ...
delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)
delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下 复制代码 代码如下: procedure TMainFrm.FormCreate(Sender: TObject); begin with MainFrm do begin { Position form } Top := 0 ; Left := 0 ; { Go full screen} BorderStyle := bsNone ; WindowState := wsmaximized; ClientWidth ...
delphi简单判断程序30秒没有键盘和鼠标动作示例
以下为原代码： (这里给timer设置了1000ms)的参数，表示30秒的间隔！！ 复制代码 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Timer1: TTimer; procedur ...
delphi设置开机自动启动函数具体实现
有些程序要设置为开机启动，所以自己写了个函数方便以后使用，供大家参考 复制代码 代码如下: procedure TMainForm.SetAutoRun(ok: boolean); var Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg begin Reg:=TRegistry.Create; try //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHI ...
delphi中exit,abort,break,continue的区别介绍
delphi中表示跳出的有break，continue, exit，abort, halt, runerror。 1、break 强制退出循环（只能放在循环中），用于从For语句，while语句或repeat语句中强制退出。 2、continue 用于从For语句，while语句或repeat语句强行结束本次称称循环，并开始下一次循环。 3、exit 用于从当前代码块中退出。若该代码为主程序，则终 ...
Delphi隐藏TPageControl的标签实例介绍
下面是个简单的例子： ..... 复制代码 代码如下: begin //先屏蔽掉所有标签 for i := 0 to PageControl.PageCount - 1 do PageControl.Pages.TabVisible := False;//隐藏 //再开启首先要显示的tab页，Tab_Page1:TTabSheet; PageControl.ActivePage := Tab_Page1; //这就是要控制跳转的页面 end;
...
delphi xe 可用的MD5算法
复制代码 代码如下:unit MD5;
interface
usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;
typeMD5Count = array [0 .. 1] of DWORD;MD5State = array [0 .. 3] of DWORD;MD5Block = array [0 .. 15] of DWORD;MD5CBits = array [0 .. 7] of Byte;MD5Digest = array [0 ...
Delphi书籍15本网盘下载地址整理
http://115.com/file/bh07akff#Delphi应用开发完全手册.rarhttp://115.com/file/e6rn2ett#Delphi信息系统开发实例精选.rarhttp://115.com/file/aqagbvdm#Delphi数据库系统开发完全手册.rarhttp://115.com/file/clohvfea#DELPHI数据库系统开发案例精选.rarhttp://115.com/file/clohv7gn#Delphi数据库开发实例解析.rarhttp:// ...
Delphi修改操作注册表权限的代码
需要uses jclwin32, AccCtrl; 此文件需要安装JCL 复制代码 代码如下: function AllowRegKeyForEveryone(Key: HKEY; Path: string): Boolean; var WidePath: PWideChar; Len: Integer; begin case Key of HKEY_LOCAL_MACHINE: Path := 'MACHINE\' + Path; HKEY_CURRENT_USER: Path := 'CURRENT_USER\' + Path; HKEY_CLASSES_ ...
DELPHI7.0 获取硬盘、CPU、网卡序列号的代码
复制代码 代码如下://引用及TYPE变量申明 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,nb30; {重要引用} type PASTAT = ^TASTAT; TASTAT = record adapter : TAdapterStatus; name_buf : TNameBuffer; end; TForm1 = class(TForm) Button1: TButton; Edit1: TEdit ...
c# 多线程编程 入门篇
开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解.
先试试这个:
procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to 500000 do begin Canvas.TextOut(10, 10, IntToStr(i)); end;end;
上面程序运行时, 我们的窗体基本是 "死" 的, 可以在你在程序运行期间拖 ...
Delphi中判断文件是否为文本文件的函数
在自己编写文本文件读取函数的时候，你首先会遇到的第一个问题就是：对于给定的一个文件名，怎么知道它所代表磁盘文件的确是文本文件？这里有一个很简单的方法：把给定的那个文件看作是无类型的二进制文件，然后顺序地读出这个文件的每一个字节，如果文件里有一个字节的值等于0，那么这个文件就不是文本文件；反之，如果这 ...
