许明吉博客

2011年7月25日

摘要： 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)

2011年7月23日

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 许明吉博客阅读(2161) 评论(0) 推荐(0)

2011年7月22日

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)

2011年7月21日

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)

C# winForm Delphi 技术交流 Skype:szxumingji