用户登录
用户注册

Delphi使用OpenGL2d绘图之画图片Bmp的方法

这篇文章主要介绍了Delphi使用OpenGL2d绘图之画图片Bmp的方法,需要的朋友可以参考下
  一、前言:
  对于Delphi来说,要画图片要先处理一下,需要引用别的单元,而Delphi中没带,需要另外下载Gl.pas。网上常见自带的OpenGl单元封装的是1.0版的,有此函数未声明。网上可以找到Gl.pas单元。另外需要一个Glaux.pas单元与glaux.dll,是辅助库。在本文最后会提供下载。
  二、实现流程:
  绘画图片需要以下几个流程。Window本身的绘图是以位图为基础的,png,jpg等,绘画时,可以转为bmp再画。
  1.加载bmp图片:使用auxDIBImageLoadA或其他函数
  2.转换为纹理:glGenTextures->glBindTexture->glTexImage2D,glTexParameteri用于设置相关参数
  3.绘制纹理:glBind
  • 0
  • 0
  • 0
  • 0
  • 0

DELPHI7.0 获取硬盘、CPU、网卡序列号的代码

DELPHI7.0获取硬盘、CPU、网卡序列号的代码,使用DELPHI编程的朋友可以参考下。
复制代码代码如下:
//引用及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;
L
  • 0
  • 0
  • 0
  • 0
  • 0

c# 多线程编程 入门篇

多线程应该是编程工作者的基础技能,但这个基础对我来讲的确有点难(起码昨天以前是这样).开始本应该是一篇洋洋洒洒的文字,不过我还是提倡先做起来,在尝试中去理解.
  
先试试这个:procedureTForm1.Button1Click(Sender:TObject);
var
i:Integer;
begin
fori:=0</spa
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现读取系统时间与日期完整实例

