本文目录
- Delphi7 如何读取access 表中的 OLE 对象
- 如何使用Delphi7里timer控件
- 80例上手Delphi7教程(完全版)
- 请教一下高手，我用delphi7编了一个程序，如何将程序中数据保存为一个自定义后缀名的文件
- 求Delphi教程 最好是Delphi7的
- 毫无编程经验，想自学用delphi7，请问可行吗能不能推荐本书或视频教程什么的大概按什么步骤学呢
Delphi7 如何读取access 表中的 OLE 对象
直接显示到DBGRID中是不可能的，你只能通过点击DBGRID 中这个BLOB字段的时候在适当的位置弹出一个窗口显示该图片
如：
1.datasource、datatable、dbgrid之间的关联
2.创建一窗体用image专门显示表中的blob
// 显示图象函数
// 返回值表示图象显示是否成功
// 显示图象函数，pictype 可为：’BMP’ ’JPG’ ’JPEG’function ViewPicture(img:TImage; query:TADOQuery; fieldname:String; pictype:String):boolean;
var
jpg : TJpegImage;
ts : TStream;
gif : TGifImage;
begin
result := false;
pictype := LowerCase(pictype);
try
ts := query.CreateBlobStream(query.FieldByName(fieldname),bmRead);
if ts.Size=0 then exit;
if (pictype=’bmp’) or (pictype=’image/bmp’) then
begin
try
img.Picture.Bitmap.LoadFromStream(ts);
result := true;
except
end;
end;
if (pictype=’jpg’) or (pictype=’image/pjpeg’) then
begin
jpg := TJpegImage.Create;
try
jpg.LoadFromStream(ts);
img.Picture.Bitmap.Assign(jpg);
result:=true;
finally
jpg.Free;
end;
end;
if (pictype=’gif’) or (pictype=’image/gif’) then
begin
gif := TGifImage.Create;
try
gif.LoadFromStream(ts);
img.Picture.Bitmap.Assign(gif);
result:=true;
finally
gif.Free;
end;
end;
ts.Free;
except end;
end;
3.设计点击DBGRID列标志时弹出显示图片窗口
如何使用Delphi7里timer控件
一、 发起封面完成思绪 为了完成发起封面的效果，我们要在delphi中运用两个窗体。一个窗体A用于显现顺序的发起封面，而另一个为顺序的主窗体B包括了您所想象的种种功用。窗体A是一个非规则窗口，其标题栏及最大化、最小化按钮和边框都被屏蔽掉了，其用一个Image控件装载一个图片文件来显现顺序的封面，并用一个timer控件完成该窗口的定时封锁。为了便利顺序运用者快速跳过发起封面直接进入顺序主窗体，我们还要设置一个click事情来封锁窗体A并调用主窗体B。 二、操作详细方法 1、 请先在delphi6。0中创立一个运用顺序及主窗体。选择主菜单下的File。New。Application命令，这个操作将创立一个运用顺序和一个主窗体。随后将主窗体的name属性由form1改为Ma。rm，主窗体的其他状况在此不详述，请依据您所想象的运用顺序功用自行操作。 2、 制造顺序发起封面的图片。图片的大小您应当细细考虑一下，为此笔者还特地将foxmail4。0的发起封面用抓图软件抓了下去，在绘图软件中细细丈量了一下。其大小为380×240，笔者觉得foxmail这款主流软件在想象发起封面的大小时肯定停止过周全的考虑。故建议您也采用这个尺寸，当然您也可以自行设置发起封面的大小。（请考虑当今盛行的屏幕主区分率是800×600）在制造发起封面时要考虑您所编制软件的功用及称号，软件的封面是给人的第一印象。假设您的软件是要在市场上推行的话，建议您找专业的美工想象师来想象一番为好！笔者在此偷懒了一番，随意去因特网抓了一幅景色画用paint shop pro减少了图片的尺寸便做为了封面。另外图片的格式最好为gif或许jpg格式，这样在编译进去的顺序不致于太肥。 3、 增加封面窗体，请点击delphi工具栏中的new form按钮。创立一个新窗体，并在其上增加一个 Image控件，并且选中Image控件并在属性框中找到picture属性点左边的小按钮。在弹出的图像编辑窗口中，单击load键载入您所制造的封面。然后将Image控件的Autosize属性设为True，这样Image控件便能自动顺应图片的大小了。为了完成发起封面的定时封锁，再增加一个Timer控件，将其enable属性设为true以触发ontimer事情，Interval属性设为5000(即5秒)，这两项属性操作便是在窗体显现5秒后触发ontimer事情来封锁窗口。 图一 4、 设置封面窗体属性使之契合发起封面恳求。请修正下列封面窗体属性： Position = PoscreenCenter 。。运转时居于屏幕中央 Autosize = true 。。自动顺应Image控件，使发起图片完整显现 BorderStyle = bsnone 。。窗口无标题栏及最大化、最小化及封锁按钮和边框 Name = splashform 三、 顺序代码解析 选择主菜单下的Project。View Scource 命令，翻开这个项手段项目文件。依据下列代码停止修正。 program Project2; uses Forms,Controls, Unit1 in ’Unit1。pas’ {MainForm}, Unit2 in ’Unit2。pas’ {SplashForm}; {$R *。res} begin Application。Initialize; SplashForm :=TSplashForm。Create(Application); 。。创立splash窗体 SplashForm。ShowModal; 。。以形式对话框的方式显现splash窗体 if (SplashForm。ModalResult = mrOK) then 。。假设定经常间到或单击了窗体上的图形 begin Application。Title := ’测试Splash窗体’; 。。设置运用顺序的标题 Application。CreateForm(TMainForm, MainForm); 。。自动方式创立的主窗体 SplashForm。Hide; 。。将发起封面窗体隐藏 SplashForm。Release; 。。将发起封面窗体肃清 Application。Run; end; end。 随后在splash窗体上编写下列事情代码 procedure TSplashForm。Timer1Timer(Sender: TObject); begin SplashForm。ModalResult:= mrOK; 。。定经常辰到后的事情处置顺序 end; procedure TSplashForm。Image1Click(Sender: TObject); begin SplashForm。ModalResult:= mrOK; 。。单击splash窗体上图像的事情处置顺序 end;2011-10-24 5:53:18
80例上手Delphi7教程(完全版)
http://www.ourdev.cn/bbs/bbs_content.jsp?bbs_sn=840715&bbs_page_no=1&bbs_id=1036这个可以
请教一下高手，我用delphi7编了一个程序，如何将程序中数据保存为一个自定义后缀名的文件
1.你自己的文件，文件的命名完全由你自己决定。2.打开、创建文件的方式很多种， 例如使用操作系统级别的函数中的 CreateFile、ReadFile、WriteFile等 例如使用 Delphi 提供的文件操作函数 AssignFile、Readln、Writeln等 例如使用流来控制，如TFileStream等3.具体采用哪种方式通常根据你使用的文件的特点或你熟悉的程度来选择
求Delphi教程 最好是Delphi7的
上电驴，搜“中山大学delphi”有delphi7的视频教程，很全面。不过我感觉太大了。。。学delphi不能光看视频，否则效果不好，你在网上先搜一下“pascal精要”中文版的，学学，不学pascal，是不可能学好delphi的。入门的书籍《delphi7从入门到精通》，《delphi开发技术大全》（明日科技出版）很不错。有空可以加我好友，一起学习delphi。我也用delphi7。qq发消息即可。
毫无编程经验，想自学用delphi7，请问可行吗能不能推荐本书或视频教程什么的大概按什么步骤学呢
可以学的!我就是一点编程经验都没有.慢慢学会的书,不用推荐,可以百度找些Delphi相关的电子书刚开始学的时候,重要的是语法.将那些变量啊,循环啊,判断,数组等都了解了然后自己按着书上一些实例,抄着写下代码.