随笔分类 -  Delphi

上一页 1 2 3 4 下一页
indy 10.5.7的数据发送接收的用法
摘要：TMyData = record id:Integer; Name:Array[0..20] of Char; Sex:Array[0..10] of Char; Age:Byte; Address:Array[0..256] of Char; UpdateTime:double; end;//发送结构体：procedure TForm2.Button2Click(Sender: TObject);var SendData:TMyData;beginSendData.ID:=10;StrPCopy(SendData.Name,'Wyatt');StrPCopy(SendData 阅读全文
posted @ 2011-07-23 16:55 许明吉博客 阅读(2162) 评论(0) 推荐(0)
关于三语 (简体、繁体、英语) 切换的尝试
摘要：编辑器加载中...在空白窗体上添加 PopupMenu1, 并添加几个测试用的菜单项, 分别命名为: m1、m2、m3、mCn、mBig、mEn;激活 mCn 的 OnClick 事件和窗体的 OnCreate 事件.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus;type TForm1 = class(TForm) PopupMenu1: TPopupMenu; m1: TMenuItem; 阅读全文
posted @ 2011-07-22 17:14 许明吉博客 阅读(513) 评论(1) 推荐(0)
Delphi7组件安装工具 DelphiPI
摘要：Delphi组件安装工具 DelphiPIhttp://www.oschina.net/p/delphipiDelphiPI 是一个用于安装delphi组件的工具,DelphiPI 自动解决bpl包之间的依赖关系,并且编译,安装和添加目录到delphi IDE上。 阅读全文
posted @ 2011-07-22 16:50 许明吉博客 阅读(967) 评论(0) 推荐(0)
Delphi2010安装TWordApplication控件
摘要：Component->Install packages...->Add... 安装 dcloffice2k140.bpl 即可。（dcloffice2k140.bpl 位于 C:\Program Files\Embarcadero\RAD Studio\7.0\bin） 阅读全文
posted @ 2011-07-22 13:58 许明吉博客 阅读(1887) 评论(0) 推荐(0)
WebService获取服务端硬件信息和客户端IP,MAC,浏览器信息，所在城市-
摘要：using System;using System.Collections;using System.ComponentModel;using System.Data;using System.Diagnostics;using System.Web;using System.Web.Services;using System.Web.UI;using System.Web.UI.WebControls;using System.Web.UI.HtmlControls;using System.Management;using System.Net;using System.Runtime.I 阅读全文
posted @ 2011-07-21 18:03 许明吉博客 阅读(1789) 评论(0) 推荐(0)
delphi 调用 C#写的webservice
摘要：看以下的一个例子(转)先用vs.net创建一个简单的webservices;1.打开vs.net2003 新建一个webservises 命名为WebService1 2.添加两个WebMethod[WebMethod] public string HelloWorld() { return "Hello World 用.NET写的web服务!!^_^ "; } [WebMethod] public string datetostr(DateTime dt)//将时间转换为字符 { return dt.ToUniversalTime().ToString(); } 完整代码 阅读全文
posted @ 2011-07-21 16:32 许明吉博客 阅读(5474) 评论(0) 推荐(0)
WebBrowser组件和MSHTML 在Delphi中的使用
摘要：由于项目需要，近来研究了一下WebBrowser组件和MSHTML 在Delphi中的使用,整理了一下这段时间研究的结果,写下来一是方便大家查阅,二也可以加深我自己的记忆.希望能对大家有所帮助… …,同时,如果有更好的处理方式或者我没有提到的问题,请大家也告诉我哦, 咱们一块进步… ...,其中一部分是我从网络中搜集的资料,谢谢那些兄弟们… …MSHTML把HTML页面中的元素封装成了IHTMLInputElement、 IHTMLInputButtonElement、IHTMLInputTextElement、IHTMLTextAreaElement、IHTMLTitleElement、IH 阅读全文
posted @ 2011-07-18 09:21 许明吉博客 阅读(2518) 评论(0) 推荐(0)
一个最简单的Delphi2010的PNG异形窗口方法
摘要：同事演示了一个.NET的的PNG异形窗口.挺漂亮.于是也想用Delphi显摆一个.关于Delphi用PNG做异形窗口的资料有不少.都是用GDIPlus或者TPNGImage组件加载PNG图像做的.但是我很懒,不想引用的GDIPlus,也不想去找PNGImage下载.好在从Delphi2009开始Delphi中就收购了PNGImage,并集成到后继的版本中.Delphi2010又包装了微软的IWICImagingFactory接口,这样处理PNG的工作就交给操作系统去做了.函数很简单一共就几行,关键就是UpdateLayeredWindow.发现CodeGear真让我上火.他们收工了PNGIma 阅读全文
posted @ 2011-06-02 10:12 许明吉博客 阅读(5602) 评论(1) 推荐(0)
Delphi2010中Windows7新的taskbar功能的使用
摘要：Windows7正式版已经用了很久了.MSDN上面正式版Windows7已经发布很久了.发现Windows7的TaskBar很漂亮.也有很多功能.例如IE下载的时候可以看到进度,可以叠加图标等等特效.Delphi2010也发布很久了,Delphi2010号称支持Windows7的新增API.那么看看有没有TaskBar相关的API.一提到Taskbar相关,首先就想到ITaskBarList不同版本接口.到shlobj单元一看,果然增加了ITaskbarList3,ITaskbarList4两个新版本的接口.老办法CreateComObject(CLSID_TaskbarList)就行了.返回 阅读全文
posted @ 2011-06-02 10:11 许明吉博客 阅读(1895) 评论(0) 推荐(0)
Delphi安装控件时file not found:designIntf.dcu 时的解决方法
摘要：新建一个Proxies.pas文件写入一下内容unitProxies;interfaceFunctionIsProxyClass(ComponentClass:TClass):Boolean;implementationFunctionIsProxyClass(ComponentClass:TClass):Boolean;beginResult:=True;end;end.然后放到\Borland\Delphi7\Source\ToolsAPI在把\Borland\Delphi7\Source\ToolsAPI添加到LibraryPath就可以了 阅读全文
posted @ 2011-04-13 12:02 许明吉博客 阅读(3161) 评论(0) 推荐(0)
delphi 运行时拖动控件
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) btn1: TButton; Main1: TImage; pnl1: TPanel; btn2: TButton; procedure btn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure 阅读全文
posted @ 2011-04-13 11:28 许明吉博客 阅读(4546) 评论(0) 推荐(0)
THintWindow
摘要：unit wdHintWnd2;interfaceuses Windows, Classes, Controls, Graphics, Forms, SysUtils, ExtCtrls;type TwdHintWnd = class(THintWindow) private FHintBmp: TBitmap; //提示信息位图 protected procedure CreateParams(var Params: TCreateParams); override; procedure Paint; override; procedure NCPaint(DC: HDC); overrid 阅读全文
posted @ 2011-04-13 10:45 许明吉博客 阅读(1089) 评论(0) 推荐(0)
仿 Delphi 设计虚线背景
摘要：procedure TForm1.DrawBackground;var FScale : integer; FGridX :double; FGridY :double; procedure Line(x, y, x1, y1: Integer); begin Canvas.MoveTo(x, y); Canvas.LineTo(x1, y1); end; function ReverseColor(AColor: TColor): TColor; var iR0, iR1, iG0, iG1, iB0, iB1: integer; begin iR0 := GetRValue(AColor) 阅读全文
posted @ 2011-04-12 16:34 许明吉博客 阅读(602) 评论(0) 推荐(0)
Delphi TPicture 和 TBitmap 的相互转换
摘要：TPicture转 TBitmap TempBmp.width:=100; TempBmp.height:=100; TempBmp.canvas.Draw(0,0,m_PicMouseOn.Graphic);//PicMouseOnj是TPictrue类型;TBitmap转 TPicturePicMouseOnj.Pictrue.Graphic:=TempBmp;//TempBmp是TBitmap类型 阅读全文
posted @ 2011-04-08 09:57 许明吉博客 阅读(2850) 评论(0) 推荐(0)
delphi 窗体最大化 最小化
摘要：procedure TForm1.SpeedButton2Click(Sender: TObject);beginsendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化 任务栏中end;procedure TForm1.SpeedButton2Click(Sender: TObject);beginform1.WindowState := wsMaximized;//窗体最大化end;procedure TForm1.SpeedButton2Click(Sender: TObject);beginform1.WindowS 阅读全文
posted @ 2011-04-06 12:23 许明吉博客 阅读(14423) 评论(0) 推荐(0)
Delphi TRect的宽和高
摘要：Var CRect:TRect; Width,Height:integer;Begin CRect:=Rect(10,10,50,60); Width:=WidthOf(CRect);//取宽度 Height:=HeighthOf(CRect);//取高度End; 阅读全文
posted @ 2011-04-06 09:46 许明吉博客 阅读(1190) 评论(0) 推荐(0)
Delphi 正则表达式起步
摘要：http://www.docin.com/p-100214569.htmlhttp://wenku.baidu.com/view/fc2dea5f804d2b160b4ec003.html 阅读全文
posted @ 2011-03-28 10:50 许明吉博客 阅读(188) 评论(0) 推荐(0)
Delphi 动画窗体
摘要：AnimateWindow(Handle, 200, AW_CENTER);AnimateWindow 函数功能：该函数能在显示与隐藏窗口时能产生特殊的效果。有两种类型的动画效果：滚动动画和滑动动画。 函数原型：BOOL AnimateWindow（HWND hWnd，DWORD dwTime，DWORD dwFlags）； 参数： hWnd：指定产生动画的窗口的句柄。 dwTime：指明动画持续的时间（以微秒计），完成一个动画的标准时间为200微秒。 dwFags：指定动画类型。这个参数可以是一个或多个下列标志的组合。标志描述： AW_SLIDE：使用滑动类型。缺省则为滚动动画类型。当使用A 阅读全文
posted @ 2011-03-26 22:29 许明吉博客 阅读(2082) 评论(0) 推荐(0)
DELPHI读取网页源文件和获取字符串
摘要：说到网页采集，通常大家以为到网上偷数据，然后把到收集到的数据挂到自己网上去。其实也可以将采集到的数据做为公司的参考，或把收集的数据跟自己公司的业务做对比等。 目前网页采集多为3P代码为多（3P即ASP、PHP 、JSP）。用得最有代表的就动易科技公司BBS中新闻采集系统，和网上流传的新浪新闻采集系统等都是用ASP程序来使用，但速度从理论上来说不是很好。如果尝试用其它软件的多线程采集是不是更快？答案是肯定的。用DELPHI、VC、VB、JB都可以，PB似乎比较不好做。以下用DELPHI来解释采集网页数据。 一、 简单的新闻采集 新闻采集是最简单的，只要识别标题、副题、作者、出处、日期、新闻主体、 阅读全文
posted @ 2011-03-25 11:16 许明吉博客 阅读(1111) 评论(0) 推荐(0)
DELPHI WM_CopyData 用法
摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject);private { Private declarations }public procedure MyCopyDataMsg 阅读全文
posted @ 2011-03-23 17:24 许明吉博客 阅读(5181) 评论(0) 推荐(0)

上一页 1 2 3 4 下一页