delphi bit定义（delphi中如何定义TBitmap类型的变量）

本文目录

• delphi中如何定义TBitmap类型的变量
• Delphi中BitBtn部件是干什么用的怎么用
• delphi程序中定义热键的方法
• Delphi怎样取数据库中bit型的值
• 如何用delphi做百叶窗
• 使用Delphi编写读取文件有多少bit位代码是什么
• DELPHI基础教程：Delphi图形图像编程（一）[1]
• delphi bit类型

delphi中如何定义TBitmap类型的变量

delphi中如何定义TBitmap类型的变量？
p: TBitmap
bmp := TBitmap.Create；
try
...
finally
bmp.Free；
end；
1.85.13.*  《span class="tm"》5-14 15:15《/span》
《/p》
《div class="b bt2"》《div class="bt bg1 ft"》镇乱《img alt="其他答案御纯档" height="16" src="/static/img/ico2.gif" width="16"/》其他答案《/div》《/div》
《p class="ft bb"》在上面引用裤首jpeg
var bmp: TBitmap
bmp := TBitmap.Create；
这样就创建了
顺一门有百福 平安二字值千金 万象更新。

Delphi中BitBtn部件是干什么用的怎么用

这个继承了Button.主要在界面效果上进行了增加。
包括Glyph、Kind、Style等性属。样式，和按钮上的图标等变化。事件上相同。
比较常用的，你想在按钮上加个图片，或设置按钮更多的返回值，或样式世简扰上设置成类似WIN3.1等等，这咐圆时可以使用这个按钮。其它搜旦的和Button类似。

delphi程序中定义热键的方法

Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, StdCtrls, Buttons;
Type
TFrm_Main = Class(TForm)
HotKey1: THotKey;
BitBtn1: TBitBtn;
Procedure FormDestroy(Sender: TObject);
Procedure BitBtn1Click(Sender: TObject);
private
V_fsmodifiers, V_VK: Integer;
V_atom: atom;
public
Procedure HotKey(Var Msg: TMessage); message WM_HOTKEY;
End;
Var
Frm_Main: TFrm_Main;
Implementation
{$R *.dfm}
Function Get_Hotkey(ahotkey: TShortCut; Var fsmodifiers, VK: Integer): Boolean;
Var
alistString: TStringlist;
I: Integer;
atmstr: String;
achar: Char;
Begin
alistString := TStringlist.Create;
Try
alistString.Delimiter := ’+’;
alistString.DelimitedText := ShortCutToText(ahotkey);
I := alistString.Count;
If I 》 0 Then
Begin
If alistString.IndexOf(’Alt’) 《》 -1 Then
fsmodifiers := MOD_Alt;
If alistString.IndexOf(’Ctrl’) 《》 -1 Then
fsmodifiers := fsmodifiers + MOD_CONTROL;
If alistString.IndexOf(’Shift’) 《》 -1 Then
fsmodifiers := fsmodifiers + MOD_SHIFT;
atmstr := alistString.Strings;
achar := atmstr;
VK := Ord(achar);
Result := True;
End
Else
Result := False;
Finally
alistString.Free;
End;
End;
Procedure TFrm_Main.FormDestroy(Sender: TObject);
Begin
GlobalDeleteatom(V_atom); //程序退庆燃桐出取消全局热键
Deleteatom(V_atom);
End;
Procedure TFrm_Main.BitBtn1Click(Sender: TObject); {注册全局热键}
Var
aHotKey: TShortCut;
Begin
aHotKey := HotKey1.HotKey; //win32页誉坦的组件 HotKey
V_fsmodifiers := 0;
V_VK := 0;
If Get_Hotkey(ahotkey, V_fsmodifiers, V_VK) Then
Begin
V_atom := Globaladdatom(’hot key’);
If Not RegisterHotkey(Handle, V_atom, V_fsmodifiers, V_VK) Then
Begin
GlobalDeleteatom(V_atom); /段物/取消全局热键
Deleteatom(V_atom);
End;
End;
End;
Procedure TFrm_Main.HotKey(Var Msg: TMessage); { 监听全局热键 }
Begin
If (Msg.LParamHi = V_VK) And (Msg.LParamLo = V_fsmodifiers) Then
Begin
Close;
End;
End;
End.

Delphi怎样取数据库中bit型的值

