分类: Delphi预览模式: 普通 | 列表

IdHTTP ＋ RegExpr

作者:admin 日期:2010-04-02

目的：取得Web页面中的链接及链接文字。

操作：

  1.使用IdHTTP获取网页的源码。

查看更多...

Tags: IdHTTP RegExpr

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 38

疯了，是常态 （转）

作者:admin 日期:2010-04-02

<一>

用D7写了一个调用C#的WebService客户端程序。开了一个线程，定时访问WebSerice的接口。

程序在我的本本上（WINXP）测试时，跑的很欢畅。

查看更多...

Tags: 疯了

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 34

delphi操作excel

作者:admin 日期:2010-03-30

一) 使用动态创建的方法

首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );

查看更多...

Tags: excel

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 35

Delphi操作Excel命令

作者:admin 日期:2010-03-30



使用Excel最好用Comobj方式，它能够达到完全控制excel的目的。

不过这种方式在Delphi中没有代码提示,而使用Server控件的方式有！

查看更多...

Tags: excel

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 33

Delphi控制Excel的重要属性和方法

作者:admin 日期:2010-03-30

Delphi代码
  1. 在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制 excel的重要属性和方法。  
  2.   
  3. 　　首先给出通过OLE创建的一些主要代码步进行简单说明：  
  4.   
  5. 　　创建OLE对象：  
  6.   
  7.    
  8.   
  9. 　　Var olecon: TOleContainer;  
  10.   
  11. 　　Olecon:= TOleContainer.Create(self);  
  12.   
  13. 　　 Olecon.oleobject:= Olecon.CreateObject('excel.sheet',false)；  
  14.   
  15. 　 　或选择导入一个excel文件来创建OLE对象：  
  16. Olecon.oleobject:= Olecon.CreateObjectFromFile(xlsname,false)；  
  17.   
  18. 　 　最好隐藏excel的几个工具条,这样就好象是嵌在你的程序中的一个表而已了：  
  19.   
  20. 　 　Olecon.OleObject.application.CommandBars['Standard'].Visible:=false;  
  21.   
  22. 　 　Olecon.OleObject.application.CommandBars['Formatting'].Visible:=false;  
  23.   
  24. 　 　Olecon.OleObject.application.CommandBars['Reviewing'].Visible:=false；  
  25.   
  26. 　 　然后显示并激活excel表,对TOleContainer定义的对象：  
  27.   
  28. 　 　Olecon.show;  
  29.   
  30. 　　Olecon.doverb(0);  
  31.   
  32. 　 　这样基本可以了，但TOleContainer有个不好的地方，就是当你一点击其它控件是就它就失去焦点，然后就自动退出，其实并没有真的退出，只是需 要你再次激活它而已，关键是当它失去焦点的时候就excel对象就不见了，可以用Timage控件把TOleContainer所在的地方有EXCEL时 候的区域图片截下来骗骗用户，我们这里主要不是讲这个，就不详述了。  
  33.   
  34. 　　下面我们就开始讲Excel_TLB中的接口的常用属性和方法，主 要是针对导出和设定报表格式的一些接口元素。  
  35.   
  36. 　　单元格的读写属性：  
  37.   
  38. 　 　olecon.OleObject.application.cells.item[1,1];  
  39.   
  40. 　　 olecon.OleObject.application.cells(1,1);  
  41.   
  42. 　　 olecon.OleObject.application.cells[1,1].Value;  
  43.   
  44. 　 　上面三种都可以对工作表的‘A1’单元进行读写。  
  45.   
  46. 在delphi中对单元格(集)，区域，工作表等所有对象的操作都是要Variant来实现的。  
  47.   
  48. 　　自己的程序中选定区域赋给 Range:  
  49.   
  50. 　　Var range,sheet:Variant;  
  51.   
  52. 　　Range:= olecon.OleObject.application.Range['A1:C3'];  
  53.   
  54. 　 　或者：  
  55.   
  56. 　　Sheet:= olecon.OleObject.application.Activesheet;  
  57.   
  58. 　　Range:= olecon.OleObject.application.Range[sheet.cells[1,1],sheet.cells[3,3]];  
  59.   
  60. 　 　对上面的Range合并单元格：  
  61.   
  62. 　　 Range.merge;  
  63.   
  64. 　　Range. FormulaR1C1:=’合并区’；//合并后写入文本  
  65.   
  66. 　 　注意以后要读合并的单元格里面的文本就是读合并区域的左上角的那个单元格的文本  
  67.   
  68. 　　在excel表中选定区域赋给range：  
  69. range:=excel_grid1.OleObject.application.selection;  
  70.   
  71. 　 　拆分单元格：  
  72. Range.unmerge;  
  73.   
  74. 　 　合并后设定单元格（集）的格式：  
  75.   
  76. 　　 Range.HorizontalAlignment:= xlCenter;// 文本水平居中方式  
  77.   
  78. 　　 Range.VerticalAlignment:= xlCenter//文本垂直居中方式  
  79.   
  80. 　　 Range.WrapText:=true;//文本自动换行  
  81.   
  82. 　　Range.Borders.LineStyle:=1//加边框  
  83.   
  84. 　 　Range.Interior.ColorIndex:=39;//填充颜色为淡紫色  
  85.   
  86. 　　Range.Font.name:=’ 隶书’;//字体  
  87.   
  88. 　　Range.Font.Color:=clBlue;//字体颜色  
  89. 常用格式也就这些，以上这些对于单个单元格也适用。  
  90.   
  91. 　　在excel表中寻找前后上下的单元格：  
  92.   
  93. 　　Var u1,u2,u3,u4,u5:Variant;  
  94.   
  95. 　　 U1:=olecon.oleobject.application.activecell;//获取当前格；  
  96.   
  97. 　　 U2:=u1.previous;//非特殊情况就是u1左边的一格；  
  98.   
  99. 　　U3:=ui.next;//非特殊情况就是u2右边的一格；  
  100.   
  101. 　 　U4:=olecon.oleobject.application.cells[u1.cells.row-1,u1.cells.column]; //非特殊情况为上面一格  
  102.   
  103. 　　 U5:=olecon.oleobject.application.cells[u1.cells.row+1,u1.cells.column]; //非特殊情况为下面一格  
  104.   
  105. 　　删除和插入一行和一列：  
  106.   
  107. 　　 Olecon.oleobject.application.rows[2].delete;  
  108.   
  109. 　　 Olecon.oleobject.application.columns[2].delete;  
  110.   
  111. 　　 Olecon.oleobject.application.rows[2].insert;  
  112.   
  113. 　　 Olecon.oleobject.application.columns[2].insert;  
  114.   
  115. 　 　复制指定区域：  
  116. Olecon.oleobject.application.range[‘A1:C3’].copy;  
  117.   
  118. 　 　从指定单元格开始粘贴：  
  119. Olecon.oleobject.application.range[‘A4’].PasteSpecial;  
  120. 常用的就这些了，对delphi中server面板下的EXEL控件和创建EXCEL.Application COM对象的方式都适用   

