delphi实现保存和读取图片的方法

2017年02月06日 112 阅读

本文实例讲述了delphi实现保存和读取图片的方法，是非常实用的技巧。分享给大家供大家参考。具体实现方法如下：首先引用jpeg1.显示图片：ifOpenPictureDialog.Execute thenbegin img1.Picture.LoadFromFile（OpenPictureDialog.FileName）; btnPicture.Text:=OpenPictureDialog.FileName;end;2.保存图片：varStream:TM...

Delphi7中群发Email邮件的方法

2017年02月06日 105 阅读

本文实例讲述了Delphi7中群发Email邮件的方法。分享给大家供大家参考。具体分析如下：这段时间需要对所有参加考试的考生将考生信息及考试信息通过电子邮件群发，经过多次调试，算是成功了，发来给大家参考一下：总的思路是：1、安装局域网版的邮件服务器，并通过设置DNS使得给服务器能给网外用户发送电邮，这方面的软件比较多，例如WinWebMail就不错，可以从官网下载；2、需要使用到的控件：Indy10.0.15,可以通过百度搜索下载；3、设置需要发送的电子邮...

delphi字符串分隔函数用法实例

2017年02月06日 64 阅读

本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下：该实例可实现根据字符串Separator的表示将字符串s分隔为若干个字符串，存入rs字符串列表中，具体代码如下：复制代码 代码如下:procedure SeparateTerms2（s:string;Separator:string;var rs:TStringList）;var AStr: string; idx: Integer; ASubStr: string;be...

delphi实现将BMP格式图形转化为JPG格式图形的方法

2017年02月06日 83 阅读

本文实例讲述了delphi实现将BMP格式图形转化为JPG格式图形的方法。分享给大家供大家参考。具体实现方法如下：复制代码 代码如下:procedure ConvertBMPtoJPG（SFileName,DFileName:string）;Var J:TJpegImage; I:TBitmap; S,D:String;begin s:=SFileName; d:=DFileName; J:=TJpegImage.Create; I:=TBitmap.Cr...

Delphi解析FTP地址的方法

2017年02月06日 62 阅读

本文实例讲述了Delphi解析FTP地址的方法。分享给大家供大家参考。具体实现方法如下：procedure TForm1.FTPAnalysis（S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList）;var i,j:integer; strAuthorization,strAddr,strDirFile:string; //授权信息begin UserName:...

Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

2017年02月06日 52 阅读

本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下：const WM_MouseEnter = $B013; WM_MouseLeave = $B014;type TfrmMain = class（TForm）.. Timer1: TTimer; procedure Timer1Timer（Sender: TObject）; protected procedure WMMouseEnter（va...

Delphi实现截屏存盘的方法

2017年02月06日 72 阅读

本文实例讲述了Delphi实现截屏存盘的方法。分享给大家供大家参考。具体分析如下：该实例可实现截取屏幕，并保存为JPEG文件格式的功能。procedure TForm1.ScreenCap（LeftPos,TopPos,RightPos,BottomPos:integer）;var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; Bitmap:TBitmap; MyJpeg: T...

Delphi基本图像处理方法汇总

2017年02月06日 74 阅读

本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下：//浮雕procedure Emboss（SrcBmp,DestBmp:TBitmap;AzimuthChange:integer）;overload;var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;begin for i := 0 to ...

Windows API GetLastError（）函数返回值含义解释

2017年02月06日 75 阅读

〖0〗-操作成功完成。〖1〗-功能错误。〖2〗-系统找不到指定的文件。〖3〗-系统找不到指定的路径。〖4〗-系统无法打开文件。〖5〗-拒绝访问。〖6〗-句柄无效。〖7〗-存储控制块被损坏。〖8〗-存储空间不足，无法处理此命令。〖9〗-存储控制块地址无效。〖10〗-环境错误。〖11〗-试图加载格式错误的程序。〖12〗-访问码无效。〖13〗-数据无效。〖14〗-存储器不足，无法完成此操作。〖15〗-系统找不到指定的驱动器。〖16〗-无法删除目录。〖17〗-系统...

delphi制作wav文件的方法

2017年02月06日 62 阅读

本文实例讲述了delphi制作wav文件的方法。分享给大家供大家参考。具体如下：这里delphi用waveIn...函数制作wav文件具体代码如下：//使用窗口接受音频设备发出的消息:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = ...