1、声明则郑布尔型变量
var
bResult: Boolean;
2、获取数据源的值答盯贺，清派首先要确定有值和知道字段名才行。
bResult:= adoquery1.FieldByName(’FieldName’).AsBoolean;

如何用delphi做百叶窗

在应用程序中引入位图并以多种特技显示，会使程序界面生动形象，充满魅力。那么在Delphi环境中如何实现这一切呢？笔者在用Delphi开发一个多媒体系统时发现了实现位图显示特技模轿的两种方法，下面将对这两种方法予以介绍，供Delphi爱好者参考。
一、画布Tcanvas简介
Delphi中与绘图和位好薯图操作有关的对象是画布Tcanvas。Tcanvas对象功能强大，封装了WindowsAPI的GDI，用户可以很方便地在画布上绘制直线、矩形、椭圆、多边形等基本图形，还可以显示、拷贝位图，却不必关心设备上下文等GDI概念，极大地方便了用户。Tcanvas对象本身并不是一个构件，不单独使用，它总是作为其它对象的属性来使用的。Delphi有四个对象具有画布属性，它们是TForm、TImage、TPaintbox和Tbitmap，其中前三者是可视化构件。至于Tcanvas的详细情况，可以参考Delphi的联机帮助。
实现简单的位图显示特技，实际上就旦袜肆是以不同的方式逐渐将源位图拷贝到Tcanvas类型的对象上，如从位图的中央开始拷贝一个矩形区域到屏幕中央，矩形区域不断扩大直到拷贝整个位图，其视觉效果就是位图从屏幕中央向四周扩散。不同的拷贝方式就形成了多种特技形式，如扩散、拉动和百叶窗等。对于每种特技形式灵活运用，又可演变出多种花样，如扩散可以演变为从上向下、从左向右、从中间向四周和相反方向的扩散，以及从一角向对角方向扩散的特技花样。
实现上述位图显示特技的原理很简单，关键是怎样实现位图的拷贝。在Delphi中有两种拷贝位图的方法，相应地就有两种实现位图显示特技的方法，一种是用Tcanvas对象的方法CopyRect，另一种是调用WindowsAPI的BitBlt函数。下面就以两种特技的实现为例分别介绍这两种方法。
二、方法之一：调用CopyRect
Tcanvas对象与拷贝位图有关的是CopyMode属性和CopyRect方法，其中CopyMode定义拷贝的模式，而Copy�Rect执行位图拷贝的操作。当CopyMode定义为缺省值cmSrcCopy时，CopyRect将源画布上的一部分位图拷贝到目标画布上的一个矩形区域内。CopyRect的过程声明及参数意义如下：
procedureCopyRect（Dest：TRect；Canvas：TCanvas；Source：TRect）；
Dest目标画布上的矩形区域
Canvas源画布
Source源画布上的矩形区域
下面以一个拉动特技的实现为例，说明如何用CopyRect方法实现特技。该例包括三个构件：Tform1、Te�ditl和Tbuttonl，变量step控制拉动的步骤。程序运行后，从Teditl中输入待显示位图文件名，然后单击Tbuttonl，这时位图从左侧出现并逐渐向右侧移动，好似位图被从左向右拉动一样，拉动结束后位图左上角坐标为（x0，y0）。该例程序清单如下所示：
procedureTForml．ButtonlClick（Sender：TObject）；
conststepΚ200；
x0Κ20；
y0Κ20；
varbitmap：tbitmap；
midx：integer；｛中间变量，当前步骤所拷贝位图的宽｝
ratiox：real；｛每步位图宽度增加量｝
i：integer；
rect1，rect2：trect；｛源、目标矩形区域｝
begin
bitmap：Κtbitmap．create；
bitmap．loadfromfile（edit1．text）；
ratiox：Κbitmap．width／step；
fori：Κotostepdo
begin
midx：Κround（ratiox＊i）；
withrect1do
begin
left：Κbitmap．width－midx；
topΚ0；
right：Κbitmap．width；
bottom：Κbitmap．height；
end；
withrect2do
begin
left：Κx0；
top：Κy0；
right：Κx0＋midx；
bottom：Κyo＋bitmap．height；
end；
canvas．copyrect（rect2，bitmap．canvas，rect1
）；
end；
bitmap．free；
end；
三、方法之二：调用BitBlt函数
这里涉及到了在Delphi中如何调用Win�dowsAPI。每当生成一个新的项目时，Delphi自动地把WinType和WinProcs单元名添加到所生成单元文件中的uses子句中，这两个单元包含了Delphi调用WindowsAPI所必须的类型定义和例程声明。这样，只需使用正确的参数就可以直接调用WindowsAPI，而不需要再作其它任何声明。
BitBlt及类似的StretchBlt函数是Windows功能强大的图形处理函数，它的功能与TCanvas的CopyRect函数一样，不仅能够将位图或位图的一部分从一处拷贝到另一处，它还可以根据256个不同的光栅操作码将三幅位图结合起来，从而呈现不同的视觉效果。在WindowsAPI函数中，所有的blt函数的鼻祖都是BitBlt函数。在Delphi中BitBlt函数声明及参数意义如下：
functionBitBlt（DestDC：HDC；X，Y，nWidth，Height：Integer；SrcDC；HDC；XSrc，YSRC：Ingeger；Rop
：LongInt）：Bool；
DestDC源设备上下文句柄
X，Y源矩形左上角坐标
nWidth，Height目标矩形的宽度和高度
SrcDC目标矩形句柄
XSrc，TSrc源位图矩形左上角坐标
Rop光栅操作码。对于简单的拷贝，其值为SRCCOPY
下面同样以一个例子来说明如何用BitBlt实现特技。本例所实现的特技是将选定的位图从屏幕中心开始向四周扩散，最后整个位图全部显示出来。此例的程序清单如下：
procedureTForm1，Button2Click（Sender：TObject）；
conststepΚ200；
var
bitmap：tbitmap；
x0，y0：integer；｛屏幕中心坐标｝
midx，midy：integer；
ratiox，ratioy：teal；
i：integer；
begin
bitmap：Κtbitmap．create；
bitmap．loadfromfile（edit1．text）；
x0：Κround（form1．width／2）；
y0：Κround（form1．height／2）；
ratiox：Κbitmap．width／step；
ratioy：Κbitmap．height／step；
fori：Κ0tostepdo
begin
midx：Κround（ratiox＊i）；
midy：Κround（ratioy＊i）；
bitblt（form1．canvas．handle，x0－midx，y0－midy，round（ratiox＊i＊1），round（ratioy＊i＊2），bitmap．canvas．handle，x0－midy，y0－midy，，srccopy）；
end；
bitmap．free；
end．

