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


预览模式: 普通 | 列表

如何编写需要启动参数的Delphi程序

有些时候,我们想让我们的程序根据不同的参数启动不同的界面或者,通过主程序才可以调用,这个时候使用启动参数也不是一种可行的方法。

1.首先建立一个工程,然后选择Project菜单;
2.选择View Source命令;
3.这样就打开了工程文件,一般的工程文件的代码如下:

查看更多...

Tags: 编写 需要 启动参数 Delphi 程序

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

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 | 查看次数: 678

HTTP协议中的HEAD指令

1. Accept:告诉WEB服务器自己接受什么介质类型,*/* 表示任何类型,type/* 表示该类型下的所有子类型,type/sub-type。

2. Accept-Charset: 浏览器申明自己接收的字符集
Accept-Encoding: 浏览器申明自己接收的编码方法,通常指定压缩方法,是否支持压缩,支持什么压缩方法(gzip,deflate)
Accept-Language::浏览器申明自己接收的语言

查看更多...

Tags: HTTP 协议 HEAD 指令

分类:电脑技术 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 449

delphi 可变记录

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

查看更多...

Tags: Delphi 可变记录 Record packed record

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

Delphi将Excel导入Access


导入前是空表

导入后的状态

查看更多...

Tags: Delphi Excel 导入 Access

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

Delphi之TDrawGrid绘制



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

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

查看更多...

Tags: Delphi TDrawGrid 绘制 TBitmap LoadFromFile TRect TCanvas Transparent

分类:Delphi技巧 | 固定链接 | 评论: 2 | 引用: 0 | 查看次数: 949
        在Delphi 7下,如果想在鼠标MouseEnter、MouseLeave的时候改变TLabel自身的颜色,很多人可能会采用 Label.Color := clRed;这样的方式来实现,我当初也是一样,结果无论鼠标怎么移动Tlabel都不会改变自身的颜色,但是通过Object Inspecter却可以设置TLabel的颜色,但是在它的MouseEnter、MouseLeave直接给Color属性赋值,TLabel的颜色却无法跟随鼠标的进入和移出而更改自身的颜色,经过跟踪发现TLabel的color属性原来根本就没有Color属性,而这个Color属性却是来自TControl的。

    我先看一看三幅图:

这是最初的效果

查看更多...

Tags: Delphi下TLabel 鼠标 MouseEnter MouseLeave 颜色

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

Delphi在StatusBar上绘制ProgressBar



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

type

查看更多...

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

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

Delphi下获取IE的UserAgent的方法

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

uses SHDocVw, MSHtml;

查看更多...

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

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

解决Delphi自带UTF8解码缺陷

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

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

查看更多...

Tags: Delphi UTF8 解码

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