Tags: excel

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 42

GDI+ 在Delphi程序的应用 -- 制作水印效果图片

作者:admin 日期:2010-03-18

  利用GDI+可以很方便的制作带水印效果的图片，网上介绍这方面的文章也很多，但鲜有Delphi的，本文参照网上文章http://www.codeproject.com/KB/GDI-plus/watermark.aspx介 绍的方法，用Delphi 2007制作水印效果图片，原代码如下：

Delphi代码
  1. unit Main;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, Gdiplus, StdCtrls;  
  8.   
  9. type  
  10.   TMainForm = class(TForm)  
  11.     Button1: TButton;  
  12.     procedure FormPaint(Sender: TObject);  
  13.     procedure FormCreate(Sender: TObject);  
  14.     procedure FormDestroy(Sender: TObject);  
  15.     procedure Button1Click(Sender: TObject);  
  16.   private  
  17.     { Private declarations }  
  18.     Photo: TGpImage;  
  19.     PhWidth: Integer;  
  20.     PhHeight: Integer;  
  21.     Watermark: TGpImage;  
  22.     WmWidth: Integer;  
  23.     WmHeight: Integer;  
  24.     Bmp: TGpBitmap;  
  25.   public  
  26.     { Public declarations }  
  27.   end;  
  28.   
  29. var  
  30.   MainForm: TMainForm;  
  31.   
  32. implementation  
  33.   
  34. uses GdipTypes;  
  35.   
  36. {$R *.dfm}  
  37.   
  38. procedure TMainForm.Button1Click(Sender: TObject);  
  39. var  
  40.   Clsid: TGUID;  
  41.   Parameters: TEncoderParameters;  
  42.   Quality: Integer;  
  43. begin  
  44.   // 设置图像品质编码参数  
  45.   Parameters.Count := 1;  
  46.   Parameters.Parameter[0].Guid := EncoderQuality;  
  47.   Parameters.Parameter[0].ValueType := EncoderParameterValueTypeLong;  
  48.   Parameters.Parameter[0].NumberOfValues := 1;  
  49.   // 设置参数的值：品质等级，最高为100，图像文件大小与品质成正比  
  50.   Quality := 100;  
  51.   Parameters.Parameter[0].Value := @Quality;  
  52.   
  53.   if GetEncoderClsid('image/jpeg', Clsid) then  
  54.     Bmp.Save('WatermarkPhoto.jpg', Clsid, @Parameters);  
  55. end;  
  56.   
  57. procedure TMainForm.FormCreate(Sender: TObject);  
  58. const  
  59.   ColorMatrix: TColorMatrix =  
  60.   (  
  61.     (1.0, 0.0, 0.0, 0.0, 0.0),  
  62.     (0.0, 1.0, 0.0, 0.0, 0.0),  
  63.     (0.0, 0.0, 1.0, 0.0, 0.0),  
  64.     (0.0, 0.0, 0.0, 0.3, 0.0),  
  65.     (0.0, 0.0, 0.0, 0.0, 1.0)  
  66.   );  
  67.   WorkingDirectory = '....Media';  
  68.   copyright = 'Copyright © 2008 - Maozefa';  
  69. var  
  70.   gp: TGpGraphics;  
  71.   imageAttr: TGpImageAttributes;  
  72.   strFormat: TGpStringFormat;  
  73.   font: TGpFont;  
  74.   x, y: Single;  
  75. begin  
  76.   // 读取原始图片  
  77.   Photo := TGpImage.Create(WorkingDirectory + '100_0349.jpg');  
  78.   PhWidth := Photo.Width;  
  79.   PhHeight := Photo.Height;  
  80.   // 读取水印图片  
  81.   Watermark := TGpImage.Create(WorkingDirectory + 'Watermark.bmp');  
  82.   WmWidth := Watermark.Width;  
  83.   WmHeight := Watermark.Height;  
  84.   // 建立一个新的位图，分辨率为72  
  85.   Bmp := TGpBitmap.Create(PhWidth, PhHeight, pf32bppArgb);  
  86.   Bmp.SetResolution(72, 72);  
  87.   // 建立新位图的画布，并设置图像显示质量和文本显示质量  
  88.   gp := TGpGraphics.Create(Bmp);  
  89.   gp.SmoothingMode := smAntiAlias;  
  90.   gp.TextRenderingHint := thAntiAlias;  
  91.   // 在画布上画原始图片  
  92.   gp.DrawImage(Photo, GpRect(0, 0, PhWidth, PhHeight),  
  93.                0, 0, PhWidth, PhHeight, utPixel);  
  94.   // 建立图像显示辅助类  
  95.   imageAttr := TGpImageAttributes.Create;  
  96.   // 设置透明颜色为水印图片四角的底色，水印图显示为圆角图片  
  97.   imageAttr.SetColorKey($ff00ff00, $ff00ff00, ctBitmap);  
  98.   // 设置水印图片不透明度为0.3  
  99.   imageAttr.SetColorMatrix(ColorMatrix, cfDefault, ctBitmap);  
  100.   // 在画布左上角画水印图  
  101.   gp.DrawImage(Watermark, GpRect({PhWidth - WmWidth - }10, 10, WmWidth, WmHeight),  
  102.                0, 0, WmWidth, WmHeight, utPixel, imageAttr);  
  103.   // 设置文本字体和显示格式  
  104.   font := TGpFont.Create('arial', 16, [fsBold]);  
  105.   strFormat := TGpStringFormat.Create;  
  106.   strFormat.Alignment := saCenter;  
  107.   // 在画布下方居中显示阴影文本  
  108.   x := PhWidth / 2;  
  109.   y := PhHeight - 26;  
  110.   gp.DrawString(copyright, font, Brushs[$99000000], x + 1, y + 1, strFormat);  
  111.   gp.DrawString(copyright, font, Brushs[$99ffffff], x, y, strFormat);  
  112.   
  113.   font.Free;  
  114.   strFormat.Free;  
  115.   imageAttr.Free;  
  116.   gp.Free;  
  117. end;  
  118.   
  119. procedure TMainForm.FormDestroy(Sender: TObject);  
  120. begin  
  121.   Photo.Free;  
  122.   Watermark.Free;  
  123.   Bmp.Free;  
  124. end;  
  125.   
  126. procedure TMainForm.FormPaint(Sender: TObject);  
  127. var  
  128.   g: TGpGraphics;  
  129. begin  
  130.   g := TGpGraphics.Create(Canvas.Handle);  
  131.   // 显示原始图片  
  132.   g.DrawImage(Photo, 0, 0, PhWidth, PhHeight);  
  133.   // 显示水印原始图片  
  134.   g.TranslateTransform(0, PhHeight + 5);  
  135.   g.DrawImage(Watermark, 0, 0, WmWidth, WmHeight);  
  136.   // 显示带水印和文本的图像  
  137.   g.TranslateTransform(PhWidth, -(PhHeight + 5));  
  138.   g.DrawImage(Bmp, 0, 0, PhWidth, PhHeight);  
  139.   g.Free;  
  140. end;  
  141.   
  142. end.  

  代码中已经进行了注释，不再累叙，针对本文所参考的文章内容（Addr:http://www.codeproject.com/KB/GDI-plus/watermark.aspx）， 作几点说明：

    1、在参考的文章中，对文本字体、显示位置进行了测试和计算，本文为强调主要内容，对这些代码进行了简化；

    2、在水印底色透明处理中，原文采用的是TGpImageAttributes.SetRemapTable方法，而本文采用的则是 TGpImageAttributes.SetColorKey方法，效果是一样的，具体原理可参照我的文章《GDI+ 在Delphi程序的应用 -- 图像的透明显示技巧》；

