静态博客入口:http://blog.5d.cn/user8/wwle/
2008/05/26 | 裁减图片
类别(语言类学习笔记) | 评论(0) | 阅读(43) | 发表于 13:31
procedure TForm1.Cut(sf:string);
var
  jpg: TJPEGImage;
  Bmp: TBitmap;
begin
  jpg := TJPEGImage.Create;
  Bmp := TBitmap.Create;
  try
    jpg.LoadFromFile(sf);
    self.Image1.Picture.LoadFromFile(sf);
    Bmp.Assign(jpg);
    bmp.Canvas.CopyRect(rect(0,0,jpg.width,jpg.Height),bmp.Canvas,rect(0,0,jpg.Width,jpg.Height-30));
    if SavePictureDialog1.Execute then
    begin
      jpg.SaveToFile(self.SavePictureDialog1.FileName);
      self.Image2.Picture.LoadFromFile(self.SavePictureDialog1.FileName);
    end; 
2008/05/25 | 谈Delphi编程中资源文件的应用
类别(语言类学习笔记) | 评论(0) | 阅读(252) | 发表于 11:03

谈Delphi编程中资源文件的应用
                                                 陈经韬
(一)初级应用篇:
   资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi
在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE
(一般位于\Delphi\BIN目录下),我们完全可以做出跟VC一样效果的文件来。
   资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,
生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要
临时调用一幅图片,一般作法是把图片放在某一路径下(通常是主程序所在路径),
但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,
如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。
   资源文件的使用步骤为:
1.编写rc脚本文本
 

2008/05/23 | Access 导入导出excel资料
类别(语言类学习笔记) | 评论(0) | 阅读(451) | 发表于 13:28

以下为导出:

For   Each   SQL   In   CurrentDb.TableDefs  
  If   UCase(Mid(SQL.Name,   1,   2))   <>   "MS"   Then  
  dd="select   *   into   [excel   8.0;database=d:\temp\"   &   SQL.Name   &".xls]."  
  &   SQL.Name   &   "from   "   &SQL.Name  
  currentdb.execute   dd  
  End   If  
  Next  
  or  
  select   *   into   [excel   8.0;database=d:\temp\123.xls].dd   from   tt

以下为导入:

select * into bbb from [excel 8.0

2008/05/23 | 再贴一个关于操作 Excel 的帖子
类别(语言类学习笔记) | 评论(0) | 阅读(415) | 发表于 13:03

转贴:来自http://delphi.ktop.com.tw
Delphi控制Excel2000

希望這分資料,為論壇中的各位會員關於EXCEL操作的問題提供一些幫助。
同時也希望各位能將自己整理的、或已有的資料共享出來。
這樣可以減少大家的「重複勞動」嗎?
技術在於交流,經驗在於積累!!!!

一.使用動態創建的方法
首先創建 Excel 對象,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );

1) 顯示當前窗口:
ExcelApp.Visible := True;

2) 更改 Excel 標題欄:
ExcelApp.Caption := '應用程序調用 Microsoft Excel';

3) 添加新工作簿:
ExcelApp.WorkBooks.Add;

