hhf383530895的专栏

1、第一个程序

何海锋 — Tue, 07 Jul 2009 21:09:00 +0800

public class MyFirstApp { public static void main(String args[ ]) { System.out.println("This is my first Java Application!"); } }

C++与Delphi之间的对象共享

何海锋 — Wed, 24 Jun 2009 17:34:00 +0800

在C++与Delphi之间的对象共享主要体现在对象方法的共享方面，这种共享可分为两个层次:对象级共享与类级共享。
要实现对象级共享，程序设计语言需具备两个前提条件:
S 能够定义指向由另一语言创建的对象的指针;
S 可以访问由指针确定的对象中的方法。要实现类级的共享，则还需考虑:
S 能够创建由另一种语言定义的类的实例;
S 可以从堆中释放一个实例所占用的空间;
S 派生新的类。
以下介绍在Delphi与Borland C++之间实现对象共享的方法。
1.C++共享Delphi对象
要实现从C++调用Delphi对象，首先要在Delphi单元的接口部分以及C++的头文件中说明需要共享的对象的接口，在对象接口中定义该对象包含哪些属性与方法，并说明可供共享的部分。对象的共享，关键在于方法的共享。在Delphi语言中，要使一个对象可以被共享，可以把它说明为两个接口部分，暂称为"共享接口"与"实现接口"。其中共享接口指明对象中哪些方法可被另一种语言所共享;实现接口则继续共享接口，并且在单元实现

delphi调用C++写的一个DLL里面的函数

何海锋 — Wed, 24 Jun 2009 17:27:00 +0800

BOOL WINAPI funname(char *pFileName,char *pID);这是C++写的一个DLL里面的函数我现在想用delphi调用这个函数静态：function funname(var pFileName:pchar;var pID:pchar):integer;stdcall;external 'DLLNAME.dll' name 'funname';动态：OneHandle := LoadLibrary(DLLNAME.dll'); //动态载入DLL，并返回其句柄 try if oneHandle0 then @funname:= GetProcAddress(OneHandle,'funname'); if not( @funname = nil ) then ..... finally FreeLibrary(OneHandle);

Delphi 调用VC生成的DLL

何海锋 — Wed, 24 Jun 2009 16:48:00 +0800

1. 在VC中新建一个 DLL 工程。
写如代码，如：
extern "C"
{
_declspec(dllexport) int getPPLength();
_declspec(dllexport) int npn(int m, int n);
}
int getPPLength()
{
return 5* 12;
}
int npn(int m, int n) {
    int sum;
    sum = (m-1) * (n-1);
    return sum;
    //return 100;
}
编译生成 DLL 文件。
2。在Delphi 中申明
function getPPLength:Integer;cdecl; external 'dll.dll';
function npn(m:integer;n:Integer):Integer;c

Oracle 函数

何海锋 — Wed, 10 Jun 2009 16:42:00 +0800

1、获取当月的最后一天last_day()
    SELECT to_char(last_day(sysdate),'dd') FROM dual

2、获取下一个月的最后一天 add_months()
    SELECT to_char(last_day(add_months(sysdate,1)),'dd') AACount FROM dual

3、CASE语句
   SELECT AA, BB, CC,
     CASE TRUNC((SYSDATE-AA))
       WHEN 0 THEN 1
      ELSE TRUNC((SYSDATE-AA))
      END AS DIFF
    FROM DD

Delphi 数据类型列表(来源:万一 CSDN BLOG)

何海锋 — Mon, 01 Jun 2009 17:37:00 +0800

分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32768 .. 327672有符号16位Longint-2147483648 .. 21474836474有符号32位Int64-263 .. 2638有符号64位Byte0 .. 2551无符号8位Word0 .. 655352无符号16位Longword0 .. 42949672954无符号32位字符AnsiChar(Char)ANSI字符集8位WideCharUnicode字符集16位布尔BooleanFalse
Ord(False) = 0
Ord(True) = 1
Succ(False) = True
Pred(True) = False1ByteBoolFalse True

delphi 函数、方法指针

何海锋 — Mon, 01 Jun 2009 17:33:00 +0800

type { 函数指针是指向函数的32位指针，占4个字节。过程的指针结构如下 PProc = ^TProc;//过程指针　 TProc = record 　　 Code: Pointer;//指向过程的代码　 end; 方法指针是指向一个结构。方法的指针结构如下 PMethod = ^TMethod;//方法指针　 TMethod = record 　　 Code: Pointer;//指向方法的代码 Data: Pointer;//指向对象的数据　 end; } TEvent = procedure() of object; TProc = procedure(); procedure TForm1.Button2Click(Sender: TObject); begin showmessage('方法指针的长度是:'+Inttostr(SizeOf(TEvent))); {8} showmessage('函数指针的长度是:'+Inttostr(SizeO

delphi 指针 ^,@

何海锋 — Mon, 01 Jun 2009 17:23:00 +0800

{ 类型约定用 T 打头指针约定用 P 打头 --T 是Type（类型）这个单词的第一个字母 --P 是pointer（指针）单词的第一个字母 } type PMyPointer = ^Integer; var {Char} AChar : Char; PAChar : PChar; {定义类型指针, Integer 类型的指针} {Integer} AInt : Integer; PAInt : PInteger; BInt : Integer; PBInt : ^Integer; PMyP : PMyPointer; begin //字符 AChar := 'A'; PAChar := @AChar; //用@ 方法取字符变量AA的地址 ShowMessage(PAChar^); //^不可以省略，否则，编译提示错误 //整形 AInt := 100; PAInt := @

编程辅助工具

何海锋 — Mon, 01 Jun 2009 16:51:00 +0800

VC辅助工具WTL
http://sourceforge.net/projects/wtl

Oracle 权限设置明细

何海锋 — Mon, 01 Jun 2009 16:49:00 +0800

GRANT CONNECT,RESOURCE TO HEHF IDENTIFIED BY "123"; CONNECT角色： --是授予最终用户的典型权利，最基本的 ALTER SESSION --修改会话 CREATE CLUSTER --建立聚簇 CREATE DATABASE LINK --建立数据库链接 CREATE SEQUENCE --建立序列 CREATE SESSION --建立会话 CREATE SYNONYM --建立同义词 CREATE VIEW --建立视图 RESOURCE角色： --是授予开发人员的 CREATE CLUSTER --建立聚簇 CREATE PROCEDURE --建立过程 CREATE SEQUENCE --建立序列 CREATE TABLE --建表 CREATE