查看更多...

Tags: 图片 水印

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 37

Delphi与SQL模糊查询

作者:admin 日期:2010-03-16

Delphi代码
  1. 模糊查询  
  2.   
  3.   
  4. 1．用变量进行模糊查询  
  5. 对数据进行模糊查询主要用SQL语句LIKE来实现。该语句放在Where语句的后面，使用标识符“%”、“_”、“[]”、“[^]”对数据进行模糊查询。  
  6. 例如，对姓名为“王”，并且姓名为两个字的学生信息。  
  7. Select * FROM MR_Student where 姓名 like '林_'  
  8. 例如，查询数学成绩在70~79之间的学生信息。  
  9. Select * FROM MR_Student where 数学 like '7[0123456789]'  
  10. 例如，查询除三年级二班的所有学生信息。  
  11. Select * FROM MR_Student where 班级 like '三年[^二]_'  
  12. 例如，查询三年级的所有学生信息。  
  13. Select * FROM MR_Student where 班级like '三*'  
  14. 下面对姓名进行模糊查询，只要在“姓名”文本框中输入名字中的任意一个字，便可以查找相关人员的信息。  
  15. 操作步骤如下：  
  16. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。  
  17. （2）主要程序代码如下：  
  18.   with ADOQuery1 do  
  19.   begin  
  20.     close;  
  21.     SQL.Clear;  
  22.     SQL.Add('Select * FROM MR_Student where 姓名 like '+''''+'%'+Trim(edit1.Text)+'%'+'''');  
  23.     open;  
  24.   end;  
  25. 上面的SQL语句也可以写成如下形式：  
  26. SQL.Add('Select * FROM MR_Student where 姓名 like ''%'+Trim(edit1.Text)+'%''');  
  27.   
  28.   
  29. 2．使用参数进行模糊查询  
  30. 在Delphi中进行模糊查询时，可以用TADOQuery组件来向SQL语句中传递参数。  
  31. 其格式为：“Like:参数名”。  
  32. 利用TADOQuery组件的ParamByName方法将值传递给参数。  
  33. * 注意：在Like后面必须加空格。  
  34. 下面用TADOQuery组件进行参数传递，并对数据进行模糊查询。  
  35. 操作步骤如下：  
  36. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。  
  37. （2）主要程序代码如下：  
  38.   with ADOQuery1 do  
  39.   begin  
  40.     close;  
  41.     SQL.Clear;  
  42.     SQL.Add('Select * FROM MR_Student where 姓名 like :aa');  
  43.     Parameters.ParamByName('aa').Value:='%'+trim(Edit1.text)+'%';  
  44.     open;  
  45.   end;  
  46.     
  47.     
  48. 3．复杂模糊查询  
  49. 在对信息进行模糊查询的时候，也可以通过逻辑运算符（AND、OR、NOT）插入其他的查询条件来提高查询的速度。  
  50. 下面是模糊查询和其他查询方法相结合而形成的复杂模糊查询。  
  51. 操作步骤如下：  
  52. （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton、TComboBox和TDBGrid等组件。  
  53. （2）主要程序代码如下：  
  54.   if CheckBox1.Checked=true then  
  55.    Str := ' and 班级='+''''+ComboBox1.Text+''''  
  56.   else  
  57.    ComboBox1.Enabled := False;  
  58.   with ADOQuery1 do  
  59.   begin  
  60.    close;  
  61.    SQL.Clear;  
  62.    SQL.Add('Select * FROM MR_Student where 姓名 like ''%'+Trim(edit1.Text)+'%'''+Str);  
  63.    open;  
  64.   end;  

Tags: Delphi SQL 模糊 查询

分类:Delphi | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 39