ListView 百分比进度条（delphi版）

2017年02月06日 63 阅读

在看代码之前先给大家附上效果图：废话不多说了，直接给大家贴代码了。unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls, ImgList;typeTForm1 = class（TForm）btn1: TButton;lv1: TListView;trckbr1:...

Delphi XE5 为Android应用制作签名的方法（图文）

2017年02月06日 78 阅读

要发布android应用，必须做签名的。看一下具体的操作步骤：1.进入Project-Options:2.打开Options窗口，选择Provisioning,在这里，可以为目标平台选择签名文件，也可生成新的签名文件。2.1 选择目标平台，可以为dubug或release设置签名，默认情况下，debug签名文件是存在的，可不用设置，这也是我们建立一个新的Android项目，就可以不用签名就能在模拟器上跑的原因，真正发布时，是必须做签名的。2.2，为发布做一...

TImage组件实现保存图片到Stream

2017年02月06日 86 阅读

因为一个项目,不得不将图片保存到数据库中,需要的时候再从数据库中读取.初时,以为很简单,不就是一个Stream.事实上,也很简单.度娘一下,代码也很多,但,都是坑！看一下TImage的源,Picture.Graphic下有一个loadfromStream和SavetoStream.如果没有猜错,那么直接用这两个函数就可以了.于是,我做了一个demo测试demo里放了两个TImage.TImage1放一张图片,然后用代码将TImage1的图片保存到Strea...

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

2016年07月29日 101 阅读

本实例演示如何在数据库中存取图像文件。 向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件，设计完成的主界面如图1所示。 图1 主界面 本系统中需要设计一个新的基于Paradox 7的数据库Image.db，图2为设计完成的Image.db数据库。 图2 设计完成的数据库 为了方便测试程序，Image.db数据库存储在实例程序所在的路径下。 设置TTable组件的TableName属性为Image.db，Active属性为...

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

2016年07月29日 81 阅读

从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString（ ´windows´,//[]中标题的名字 ´NullPort´,//=号前的名字 ´NIL´,//如果没有找到字符串时，返回的默认值 strResult,//存放取得字符 100,//取得字符的允许最大长度 &acu...

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

2016年07月29日 87 阅读

从.INI文件中获取字符串varstrResult:pchar;beginGetPrivateProfileString（´windows´,//[]中标题的名字´NullPort´,//=号前的名字´NIL´,//如果没有找到字符串时，返回的默认值strResult,//存放取得字符100,//取得字符的允许最大长度´c:forwin95win.ini´//调...

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

2016年07月29日 114 阅读

一、有必要了解INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。注释以分号“;”开头。二、定义1、在Interface的Uses节增加IniFiles；2、在Var变量定义部分增加一行：myinifile:Tinifile;然后，就可以对变量myinifile进...

插件管理框架 for Delphi（一）

2016年07月29日 118 阅读

插件技术的出发点主要是为了使软件能够灵活地进行扩展功能，而不需要对主程序（框架程序）进行重新编译和发布。它的原理相当简单。软件的功能由框架程序和插件来决定。在框架程序和插件之间具有一个特定的接口，它们两者须通过这个接口来传递数据或控制信息，以实现软件功能。因此，只要符合该接口的程序（或其他功能实体），就称为该框架程序的插件。插件实体一般分为两种，一种是包含逻辑的程序，比如动态库、Exe程序等；另一种则是一组配置信息。前一种方式多见于作图软件，媒体播放软件，...

插件管理框架 for Delphi（二）

2016年07月29日 81 阅读

unituntDllManager;interfaceusesWindows,Classes,SysUtils,Forms;typeEDllError=Class（Exception）;TDllClass=ClassofTDll;TDll=Class;TDllEvent=procedure（Sender:TObject;ADll:TDll）ofObject;{TDllManagero提供对Dll的管理功能；oAdd时自动创建TDll对象，但不尝试装载；oD...

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

2016年07月29日 86 阅读

以下是我的原代码：==========================================================================================DPR单元代码programMdiform;usesForms,UMdiformin´UMdiform.pas´{Mainform},UDMin´UDM.pas´{GlobalDM:TDataModule},UFu...