这篇文章主要介绍了Delphi实现读取系统时间与日期完整实例,需要的朋友可以参考下
  本文讲述了Delphi读取系统时间与日期的实现方法,首先设置各个控件用于显示时间、读取时间与设置时间。再添加如下代码:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Memo1:TMemo;Button2:TButton;procedureButton1Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureButton2Click(Sende
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi中判断文件是否为文本文件的函数

在用Delphi编程处理文本文件的时候,如果要装载的文件比较大,你可能会想在文件装载过程中提供一个装载进度的提示--那么你就必需自己编写直接通过文件打开/读取函数来装载文件内容的函数。在自己编写文本文件读取函数的时候,你首先会遇到的第一个问题就是:对于给定的一个文件名,怎么知道它所代表磁盘文件的确是文本文件?这里有一个很简单的方法:把给定的那个文件看作是无类型的二进制文件,然后顺序地读出这个文件的每一个字节,如果文件里有一个字节的值等于0,那么这个文件就不是文本文件;反之,如果这个文件中没有一个字节的值是0的话,就可以判定这个文件是文本文件了。这是原理,下面看看在Delphi 中怎样编程来实现它--
复制代码代码如下:
function IsTextFile(FileName:string):boolean; 
var 
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi2007编译的程序在Win7下图标模糊的解决办法

这篇文章主要介绍了Delphi2007编译的程序在Win7下图标模糊的解决办法,需要的朋友可以参考下

使用Delphi2007编译GUI程序的时候会发现在Win7的状态栏中显示的程序图标非常模糊,如果原始的图标清晰度怎么样。造成这样结果的原因是因为Delphi2007生成的icon图标只符合XP等系统的要求,没有对Win7进行优化处理。网上有很多处理的方式,后来找到一个最简单有效的方法,就是只设置项目的图标而不要设置Form窗口的图标。

参考资料:

Blurred Delphi Form Icon in Windows 7 Taskbar
Delphi form icons are blurry on Windows 7's taskbar (with MainFormOnTaskbar enabled)

  • 0
  • 0
  • 0
  • 0
  • 0

delphi 正弦曲线图

在Delphi中没有直接正弦曲线的函数。但是在科学研究中,正弦曲线的应用是非常广泛的,本实例介绍如何绘制正弦曲线。本实例要在窗体上直接绘制正弦曲线,为了防止窗口切换的过程中会输出不完整的图形,因此绘制图形的关键代码都放在了窗体的OnPaint过程中,代码如下:
procedure TForm1.FormPaint(Sender: TObject);
var
x: Integer;
y,a: Double;
begin
Canvas.Pen.Width:=3;
Canvas.MoveTo(0,Trunc(self.ClientHeight/2));
for x := 0 to self.ClientWidth do
begin
a := (x/self.ClientWidth) * 2 *
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现判断网址是否存在及是否可以打开的方法

这篇文章主要介绍了Delphi实现判断网址是否存在及是否可以打开的方法,需要的朋友可以参考下
  本例所述Delphi程序用于检测网址是否为404,也就是检测网址是否存在,或是否可以打开,针对不同的检查方法,会返回不同的结果。
  程序主要代码如下:
unitaddress;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,Psock,NMHttp,StdCtrls,ComCtrls;typeTForm1=class(TForm)Label1:TLabel;Edit1:TEdit;Button1:TButton;NMHTTP1:TNMHTTP;StatusBar1:TStatusBar;procedureBut
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi下OpenGL2d绘图之初始化流程详解

这篇文章主要介绍了Delphi下OpenGL2d绘图之初始化流程详解,对于OpenGL的总体了解很有帮助,需要的朋友可以参考下
  一、前言:
  Delphi默认支持OpenGl,可以使用usesOpenGL单元进行引用,之后就可以使用OpenGL的函数。OpenGl是跨平台的,而且Windows很早就支持并集成在系统中,存在于system32中的opengl32.dll,不需要再额外进行安装。虽然windows本身有d3d,但是其能力有限,相关学习资料页相对较少。
  通常OpenGL仅仅支持以下几种基本几何图形:点,线和多边形。没有表面或者更高级的图形(比如球状图形)能被作为基本图形元素绘制。但是它们能够用多边形来完美的模仿出来。随意看看现代3D游戏,你会发现它们几乎完全是由三角形建立的。因此,我们不会被此限制所约束。
  二、初始化
  在使用OpenGL之前,需要先进行一些相关的参数设置。一般流程
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi中设置条件断点的方法讲解

这篇文章主要介绍了Delphi中设置条件断点的方法,有需要的朋友可以参考一下
  写了这么长时间的代码,一直认为调试程序比写程序要重要,上次有人问俺,如何调试一个循环中某个循环条件位置下断点。本来想来在Delphi的断点设置中应该是有一个类似条件断点的东西的,不过我也一直不知道怎么设置这个条件断点,所以当时给他们的说法是在那个循环中,加上一个条件判断,写上一个Showmessage之类的弹窗。然后弹窗之后下断点,这不外乎是一种方法,而且还是一种很SB的方法。直到今天偶然查看到Delphi的调试菜单,愕然发现,原来Delphi是可以设置条件断点的。这货在view->debugwindows->BreakPoints,快捷键也就是Ctrl+Alt+B,然后显示如下
  在这个断点列表中,选择我们要设置条件的断点,其中的属性Condition就是用来设置条件断点
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi Command模式

最近学习模式入迷,所以就想写一篇关于模式的文章,这篇文章是<<Java与模式>>(阎宏著)里的一个例子,我把它改成Delphi的.第一次写东西,有不足之处希望大家可以谅解.
这个例子还是比较好理解的, 所以只给出代码.
unit pattern;
interface
uses Dialogs;
type
  TAudioPlayer = class;
  TCommand = class
  public
  procedure execute; virtual; abstract;
  end;
  TPlayCommand = class(TCommand)
  pr
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi建立、读取、存贮INI文件的方法《一》

内容:INI文件在系统配置及应用程序参数保存与设置方面,具有很重要的作用,所以可视化的编程一族,如VB、VC、VFP、Delphi等都提供了读写INI文件的方法,其中Delphi中操作INI文件,最为简洁,这是因为Delphi6.0提供了一个TInifile类,使我们可以非常灵活的处理INI文件。一、有必要了解INI文件的结构:
;注释
[小节名]
关键字=值
...
INI文件允许有多个小节,每个小节又允许有多个关键字, “=”后面是该关键字的值。 
值的类型有三种:字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号,布尔真值用1表示,布尔假值用0表示。 
注释以分号“;”开头。 
二、定义
1、在Interface的Uses节增加IniFiles; 
2、在Var变量定义部分增加一行: 
myinifile:Tinifile;
然后,就可以对变量myinif
  • 0
  • 0
  • 0
  • 0
  • 0

delphi建立、读取、存贮INI文件的方法《二》

内容:要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下方法给大家参考:
从.INI文件中获取字符串
var
strResult:pchar;
begin
GetPrivateProfileString(
´windows´, // []中标题的名字
´NullPort´, // =号前的名字
´NIL´, // 如果没有找到字符串时,返回的默认值
strResult, //存放取得字符
100, //取得字符的允许最大长度
´c:\forwin95\win.ini´ // 调用的文件名
);
edit1.text:=strResult; //显示取得字符串
从.INI文件中获取整数
edit1.text:=int
  • 0
  • 0
  • 0
  • 0
  • 0

delphi中一个值得大家来考虑的DLL问题

在MDI窗体类型的编程中,主窗体(fsMDIForm)怎样调用子窗体(fsMDIChild,此子窗体为DLL)。
以下是我的原代码:
==========================================================================================
DPR  单元代码
program Mdiform;
uses
  Forms,
  UMdiform in ´UMdiform.pas´ {Mainform},
  UDM in ´UDM.pas´ {GlobalDM: TDataModule},
  UFun in ´UFun.pas´;
{$R *.re
  • 0
  • 0
  • 0
  • 0
  • 0

delphi建立、读取、存贮INI文件的方法《三》

控制INI文件几法要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下方法给大家参考:从.INI文件中获取字符串
var
strResult:pchar;
begin
GetPrivateProfileString(
´windows´, // []中标题的名字
´NullPort´, // =号前的名字
´NIL´, // 如果没有找到字符串时,返回的默认值
strResult, //存放取得字符
100, //取得字符的允许最大长度
´c:\forwin95\win.ini´ // 调用的文件名
);
edit1.text:=strResult; //显示取得字符串
  • 0
  • 0
  • 0
  • 0
  • 0

在Delphi实现在数据库中存取图像的图文演示无错

最近打算学习Delphi实现在数据库中存取图像,网上的好多Delphi实现在数据库中存取图像都是错误的,所以我把图片给弄好了。本实例演示如何在数据库中存取图像文件。向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件,设计完成的主界面如图1所示。图1主界面本系统中需要设计一个新的基于Paradox7的数据库Image.db,图2为设计完成的Image.db数据库。<i
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现毫秒级别的倒计时实例代码

这篇文章主要介绍了Delphi实现毫秒级别的倒计时实例代码,需要的朋友可以参考下
  本文以实例简述了Delphi实现毫秒级别倒计时的方法。一般来说可以获得系统的高性能频率计数器在一毫秒内的震动次数,如果时钟震动次数超过10毫秒的次数则刷新edit3的显示,显示从开始记数到记数实际经过的时间,具体实现代码如下:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,mmsystem;typeTForm1=class(TForm)Edit1:TEdit;Edit2:TEdit;Edit3:TEdit;Button1:TBut
  • 0
  • 0
  • 0
  • 0
  • 0

截取指定符号之间的字符串(随机读取)delphi实例代码

这篇文章主要介绍了截取指定符号之间的字符串(随机读取)delphi实例代码,有需要的朋友可以参考一下
  
复制代码代码如下:
unitUnit1;
  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:TButton;<b
  • 0
  • 0
  • 0
  • 0
  • 0

delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态

这篇文章主要介绍了delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态的解决方法 delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态。.

出现以上错误,请检查表的时间字段是否可以为NULL,不能为NULL可能出现这个问题,或其他不能为空的字段造成的。

Access数据库,文本类型字段,存储字符段超出该字段定义的最大长度报此错误

一般都是数据库字段类型设置不当引起,大家可以检查下。

  • 0
  • 0
  • 0
  • 0
  • 0
上一页  6  

分享至

长按复制下方链接,去粘贴给好友吧:
软件
前端设计
程序设计
Java相关