天行健,君子以自强不息;地势坤,君子以厚德载物。


Tag: Delphi预览模式: 普通 | 列表

Delphi下IdHTTP组件POST注册网页表单

这个是以前写的一个注册会员的代码段,不论如何还是比较完整的。按照常规的,必须是先来GET那个引导你注册的网页,并且获取Cookie以便后面POST数据的时候用,我这里就省略了,因为我当时的ASP程序会判断UserAgent的,如果UserAgent与提交的不吻合,那么会返回缺少参数之类的字符串,总之用IE等浏览器,你是绝对无法打开那个提交注册的网页的。好了,不费话了,直接给出下面的代码:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  UserName    : String;

查看更多...

Tags: Delphi idHTTP 组件 POST 注册 网页 表单

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

delphi 可变记录

若记录是由一部分固定不变和另一部分变化部分是随固定部分中的某个数据
项的具体取值而定的数据项所组成的称为记录变体。带记录变体的记录类型定义有以下形式:
  type
   <类型标识符>=record
     <域名1>:<类型1>;

查看更多...

Tags: Delphi 可变记录 Record packed record

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

Delphi将Excel导入Access


导入前是空表

导入后的状态

查看更多...

Tags: Delphi Excel 导入 Access

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

Delphi之TDrawGrid绘制



一直都对QQ的好友列表很好奇,最先感觉用TreeView实现的,看了看TreeView的源码,发现要实现还真的不太好完成任务啊,其中最大的原因是自己的功力不足,后来觉得用ListView来做吧,结果也是失败,后来又想到ListBox,结果发现也是难成,最后发现有一个TDrawGrid,可以来绘制,但是不知道那两行文字怎么搞,有知道的望告知,谢谢。好了不再废话,就把最近对TDrawGrid的一些操作记录如下:

1.我们先设置TDrawGrid的属性:

查看更多...

Tags: Delphi TDrawGrid 绘制 TBitmap LoadFromFile TRect TCanvas Transparent

分类:Delphi技巧 | 固定链接 | 评论: 2 | 引用: 0 | 查看次数: 1015

Delphi在StatusBar上绘制ProgressBar



首先,在TForm的私有域,也就是private下设置两个变量ProgressBar、ProgressBarRect,其中ProgressBar为 TProgressBar类型,ProgressBarRect为TRect类型,完整的定义如下:

type

查看更多...

Tags: Delphi StatusBar 绘制 ProgressBar type 私有域 变量 private 事件

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

Delphi下获取IE的UserAgent的方法

方法一:
使用SHDocVw, MSHtml单元提供的一些方法利用浏览器的特性来获取。

uses SHDocVw, MSHtml;

查看更多...

Tags: Delphi IE UserAgent 方法 注册表 l浏览器 MSHtml SHDocVw Registry UrlMo

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

解决Delphi自带UTF8解码缺陷

因为Delphi自带的转换函数遇到其无法识别的字符串就返回空,下面函数可解决该问题。

function DecodeUtf8Str(const S: UTF8String): WideString;
var
  lenSrc, lenDst  : Integer;

查看更多...

Tags: Delphi UTF8 解码

分类:Delphi技巧 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 360

Delphi下URL汉字编码解码的两个函数

//汉字URL编码函数
function URLEncode(const S: string; const InQueryString: Boolean): string;
var
  Idx: Integer; //逐个字符循环直至字符串结束
begin

查看更多...

Tags: Delphi URL 汉字 编码 解码 函数

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

Delphi中的消息截获

    Windows是一个基于消息驱动的系统,因此,在很多时候,我们需要截获一些消息然后自己进行处理。而VCL系统又有一些特定的消息。下面对我所了解的delphi环境中截获消息进行一些总结。
      就个人了解,共有6种方法来截获/处理消息。

  1. 消息钩子(Message Hook)

查看更多...

Tags: Delphi 消息截获 SubClass Hook Message RTTI/TypInfo

分类:Delphi技巧 | 固定链接 | 评论: 2 | 引用: 0 | 查看次数: 465

Delphi下idHTTP配合CookieManager获取Cookie



procedure TForm1.Button1Click(Sender: TObject);
var
  Cookies: TidCookies;

查看更多...

Tags: Delphi idHTTP CookieManager Cookie

分类:Delphi技巧 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 1631