4) 打開已存在的工作簿:
ExcelApp.WorkBooks.Open( 'C:\

2008/05/21 | 转载
类别(语言类学习笔记) | 评论(0) | 阅读(146) | 发表于 09:14

http://blog.csdn.net/xzhifei/archive/2007/02/26/1515074.aspx

原创 自画TListView带进度条的Item

新一篇: WindowsNT/200 环境下要自订纸张尺寸(自定义页面)

2008/05/08 | VFP的皮肤
类别(语言类学习笔记) | 评论(0) | 阅读(81) | 发表于 23:22

明天,有空到梅子论坛看看关于VFP换皮肤的问题。

总感觉用VFP写出的界面不太美观,在梅子论坛下载了一个皮肤类,使用时设置有点不太顺利。不过效果还是出来了。

明天要好好看看,研究一下!

2008/02/16 | 日记_2008年2月16日19点34分
类别(语言类学习笔记) | 评论(0) | 阅读(14) | 发表于 19:36

今天看到以前看过的一篇文章,觉得不错,害怕时间长了找不到,就粘贴过来,与大家共享。
网址:http://topic.csdn.net/u/20070924/21/18482496-082f-4907-8751-b80ab5d56622.html

想来学习Java也有两个年头了,永远不敢说多么精通,但也想谈谈自己的感受,写给软件学院的同仁们,帮助大家在技术的道路上少一点弯路。说得伟大一点是希望大家为软件学院争气,其实最主要的还是大家自身的进步提升——

1. 关于动态加载机制——
学习Java比C++更容易理解OOP的思想,毕竟C++还混合了不少面向过程的成分。很多人都能背出来Java语言的特点,所谓的动态加载机制等等。当然概念往往是先记住而后消化的,可有多少人真正去体会过动态加载的机制,试图去寻找过其中的细节呢?   提供大家一个方法:
在命令行窗口运行Java程序的时候,加上这个很有用的参数:

java   –verbose   *.class

这样会清晰的打印出被加载的类文件,大部分是jdk自身运行需要的,最后几行会明显的看到自己用到的那几个类文件被加载进来的顺序。即使你声明了一个类对象,不实例化也不会加载,说明只有真正用到那个类的实例即对象的时候,才会执行加载。这样是不是大家稍

2008/02/14 | Tprinter of delphi
类别(语言类学习笔记) | 评论(0) | 阅读(150) | 发表于 20:39
Like   TCanvas,   the   TPrinter   class   does   not   belong   to   BaseCLX   because   there   are   two   separate   versions,   one   for   VCL   applications   (in   the   Printers   unit)   and   one   for   CLX   applications   (in   the   QPrinters   unit).   The   VCL   TPrinter   object   encapsulates   details   of   Windows   printers.   The   CLX   TPrinter   object   is   a   paint   device   that   paints   on   a   printer.   It   generates   postscript   and   sends   that
2008/02/14 | Windows 日志存储数据结构
类别(语言类学习笔记) | 评论(0) | 阅读(67) | 发表于 20:35

Windows 日志存储数据结构


1. 事件日志文件是二进制文件,它有若干条记录单元组
    成,其中最前面的是记录头,最后面的是记录尾。
2. 每条记录(包括记录头、记录尾)的头、尾的双字是
    这条记录的长度(单位:字节)。如记录头48个字节
    (0x30),记录就是
    30 00 00 00  4C 66 4C 65 ……    30 00 00 00
    注意这里是字节顺序:
    30   00        00     00
   W1L   W1H    W2L     W2H
3.每条记录的第二个双字是特定的码 4C 66 4C 65
4.分析Windows API 日志存储数据结构。
typedef struct _EVENTLOGRECORD {
  DWORD  Length;
  DWORD  Rese

2008/02/14 | 好长时间没有使用delphi了,要复习一下关于数组
类别(语言类学习笔记) | 评论(0) | 阅读(520) | 发表于 20:34

Delphi之数组
     Object Pascal中可以建立丰富的数据类型。数组毫无疑问也是众多自定义数据类型中的一种。
     Type
       TA = array[0..9] of Integer;
     ...
     var
       A : TA;
     和下面这段代码通常效果是相同的(不同的地方在类型篇再说)
     var
       A : Array [0..9] of Integer;
     这相当于C中的
     int A[10];
     或Basic中的
     Dim A(9) as Long或 Dim A(0 to 9) as Long
下面将分几个方面讲OP的数组:
多维数组:
     多维数组的本质其实就是数组之数组。   
     ty

2008/02/14 | 要写一个关于管理打印机的程序,先收集一些资料
类别(语言类学习笔记) | 评论(0) | 阅读(143) | 发表于 20:27

TPrinter

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1876989

Example:

unit multiprn;

interface

{$IFDEF WIN32}
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls;
{$ELSE}
  uses
    SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
    Controls, Forms, Dialogs, StdCtrls;
{$ENDIF}


type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;

2007/09/28 | Java开发工具
类别(语言类学习笔记) | 评论(0) | 阅读(48) | 发表于 15:19
 

Java开发工具

因业务需要,中科永联正式更名为中程在线,欢迎大家浏览新网站中程在线信息产业培训网

中科永联

2007/09/25 | Eclipse 基础知识
类别(语言类学习笔记) | 评论(0) | 阅读(45) | 发表于 15:00
2007/09/25 | 偶在学习java
类别(语言类学习笔记) | 评论(0) | 阅读(30) | 发表于 14:59

刚开始觉得很头疼.

什么控件都需自己创建,不像delphi vfp 直接拖位.

不过现在熟悉了

正在找出一个好的开发工具.

偶现在用的是jcreator4.0别人推苊是 http://hi.baidu.com/s_zmliu/blog/item/5d33640169aa3e0c7aec2c16.html

这个东东.我先收藏着.

不过先下jbuild2006先看看再说.

哈呆/.

2007/09/18 | 上传文件
类别(语言类学习笔记) | 评论(0) | 阅读(22) | 发表于 17:13

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IdFTP;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
     function FtpUpLoad(aFtpIP: string; aFtpPort: Integer; aFtpUserName: string; aFtpPassword: string; aFtpDir: string; aSourceFile: string; aDestFile:  string): Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.