delphi使用流实现jpg文件的处理(转)
一、原理介绍--流式数据的类型及其应用
在Dephi中提供了TStream来支持对流式数据的操作。TStream是万流之源。
但由于它是一个抽象类，故不能被直接使用；而要使用其相应的子类，
如：TFileStream 、TStringStream、TMemoryStream、TBlobStream、TWinSocketStream和TOleStream。TStream提供了统一、简洁的方法来进行数据的读写。
1.)SaveToStream(Stream: TStream ); 作用：将类中的数据写到Stream的当前位置中
2.)LoadFromStream(Stream: TStream); 作用：从当前位置读入Stream里的数据
实际使用时我们基本上只要使用上面两个函数就可以了。
二、所遇到的问题及相应的解决方法
为了节省图像的存储空间和使用更加方便，决定采用JPEG这种图像格式。
（一）所遇到的问题
第一、在Delphi 5中进行画图所用到的组件是TImage，所生成的图像的格式为BMP格式，而为了节省图像的存储空间，图像在数据库里存储的格式须为JPEG格式，这样就产生了图像格式转化的需求；而TImage本身并不直接提供这两种图像格式之间的转化。
第二、怎样将存储在Microsoft Access数据库中的图像取出并且显示出来：在Delphi 5 中，能提供这种功能的组件是TDBImage，但该组件却存在着一个很大的缺陷：它所能显示的图像类型只能是一些图标文件，元文件和BMP文件，而不能支持JPEG格式的图像在该组件中的显示；但根据实际需要，在Microsoft Access数据库中所存储的图像数据却
是以JPEG格式保存的。
（二）相应的解决方法
为了解决上述两个问题，可以采用目前数据库中一种名为大二分对象（BLOB--Bina
ry Large Object），它是用来处理某些特殊格式的数据的。BLOB在数据库的表中实际上
是以二进制数据的形式存放的。为了处理BLOB字段，可以借鉴一些可视的桌面数据库的方法。在这里，我们选择了通过内存流的方式来完成；使用内存流，可减少磁盘操作，
大大提高运行效率。
具体的过程和相关的程序代码如下：
1、如何实现在Microsoft Access数据库中的图像存储：
这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序：
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
Table1.Edit;
TBlobField(Table1.FieldbyName('Image')).LoadFromStream(MS);
Table1.Post;
messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);
end;
finally
MyJPEG.Free;
end;
end;
在这段代码里TStream的子类TMemoryStream利用内存流起到了将BMP格式转化为JPEG格式
的中间桥梁的作用。
2、如何将图像从Microsoft Access数据库中取出并显示出来：
下面的这段代码是在按了“查看图像”按钮之后所触发的事件处理程序：
procedure TForm1.Button1Click(Sender: TObject);
var tempstream:TStringStream;
tempjpeg:TJPEGImage;
begin
try
tempstream:=TStringStream.Create('');
TBlobField(Query1.FieldByName('Image')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
DBImage1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;
这段代码的主要作用是：首先将查询结果中的JPEG图像格式数据保存到TStringStream中去，
然后设置数据指针在TStringStream中的位置为0；接着从TStringStream中读入相关数据，并把它们赋给TDBImage.Picture.Bitmap，这样一来就实现了将数据库中所存储的JPEG格式的
数据转化为BMP格式，并在TDBImage中将图像显示出来。最后将TStringStream和TJPEGImage
这两个对象释放掉。特别要注意的是不能在设计阶段设置TDBImage的DataField属性，而只能
通过写代码的形式在运行阶段把利用流式数据所转化过来的新格式的图像数据赋给TDBImage.Picture.Bitmap。
2003-10-7 11:10:00
发表评语???
2003-10-7 11:11:44 BMP格式转化为JPEG格式uses Jpeg;
procedure CopyBmpToJpeg(BmpFile,JpegFile:string);
var
Bmp:TBitmap;
Jpeg:TJPEGImage;
begin
Bmp:=TBitmap.create;
Jpeg:= TJpegImage.Create;
try
Bmp.LoadFromFile(BmpFile);
Jpeg.Assign(Bmp);
Jpeg.SaveToFile(JpegFile);
finally
Bmp.Free;
Jpeg.Free;
end;
end;
2003-10-7 14:28:34 图片缩放Var B:Tbitmap; //临时位图
Begin
B:=Tbitmap.Create; //建立临时位图
B.Assign(YourBitmap); //采用相同色彩深度
With B do
Begin
Width:=90; //临时位图的大小为90x90
Height:=90;
End;
B.canvas.StretchDraw(B.canvas.Cliprect,YourBitmap); //缩放适应
B.SavetoFile(YourFileName); //保存
B.Free;
End; //搞定
2003-10-22 10:33:33 JPEG和BMP同时存入，两种不同的方法，文件流和内存流procedure TForm1.Button1Click(Sender: TObject);
var
fs:TFileStream;
MS: TMemoryStream;
Bmp:TBitmap;
MYJpeg:TJPEGImage;
begin
if OpenPictureDialog1.Execute then
begin
if ExtractFileExt(OpenPictureDialog1.FileName) = '.bmp' then
begin
Bmp:=TBitmap.create;
MYJpeg:= TJpegImage.Create;
MS:=TMemoryStream.create;
try
Bmp.LoadFromFile(OpenPictureDialog1.FileName);
with MYJpeg do
begin
Assign(Bmp);
MS.Position:=0;
SaveToStream(MS);
Table1.Edit;
TBlobField(Table1.FieldByName('ZGZP')).LoadFromStream(MS);
Table1.Post;
end;
finally
Bmp.Free;
MYJpeg.Free;
MS.Free;
end;
end
else
begin
fs:=TFileStream.Create(OpenPictureDialog1.FileName,fmOpenRead);
Try
Table1.Edit;
TBlobField(Table1.FieldByName('ZGZP')).LoadFromStream(fs);
Table1.Post;
Finally
fs.free;
end;
end;
end;
2003-11-13 21:03:18 图片的缩放procedure TForm1.Button1Click(Sender: TObject); var
b: TBitmap;//原图片
nb: TBitmap;//Resize以后的图片
r: TRect;
begin
b := TBitmap.Create;
if OpenDialog1.Execute then
begin
b.LoadFromFile(OpenDialog1.FileName);
nb := TBitmap.Create;
//你可以自己定义高度和宽度，这里是都变成一半
nb.Height := b.Height div 2; //高度变为原来的一半
nb.Width := b.Width div 2; //宽度变为原来的一半
r.TopLeft := Point(0, 0);
r.BottomRight := Point(nb.Width, nb.Height);
with nb.Canvas do
begin
Pen.Style := psDash;
Brush.Style := bsClear;
Rectangle(0, 0, nb.Width, nb.Height);
StretchDraw(r, TGraphic(b));
end;
if SaveDialog1.Execute then nb.SaveToFile(SaveDialog1.FileName); nb.Free;
end;
b.Free;
end;
Delphi函数清单
[标准函数和过程] 首部 procedure Abort;$[SysUtils 功能引起放弃的意外处理。 说明不显示任何错误信息。 首部 function Abs(N:
delphi合并流文件
unit Unit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; Button2:TButton; procedure FormCreate(Sender:TObject); procedure FormDestroy(Sender:TObject); procedure Button1Click(Sender:TObject); procedure Button2Click(Sender:TObject); end; var Form1:TForm1; implementation {$R*.dfm} uses MMSystem; {合并两个Wav文件流的函数} function ConWavStream(AWavStream1,AWavStream2:TStream;var ANewStream:TStream):Boolean; type TWavFormat=packed record ChunkID:array[0..3]of AnsiChar;{'RIFF'} ChunkSize:Longword;{size-8} Format:array[0..3]of AnsiChar;{'WAVE'} SubChunk1ID:array[0..3]of AnsiChar;{'fmt'} SubChunk1Size:Longword;{hex10} AudioFormat:Word;{hex01} NumOfChannels:Word;{1mono,2stereo} SampleRate:Longword;{number of samples/sec} ByteRate:Longword;{samplerate*num of channels*bytes per(mono)sample} BytesperSample:Word;{size of(mono)sample} BitsPerSample:Word;{BytesperSample*8} SubChunk2ID:array[0..3]of AnsiChar;{'data'} SubChunk2Size:Longword;{number of data bytes} end;
delphi数学模块函数、过程大全
function ArcCos(const X : Extended) : Extended; overload; function ArcCos(const X : Double) : Double; overload; function ArcCos(const X : Single) : Single; overload; function ArcSin(const X : Extended) : Extended; overload; function ArcSin(const X : Double) : Double; overload; function ArcSin(const X : Single) : Single; overload; function ArcTan2(const Y, X: Extended): Extended; procedure SinCos(const Theta: Extended; var Sin, Cos: Extended) register; function Tan(const X: Extended): Extended; function Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 } function Secant(const X: Extended): Extended; { 1 / cos(X) } function Cosecant(const X: Extended): Extended; { 1 / sin(X) } function Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) } function RadToDeg(const Radians: Extended): Extended; inline; { Degrees := Radians * 180 / PI } function RadToGrad(const Radians: Extended): Extended; inline; { Grads := Radians * 200 / PI } function RadToCycle(const Radians: Extended): Extended; inline; { Cycles := Radians / 2PI } function DegToRad(const Degrees: Extended): Extended; inline; { Radians := Degrees * PI / 180} function DegToGrad(const Degrees: Extended): Extended; function DegToCycle(const Degrees: Extended): Extended; function GradToRad(const Grads: Extended): Extended; inline; { Radians := Grads * PI / 200 } function GradToDeg(const Grads: Extended): Extended; function GradToCycle(const Grads: Extended): Extended; function CycleToRad(const Cycles: Extended): Extended; inline; { Radians := Cycles * 2PI } function CycleToDeg(const Cycles: Extended): Extended; function CycleToGrad(const Cycles: Extended): Extended; { Hyperbolic functions and inverses } function Cot(const X: Extended): Extended; inline; { alias for Cotan } function Sec(const X: Extended): Extended; inline; { alias for Secant } function Csc(const X: Extended): Extended; inline; { alias for Cosecant } function Cosh(const X: Extended): Extended; function Sinh(const X: Extended): Extended; function Tanh(const X: Extended): Extended; function CotH(const X: Extended): Extended; inline; function SecH(const X: Extended): Extended; inline; function CscH(const X: Extended): Extended; inline; function ArcCot(const X: Extended): Extended; { IN: X <> 0 } function ArcSec(const X: Extended): Extended; { IN: X <> 0 } function ArcCsc(const X: Extended): Extended; { IN: X <> 0 } function ArcCosh(const X: Extended): Extended; { IN: X >= 1 } function ArcSinh(const X: Extended): Extended;
delphi自定义函数收集1
本文包含以下自定义函数： 1、Base64编码函数。 2、Base64解码函数。 3、截取汉字子串函数，防止出现半个汉字现象。 4、人民币小写转换为大写函数。 1、Base64编码函数。 //Base64编码函数 function Base64Encode(InputData: string): string; //; Var OutputData: String const Base64TableLength = 64; Base64Table: string[Base64TableLength] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+*'; Pad = '='; var i: integer; CurrentB, PrevB: byte; c: byte; s: char; InputLength: integer; OutputData: string; FilterDecodeInput: Boolean; function ValueToCharacter(value: byte; var character: char): Boolean; //****************************************************************** // 将一个在0..Base64TableLength-1区间内的值，转换为与Base64编码相对应 // 的字符来表示，如果转换成功则返回True //****************************************************************** begin result := true; if (value > Base64TableLength - 1) then result := false else character := Base64Table[value + 1]; end; begin FilterDecodeInput := true; OutputData := ''; InputLength := Length(InputData); i := 1;
Delphi调用WebService的实例(非常经典)
Delphi 调用webservice 经典实例 Dispatch: 派遣,分派 Invoke: 调用 Invokable: 可调用接口 TReomtable: WebService中自定义类都是继承自该类 TSOAPAttachment: Attachment:附件,一种流类型,可以返回流数据 CGI:（EXE） ISAPI:（DLL） Base64编码: uses EncdDecd; s := EncodeString(s); //加 base64 编码 s := DecodeString( str ); //解码 UTF8: UTF8 是８位的UNICODE字符，而ASCII是７位 ,gb2312和unicode是2字节/字，utf8是3字节/字utf8类似以前的8位转7位的编码，是为了在网络间不同系统的通讯方便而作的转换。几乎所有用.Net写的WebService只支持DOC方式、Delphi写的只支持RPC方式；J2ME目前对Web Service的支持仅限于RFC172，而 RFC172要求必须为DOC方式（sun怎么偏袒MS？）！ 为了在设计中减少障碍，下面还介绍几个概念。 1) SOAP：SOAP是一种简单有效的数据传输协议，用于分布式网络环境下数据信息交换，它以XML 作为数据传输的格式，搭配Internet上标准的传输协议HTTP、SMTP、TCP等来传送信息。从本质上看，SOAP事实上只是将Request和Response经由XML格式把数据打包，达到双方沟通的目的。 2) WSDL:WSDL(Web Service Description Language)是一种以XML格式描述的Web Service语言，当Web Service Provider 要对外公布提供的 Web Service，就需要通过WSDL来构建描述语言。在WSDL中有两个非常重要的要素：：此WSDL文件所要描述的Web Service集合；每一个Port代表外界Client可以和此Service沟通的一个进入点，一个Port会指定一个Binding方式。 3):处理中文乱码的问题: 将HttpRio的 Converter 的 Options 的 soUTF8InHeader 设为 True 将生成soap消息的HTTPSoapDispatcher控件，添加encoding为gb2312 https://www.sodocs.net/doc/b61406444.html,eUTF8InHeader := True; 4)在Delphi中，能够传递的自定义类型的对象要继承TRemotable, 5:修正一个服务器端的一个Bug:将ISAPIThreadPool和ISAPIApp的次序变一下:ISAPIApp必须在 ISAPIThreadPool之前： uses ... ISAPIApp, ISAPIThreadPool 解决如下错误: Received content of invalid Content-Type setting:text/html -SOAP"expects"text/xml" 6:"XML document must have a top level element. Line: 0" 错误，我该如何解决？？哈纳斯 (2002-08-05 17:26:00) 我也曾碰到同样的问题解决方法是：别设httprio的wsdllocation,设它的url 如http://localhost/mydir/project1.exe/wsdl/IFIRST mydir是你的可执行的虚拟目录，IFIRST是你定义的接口名 ********************************************************************* **************************
DELPHI常用函数说明
一、数据类型转换函数1 在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。 1.FloatToStr 功能说明：该函数用于将“浮点型”转换成“字符型”。 参考实例： Edit1.Text := FloatToStr(1.981); 2.IntToStr 功能说明：该函数用于将“整数型”转换成“字符型”。 参考实例： S := IntToStr(10);(注：S为String类型变量。) 3.IntToHex 功能说明：该函数用于将“十进制”转换成“十进制”。该函数有二个参数1。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。 参考实例： Edit1.Text := IntToHex('100', 2);
执行结果，Edit1.Text等于64。 注意：Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是：I := StrToInt('S\' + '64'); 这时I等于100。加上一个'S\'即可将“十六进制”转换为“十进制”。 4.StrToInt 功能说明：该函数用于将“字符型”转换成“整数型”。 参考实例： I := StrToInt('100'); 注意：不能转换如StrToInt('ab')或StrToInt('好')这样的类型，因为他们并不存在数字型。 5.StrToFloat 功能说明：该函数用于将“字符型”转换成“浮点型”。 参考实例： N := StrToFloat(Edit1.Text); 注意：Edit1.Text中的内容为1.981(凡在Edit 控件中显示的文本均为字符串)。N为Double类型，用于保存转换后的浮点型数据。
Delphi函数大全
Delphi函数大全 首部function Languages: TLanguages; $[ 功能返回系统语言对象 说明通过此函数可以得到系统的语言环境 参考type 例子 12a12c12a12c. 参考
delphi 三种常用的延时方法
在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。 1）TTtimer控件 TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事件和Interval属性，我们可以很方便的产生一些简单的定时事件。 2）Sleep函数 Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为 Sleep(milliseconds)，暂停当前的进程milliseconds毫秒。Sleep的实现方法其实也是调用Windows API的Sleep函数。例如： sleep(1000); //延迟1000毫秒 Sleep会引起程序停滞，如果你延迟的时间较长的话，你的程序将不能够响应延时期间的发生的其他消息，所以程序看起来好像暂时死机。 3）GetTickCount函数 在主程序中延时，为了达到延时和响应消息这两个目的，GetTickCount()构成的循环就是一种广为流传的方法。例如： 1.procedure Delay(MSecs: Longint); 2.//延时函数，MSecs单位为毫秒(千分之1秒) 3.var 4.FirstTickCount, Now: Longint; 5.begin 6.FirstTickCount := GetTickCount(); 7.repeat 8. Application.ProcessMessages; 9. Now := GetTickCount(); 10.until (Now - FirstTickCount >= MSecs) or (Now Delphi常用组件的使用 目录 1．按钮类组件 1.1Button组件 Button组件位于Standard页。 Button组件的常用属性表 属性描述 Cation用于在按钮上显示文本内容 Cancel用来指定按钮是否为取消按钮 Default用于指定按钮是否为默认按钮，在按Enter键时也选中命令按钮Hint设置鼠标在组件上短暂停时在组件旁显示的提示小窗口的内容ShowHint确定是否显示提示文本，默认值是FALSE 1.2Bitbtn组件 Bitbtn组件（位图组件）位于Additional，与Button很相似，只是多了一个位图符号在按钮上（如带有对号的OK，问好的Help等），其某些属性与Button类似，下表为其独有的的特性。（注：此组件不需编写代码） Bitbtn组件的常用属性表 属性描述 Kind Kind属性的值就是位图按钮上显示的图标。Kind属性后的下拉列表中有一组默认图标的属性值，有bkCancel（取消）、bkAbort（终止）、bkAll（所有）、 bkClose（关闭）等。 Glyph用于在位图按钮上显示加载后的位图图形 NumGlyphs用于指明位图按钮所能使用位图的个数。在delphi中，最多允许向一个位图按钮提供4个图像文件，用于表示4中不停状态 Layout用于指出位图图形在位图组件上的放置位置 1.3SpeedButton组件 SpeedButton组件（加速按钮）位于Additional，常放置在Panel组件上，用于设计工具栏。它与Bitbtn相似，也可以显示图像和文本，但通常只用于显示图像。 SpeedButton组件的常用属性表 属性描述 AllowAllUp用于设置同一组的加速按钮是否具有同时弹起的状态。若设置为FALSE，则当同一组加速按钮中的一个被按下时，其他加速按钮都处于弹起状态，即这 组按钮必须有且只有一个处于按下状态 Down用于设置该加速按钮是否处于按下状态，若设置为TRUE，则表示按钮处于按下状态 Flat用于设置在鼠标移动到该按钮上时，按钮是否显示三维效果。为FLASE则不出现 GroupIndex用于将数个加速按钮设置成一组，只需将其值设置成不等于0的数值即可1．4RadioButton组件 《Delphi参考手册》 ===========================================================================名称类型说明 --------------------------------------------------------------------------- Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块 AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写）AnsiCompareText函数比较字符串（不区分大小写）AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符 CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数 CompareStr函数比较字符串（区分大小写） Concat函数合并字符串 (DELPHI)API函数大全 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称WNetGetLastError 获取网络错误的扩展错误信息WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC （统一命名规范）名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 2. API之消息函数 BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置GetMessageTime 取得消息队列中上一条消息处理完毕时的时间PostMessage 将一条消息投递到指定窗口的消息队列PostThreadMessage 将一条消息投递给应用程序RegisterWindowMessage 获取分配给一个字串标识符的消息编号ReplyMessage 答复一个消息 SendMessage 调用一个窗口的窗口函数，将一条消息发给那个窗口SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台CreateFileMapping 创建一个新的文件映射对象 DeleteFile 删除指定文件 delphi常用函数大全（转） Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块 AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写） AnsiCompareText函数比较字符串（不区分大小写） AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程 BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符 CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数 CompareStr函数比较字符串（区分大小写） Concat函数合并字符串 Continue命令继续for、while、repeat的下一个循环 Copy函数返回一字符串的子串 Cos函数余弦函数 Ctl3D属性是否具有3D效果 Cursor属性鼠标指针移入后的形状 Date函数返回当前的日期 DateTimeToFileDate函数将DELPHI的日期格式转换为DOS的日期格式DateTimeToStr函数将日期时间格式转换为字符串DateTimeToString函数将日期时间格式转换为字符串 DateToStr函数将日期格式转换为字符串 delphi函数参考手册 名称类型说明 abort 函数引起放弃的意外处理 abs 函数绝对值函数 addexitproc 函数将一过程添加到运行时库的结束过程表中addr 函数返回指定对象的地址 adjustlinebreaks 函数将给定字符串的行分隔符调整为cr/lf序列align 属性使控件位于窗口某部分 alignment 属性控件标签的文字位置 allocmem 函数在堆栈上分配给定大小的块 allowgrayed 属性允许一个灰度选择 ansicomparestr 函数比较字符串（区分大小写）ansicomparetext 函数比较字符串（不区分大小写）ansilowercase 函数将字符转换为小写 ansiuppercase 函数将字符转换为大写 append 函数以附加的方式打开已有的文件 arctan 函数余切函数 assignfile 函数给文件变量赋一外部文件名 assigned 函数测试函数或过程变量是否为空 autosize 属性自动控制标签的大小 backgrounddi2001.jpg 属性背景色 beginthread 函数以适当的方式建立用于内存管理的线程bevelinner 属性控件方框的内框方式 bevelouter 属性控件方框的外框方式 bevelwidth 属性控件方框的外框宽度 blockread 函数读一个或多个记录到变量中blockwrite 函数从变量中写一个或多个记录borderstyle 属性边界类型 borderwidth 属性边界宽度 break 命令终止for、while、repeat循环语句 brush 属性画刷 caption 属性标签文字的内容 change 函数改变文件的后缀 chdir 函数改变当前目录 checked 属性确定复选框选中状态 chr 函数返回指定序数的字符 closefile 命令关闭打开的文件 color 属性标签的颜色 columns 属性显示的列数 comparestr 函数比较字符串（区分大小写）concat 函数合并字符串 continue 命令继续for、while、repeat的下一个循环copy 函数返回一字符串的子串 cos 函数余弦函数 ctl3d 属性是否具有3d效果 Delphi从内存流中判断图片格式_街头巷尾 2009-03-19 11:22:55| 分类：个人日记| 标签：|字号大中小订阅 Delphi从内存流中判断图片格式 利用内存流来判断文件的格式，其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件，例如 jpg文件是 FFD8 (从低位到高位就要反过来D8FF下面都是一样) BMP文件是 424D ---4D42 其他的我就不一一列举了，想知道跟多文件类型分别是用什么字符作为文件的开头的话，下载个C32asm或者UE等这类16进制编辑器就可以看到了。 procedure TForm1.Button1Click(Sender: TObject); //Button1的单击事件 var //声明变量 MyImage:TMemoryStream; //内存流对象 Buffer:Word; i:integer; begin if OpenDialog1.Execute then //OpenDialog1是一个文件打开对话框，在Delphi组件面版的Dialog页中可以找到。 begin MyImage:=TMemoryStream.Create; //建立内存流对象 try MyImage.LoadFromFile(OpenDialog1.FileName); //把刚刚用户选择的文件载入到内存流中 MyImage.Position := 0; //移动指针到最开头的位置 if MyImage.Size = 0 then //如果文件大小等于0，那么 begin //错误 ShowMessage('错误'); Exit; end; MyImage.ReadBuffer(Buffer,2); //读取文件的前２个字节，放到Buffer里面 if Buffer=$4D42 then//如果前两个字节是以4D42[低位到高位] begin ShowMessage('BMP'); //那么这个是BMP格式的文件 end else if Buffer=$D8FF then //如果前两个字节是以D8FF[低位到高位] begin //JPEG ShowMessage('JPEG'); //........一样下面不注释了 end else if Buffer=$4947 then 【字符串函数大全】 首部function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能返回两个字符串是否相似 说明ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 例子CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否包含子串ASubText 说明不区分大小写 参考function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 例子CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText开头 说明不区分大小写 参考function https://www.sodocs.net/doc/b61406444.html,pareString 例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText结尾 说明不区分大小写 参考function https://www.sodocs.net/doc/b61406444.html,pareString 例子CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas 功能返回字符串AText中用子串AFromText替换成子串AToText的结果 说明不区分大小写 参考function SysUtils.StringReplace; type SysUtils.TReplaceFlags 例子Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);DELPHI常用组件
《Delphi参考手册》
(DELPHI)API函数大全
delphi常用函数大全
delphi函数参考手册
delphi从内存流中判断图片格式
Delphi字符串处理函数
相关文档
- delphi的函数手册
- delphi笔记-内部函数参数
- Delphi操作EXCEL_函数整理
- delphi自定义函数收集1
- DELPHI完整中文函数手册
- delphi常用函数大全
- Delphi函数 名称 类型 说明
- Delphi常用的函数库
- DELPHI7常用函数
- Delphi函数大全
- delphi常用函数(带使用实例)
- Delphi基本语法格式和常用函数讲解
- DELPHI中Format函数功能及用法详解
- Delphi常用函数手册
- Delphi函数清单
- Delphi 的内存操作函数
- delphi函数参考手册
- Delphi函数
- delphi常用api函数
- Delphi常用函数手册