使用Delphi编写读取文件有多少bit位代码是什么

给你个标准的能用的函迅陆数：胡丛

function GetFileSize(sFileName: string): real;

var

  f: TFileStream;

begin

  if FileExists(sFileName) then

  begin

    f := TFileStream.Create(sFileName, fmOpenRead or fmShareDenyNone);

    Result := f.Size ;   //返回文件大小

    f.Free;

  end

  else

    Result := 0;

end;

得到的大小就是 bit，想转成KB 就 /1024 想转裤昌樱成MB 就 除2个1024

DELPHI基础教程：Delphi图形图像编程（一）[1]

　　在Delphi中 专门定义了一组对象和部件用以绘制图形 完成一些简单的图像功能 利用这些对象 部件的方法 可以方便地绘制各种常用烂纯图形 通过设置它们的属性 能得到不同风格的图饥燃咐形 另外 通过对鼠标事件的定义 可以方便的设计图形绘制程序

　　本章将介绍以下内容

　　 TCanvas TPen TBrush TColor对象的方法及属性

　　 绘图功能的实现

　　 TImage TPicture TBitBtn TBitmap部件的方法及属性

　　 图像观测及处理

　　Graphex dpr是一个简单的图形图像应用程序 是对以上这些对象和组件的具体应用 本章将结合此程序进行讲述

　　 图形对象概述

　　 TCanvas Object（画布对象）

　　TCanvas对象是一个用于绘图的表面 在这个区域上段指 程序可实现各种绘图功能 很多部件（如TIMage TMemo）的Canvas属性就是TCanvas对象 在部件上绘制图形就是在部件的画布上绘制 TCanvas的Brush Pen Font属性分别是TBrush TPen TFont对象 它们用于定义绘制图形的风格 关于TBrush TPen对象 下节中将详细介绍

