07 2011 档案

Delphi 自制Office风格按键
摘要：unit MyOfficeButton;interfaceuses SysUtils, Classes, Controls,Ribbon,RibbonActnCtrls,RibbonStyleActnCtrls,forms,Windows,Math, Dialogs,Graphics,ActnMan,ActnMenus,Messages;type TMyOfficeButton = class(TOffice2007Button) private FCaptionHeight: Integer; FDefaultColorMap: TCustomActionBarColorMap; FColo 阅读全文
posted @ 2011-07-27 17:51 许明吉博客 阅读(1214) 评论(0) 推荐(0)
C#中Request.ServerVariables详细说明及代理
摘要：Request.ServerVariables("Url")返回服务器地址Request.ServerVariables("Path_Info")客户端提供的路径信息Request.ServerVariables("Appl_Physical_Path")与应用程序元数据库路径相应的物理路径Request.ServerVariables("Path_Translated")通过由虚拟至物理的映射后得到的路径Request.ServerVariables("Script_Name")执行脚本的名称 阅读全文
posted @ 2011-07-25 14:47 许明吉博客 阅读(9388) 评论(0) 推荐(0)
在WCF服务中获取客户端的IP地址和端口号
摘要：版权声明请尊重原创作品。转载请保持文章完整性，并以超链接形式注明原始作者“tingsking18”和主站点地址，方便其他朋友提问和指正。view plainusingSystem;usingSystem.ServiceModel;usingSystem.ServiceModel.Channels;namespaceWcfService3{//注意:如果更改此处的类名“Service1”，也必须更新Web.config和关联的.svc文件中对“Service1”的引用。publicclassService1:IService1{publicstringGetData(intvalue){//提供 阅读全文
posted @ 2011-07-25 14:29 许明吉博客 阅读(950) 评论(0) 推荐(0)
Delphi:界面美化,用网页做界面
摘要：Delphi:界面美化,用网页做界面用TWebBrowser控件设置显示的网页,如果在本地则写全路径,放到窗体的create或show事件中var str:string;begin str:=ExtractFilePath(Application.ExeName)+test.html ; //程序目录下的test.html页 webbrowser1.Navigate(str);End;假设网页中有一个链接控件的OnBeforeNavigate2事件procedure TFmain.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: 阅读全文
posted @ 2011-07-25 12:06 许明吉博客 阅读(3506) 评论(0) 推荐(0)
判断是否联网
摘要：判断是否联网在uses中加入WinInetif InternetCheckConnection('http://www.sina.com.cn',1,0) thenbegin showmessage('在线');endelsebegin showmessage('离线');end;或直接用ping后，查看(0% loss)或(100% loss)，可知在线或离线 阅读全文
posted @ 2011-07-25 11:56 许明吉博客 阅读(438) 评论(0) 推荐(0)
[代码]Delphi实现窗体内嵌其他应用程序窗体
摘要：实现原理是启动一个应用程序，通过ProcessID得到窗体句柄，然后对其设定父窗体句柄为本程序某控件句柄(本例是窗体内一个Panel的句柄)，这样就达成了内嵌的效果。本文实现的是内嵌一个记事本程序，如下图：在实现细节上需要注意几点：为了美化程序的嵌入效果，需要隐藏其标题栏在外部窗体大小变化时，需要内嵌的窗体也随之变化大小外部程序退出时，内嵌的程序也要退出下面是例子程序。新建窗体，上面放置一个Panel控件，名为pnlApp，然后按下面代码编写：view sourceprint?unitfrmTestEmbedApp;interfaceusesWindows, Messages, SysUtil 阅读全文
posted @ 2011-07-25 11:54 许明吉博客 阅读(6770) 评论(0) 推荐(0)
Delphi获取公网IP地址函数
摘要：Delphi获取公网IP地址函数1usesIdHTTP;2functionGetPublicIP:string;3var4strIP,URL:string;5iStart,iEnd:Integer;6MyIdHTTP:TIdHTTP;7begin8Result:='';9MyIdHTTP:=TIdHTTP.Create(nil);10try11try12URL:=MyIdHTTP.Get('http://www.ip138.com/ip2city.asp');13except14end;15finally16MyIdHTTP.Free;17end;1819ifL 阅读全文
posted @ 2011-07-25 11:37 许明吉博客 阅读(4431) 评论(0) 推荐(0)
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 许明吉博客 阅读(2160) 评论(0) 推荐(0)
Shortcut to winsiggen.exe C++ 头文件转C#
摘要：Shortcut to winsiggen.exe 阅读全文
posted @ 2011-07-22 17:33 许明吉博客 阅读(801) 评论(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 许明吉博客 阅读(512) 评论(1) 推荐(0)
Delphi7组件安装工具 DelphiPI
摘要：Delphi组件安装工具 DelphiPIhttp://www.oschina.net/p/delphipiDelphiPI 是一个用于安装delphi组件的工具,DelphiPI 自动解决bpl包之间的依赖关系,并且编译,安装和添加目录到delphi IDE上。 阅读全文
posted @ 2011-07-22 16:50 许明吉博客 阅读(965) 评论(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)
Delphi 操作webservice返回值为dataset的处理办法
摘要：在微软中国找到了一个官方的说法------不建议将DataSet直接作为返回值传送，因为里面含有大量复杂的schema以及更改等信息，大部分非.NET语言在解析上有困难。建议使用DataSet.WriteXML方法将简化后的XML版本作为一个WideString回传。经过试验，已经在Delphi下轻松通过，Delphi中还需要使用XML Mapper工具事先生成Transfomation(XTR)文件。 Delphi7客户端代码 ----------------------------------------------------------------------------------- 阅读全文
posted @ 2011-07-22 11:22 许明吉博客 阅读(3885) 评论(0) 推荐(0)
天气预报WebServer接口
摘要：http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx可以试着用delphi调用啊 阅读全文
posted @ 2011-07-22 10:03 许明吉博客 阅读(1336) 评论(0) 推荐(0)
delphi 2010 播放GIF动画
摘要：delphi 播放 GIF 动画 阅读全文
posted @ 2011-07-22 09:44 许明吉博客 阅读(1569) 评论(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 许明吉博客 阅读(1788) 评论(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 许明吉博客 阅读(5473) 评论(0) 推荐(0)
C# 判断键盘Ctrl、Shift、Alt键
摘要：if ((Control.ModifierKeys & Keys.Control) == Keys.Control) //判断Ctrl键if ((Control.ModifierKeys & Keys.Control) == Keys.Control && e.KeyCode == Keys.V)//判断Ctrl+V键if ((Control.ModifierKeys & Keys.Shift) == Keys.Shift)//判断Shift键if ((Control.ModifierKeys & Keys.Alt) == Keys.Alt)// 阅读全文
posted @ 2011-07-18 18:08 许明吉博客 阅读(5174) 评论(0) 推荐(0)
WebBrowser组件和MSHTML 在Delphi中的使用
摘要：由于项目需要，近来研究了一下WebBrowser组件和MSHTML 在Delphi中的使用,整理了一下这段时间研究的结果,写下来一是方便大家查阅,二也可以加深我自己的记忆.希望能对大家有所帮助… …,同时,如果有更好的处理方式或者我没有提到的问题,请大家也告诉我哦, 咱们一块进步… ...,其中一部分是我从网络中搜集的资料,谢谢那些兄弟们… …MSHTML把HTML页面中的元素封装成了IHTMLInputElement、 IHTMLInputButtonElement、IHTMLInputTextElement、IHTMLTextAreaElement、IHTMLTitleElement、IH 阅读全文
posted @ 2011-07-18 09:21 许明吉博客 阅读(2517) 评论(0) 推荐(0)
C# 图片文件保存到XML中
摘要：using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Text;using System.Windows.Forms;using System.Xml;using System.IO;namespace WindowsFormsApplication4{ public partial class Form1 : Form { public Form1() { InitializeComponent( 阅读全文
posted @ 2011-07-15 15:17 许明吉博客 阅读(2469) 评论(0) 推荐(0)
C# 做 Pro/ENGINEER二次开发
摘要：本段解说怎样去使用 C# 去包装到Pro/ENGINEER的连接。标题简单异步模式启动和停止Pro/ENGINEER连接到一个Pro/ENGINEER的进程完整异步模式C# 程序疑难解答简单异步模式一个简单异步模式程序不实现Pro/ENGINEER来的要求句柄的途径。因此，C#不能安插当在Pro/ENGINEER里发生事件而被通知的侦听。相应的，Pro/ENGINEER不能调用当你增加时必须提供的方法，例如，Pro/ENGINEER的菜单按钮。由于这个限制，一个简单异步模式程序可以用来自动化Pro/ENGINEER里的进程。程序可能既启动或连接到一个存在的Pro/ENGINEER会话，也可能在 阅读全文
posted @ 2011-07-11 17:43 许明吉博客 阅读(2276) 评论(0) 推荐(0)
C#+SQL Server图片存取
摘要：有时候我们需要保存一些binary data进数据库。SQL Server提供一个叫做image的特殊数据类型供我们保存binary data。Binary data可以是图片、文档等。准备工作，在库Im_Test中建立一张表Im_Info，此表中有两个字段，分别为Pr_Id （INT），Pr_Info (IMAGE)，用来存储图形编号及图形信息。其语法如下：CREATETEALEIm_Info(Pr_IdINTNULL，Pr_InfoIMAGENULL)第一步: 往表中插入一条记录，并初始化PR_INFO字段。其语法如下：INSERTINTOIm_InfoVALUES（1，0xFFFFFFF 阅读全文
posted @ 2011-07-11 17:31 许明吉博客 阅读(4300) 评论(0) 推荐(0)
C# WinForm技巧“将Form嵌入到Panel”
摘要：虽然有 TabControl控件, 但是为了减少主窗体的代码量, 可以将部分分页的功能模块放置于一个 Form 中, 当调用时, 直接把这个 Form嵌入到一个 Panel中即可.示例如下:要嵌入的 Form: publicpartialclassFormEmbed:Form{publicFormEmbed(){InitializeComponent();}privatevoidbutton1_Click(objectsender,EventArgse){this.Hide();//不能调用Close方法,因为Close后Form被释放,就不能再次Show}}主窗体中放置一个容器Panel(或 阅读全文
posted @ 2011-07-11 17:29 许明吉博客 阅读(1581) 评论(1) 推荐(0)
C# 调用Dll 传递字符串指针参数 .
摘要：最近用c#写一个小软件，要调用VC写的dll,传递参数给dll,由于是非托管代码，所以调用起来有点麻烦，要把参数转换成非托管代码的指针参数，然后再传递给dllview plaincopy to clipboardprint?usingSystem.Runtime.InteropServices;//操作Dll的类空间 classCGicomIndex{[DllImport("Index_dll.dll")]unsafeprivatestaticexternInt32create_index_file(IntPtrfilename,IntPtrfieldname,UInt32 阅读全文
posted @ 2011-07-06 11:55 许明吉博客 阅读(17704) 评论(1) 推荐(0)
http://www.cnblogs.com/lhb25 漂亮图片资源
摘要：http://www.cnblogs.com/lhb25 漂亮图片资源 阅读全文
posted @ 2011-07-04 14:26 许明吉博客 阅读(222) 评论(0) 推荐(0)
70佳精美的PSD素材免费下载（上篇）
摘要：设计师经常会去网上搜罗各种各样的素材，这些免费素材不仅能帮助他们节省大量的时间，而且能有很好的效果。今天，本文与大家分享70佳精美的PSD素材，非常感谢那些很有才华的设计师分享它们的劳动成果，让更多的人可以使用他们的创意设计。记得分享和推荐一下哦 :)39 Free Web 2.0 ButtonsMini UI ElementsFree button collectionWeb UI Element PackDark GUI KitGrey buttons for WEBMail Feedback FormiPad GUI Kit in PSDTurquoise PSDGlass Video 阅读全文
posted @ 2011-07-04 14:13 许明吉博客 阅读(353) 评论(0) 推荐(0)
10个让人眼花缭乱的HTML5和JavaScript效果
摘要：作为下一代网页语言，HTML5 拥有很多让人期待已久的新特性。如今，很多Web开发人员开始使用HTML5来制作各种丰富的Web应用。本文向大家展示10个让人眼花缭乱的HTML5和JavaScript效果，让你体验下一代Web技术的魅力，相信你看完这些例子后会对未来的Web发展充满无限期待。Breathing Galaxies动态变换颜色和直径，可通过键盘或者鼠标产生新的形状，这个效果很炫很炫！FlowerPower灵感来自大自然的使用，使用花朵作为画刷，以贝兹曲线方式绘图。Noise Field移动鼠标可改变粒子的运动，点击可随机生成不同的粒子效果。Keylight双击生成两个以后的键即可发出 阅读全文
posted @ 2011-07-01 09:36 许明吉博客 阅读(320) 评论(0) 推荐(0)