　　画布的笔的位置定义在PenPos属性中 可用MoveTo方法来移动笔 如果要在画布上输出文本 可用Textout方法

　　TCanvas有对象很多方法 可完成常用的绘图功能 现将方法及功能简介

　　 Arc Arc（x y x y x y x y : Integer）

　　Arc方法在椭圆上画一段弧 椭圆由（x y ） （x y ） 两点所确定的椭圆所决定 弧的起点是椭圆圆周和椭圆中心与（x y ）连线的交点 弧矩形终点是椭圆圆周和椭圆中心与（x y ）连线的交点 以逆时针方向画弧

　　 Chord Chord（x y x yx x y x y : Integer）

　　Chord方法连接椭圆上的两点 椭圆由（x y ） （x y ） 两点所确定的矩形决定 （x y ）是始点 （x y ）是终点

　　 Brushcopy Brushcopy（const Dest : TRect;Bitmap : TBitmap;const Source TRect;Color : TColor）

　　Brushcopy方法把位图的一部分复制到画布的某个矩形区域 并用画笔的当前颜色替换位图的颜色 参数Dest定义画布的一个矩形区域 该矩形用以填充位图 Bitmap定义位图 Source定义位图中的矩形区域 该区域上的位图将被复制 Color定义画笔中 用以替换位图的颜色

　　 CopyRect CopyRect（Dest : TRect;Canvas : TCanvas; Source TRect）

　　此方法从另一个画布对象上复制部分图像到该画布 Canvas表示源画布 Source是源画布上要复制的图像区域 Dest表示目标画布上将接受复制图像的矩形区域

　　 Draw Draw（x y : Integer;Graphic : TGraphic）

　　此方法在画布给定的象素点坐标（x y）处画Graphic所给的图像 该图像可以是位图 图标或元位图

　　 Ellips Ellips（x y x y : Integer）

　　Ellips方法在画布指定的矩形边界上画一个椭圆 （x y ）是矩形左上角的象素坐标 x y 是矩形右下角的象素坐标 如果矩形形成一个区域 将出现一个椭圆

　　 LineTo LineTo（x y : Integer）

　　LineTo从当前位置画一条线至（x y）所指定的位置 并把笔的位置移至（x y）

　　 MoveTo MoveTo（x y : Integer）

　　MoveTo 将笔的当前位置设置到点（x y）处 笔的当前位置在PenPos属性中 改变笔的当前位置使用MoveTo方法 不要设法改变PenPos的值

　　 Die Die（x y x y x y x y : Longint）

　　Die方法绘制椭圆的一部分 椭圆由点（x y ） （x y ）所指定的矩形所决定 制的那部分由椭圆中心到（x y ） （x y ）两点的两条辐射线所决定

　　 Polygon Polygon（Points : array of TPrint）

　　Polygon方法在画布上绘制一系列的点 各点依次连成线 最后将首尾两点相接形成一个区域 并用当前笔刷填充此区域

　　 Polyline Polyline（Ports : array of TPort）

　　Polyline方法在画布上用当前画笔绘制一系列的点 各点依次连成线

　　 StretchDraw StretchDraw（Const Rect : TRcct : Graphic : TGraphic）

　　此方法在Rect参数指定的矩形内画一图像 图像延伸改变大小以适应矩形

　　 Rectangle Rectangle（X y x y : Integer）

　　Rectangle方法在画布上用当前画刷绘制矩形 （x y ）是矩形的左上角 （x y ）是矩形的右下角

　　 RomlRect RomlRect（（x y x y x y : Integer）

　　DrawFocuseRect

　　DrawFocusRect（Const Rect : TRect）

　　此方法绘制一矩形以指示此矩形获得焦点 此方法是异或（XOR）函数 第二次调用时原有矩形将消失 DrawFocuseRect绘制的矩形不能滚动 要实现滚动功能则先调用此方法使矩形消失 待滚动过后重新绘制

delphi bit类型

不好意思...一开始把Bit当做Byte了...
SQL Server中没有使用过这个类型,不过我在Aceess中测试可以当作Boolean类型读出来的.
if adoquery1.FieldByName(’e’冲亩).AsBoolean = false then
P.S.在网上查了很中简多资料,没有相关的具体说明,自己也不用卖判裤SQL Server很久了...