通过 Delphi实现 Java调用 Oracle数据库数据

---- 一、系统设置：

---- 1. 用SQL NET 设置ORACLE数据库所在服务器的IP地址别名，这里假设名字是oracle1;

---- 2. 建立ORACLE ODBC数据源;

---- 进入控制面板的ODBC数据源，然后点击Systen DSN，再点击Add按钮选择Microsoft ODBC Driver Oracle，在Data Source Name框中输入数据源名(test)，在User Name框中输入ORACLE数据用户名(假设为user1)最后在Connect String框中输入在SQL NET中建立的ORACLE数据库别名oracle1；

---- 建立好以上两步后，则DELPHI的BDE Administrator中自动生成一个test数据接口，如下图：

---- 二、用DELPHI开发读取ORACLE数据库数据的CGI 程序

---- 进入DELPHI编程环境，去掉FORM页及其它控件，然后输入以下程序。

program testcgi;
{$apptype console}
uses
SysUtils, DBtables;
var
Table1: TTable;//用于读ORACLE数据库数据
Database1: TDatabase;//用于定义ORACLE别名及用户名和口令
i,ss,code:integer;
my,cc:string;
begin
writeln(′CONTENT-TYPE: TEXT/HTML′);//CGI程序要求的数据头信息
writeln;//保留一行空格
my:=paramstr(1);//读入JAVA传来的信息
Table1:=TTable.Create(nil);//创建Table控件
Database1:=TDatabase.Create(nil);//创建Database控件
try
Database1.aliasname:=′test′;//ORACLE别名
Database1.databasename:=′test′;
Database1.Params.Clear;
Database1.Params.add(′USER NAME=user1′);//用户名
Database1.Params.add(′PASSWORD=userpassword′);//口令
Database1.loginprompt:=false;
Database1.connected:=true;
Database1.open; //打开数据库通道
Table1.databasename:=′test′;
Table1.tablename:=′cbkt′;//ORACLE表名
table1.Active := True;
Table1.open;//打开ORACLE表
Table1.first;
//计算满足条件井数
i:=0;
while (not table1.eof) do
begin
if (Table1.FieldByName(′ny′).asstring=my) then
begin
write(Table1.FieldByName(′jh′).asstring+′,′);
val(Table1.Fields[2].asstring,ss,code);
if ss>0 then
write(ss*100)
else
write(′0.0′);
write(′,′);
val(Table1.Fields[3].asstring,ss,code);
if ss >0 then
write(ss*100)
else
write(′0.0′);
end;
table1.next
end;
finally
table1.close;
table1.free;
end;
end.

---- 把以上程序编译后拷入服务器的CGI目录。

---- 三、JAVA部分程序

//test.java 编写：王兵 1999/11/30
import java.awt.*;
import java.io.*;
import java.net.*;
import java.util.*;
import java.applet.*;
public class test extends Applet {
。。。。。。。。
。。。。。。。
。。。。。。
//调用testcgi.exe实现读入ORACLE数据
public boolean action(Event evt,Object obj)
{ String s1=(String)obj;
if(s1=="取数据")
return test_xx("http://10.65.76.64/scripts/testcgi.exe?"+
year.getSelectedItem());
return true;
}
public boolean test_xx(String post)
{。。。。。。。。。。。
。。。。。。。。。。。
try{DataInputStream is;//数据输入流
URL url;//通过网传数据
url=new URL(post);
URLConnection connection=url.openConnection();//打开数据流
is=new DataInputStream(connection.getInputStream());
String inputline;
mcv.error=null;
if((inputline=is.readLine())==null)//无数据
{mcv.error=new String("无数据可读!!!");
status_field.setText("无数据可读!!!");
mcv.repaint();//画布刷新
return true;
}
status_field.setText("取x,y数据...");
if ((inputline=is.readLine())==null)
{mcv.error=new String("无数据可读!!!");
mcv.repaint();//画布刷新
return true;
}
mcv.bktx=new String[10];
mcv.bkty=new String[10];
mcv.bktjh=new String[10];

status_field.setText("取图形数据...");
js=1;//计井数
for (i=0;i< 10;i++)
{//每行3个字段
inputline=is.readLine();
if (inputline==null) {break;}
p1=inputline.indexOf(′,′);
p2=inputline.lastIndexOf(′,′);
mcv.bktjh[js]=inputline.substring(0,p1);
mcv.bktx[js]=inputline.substring(p1+1,p2).trim();
mcv.bkty[js]=inputline.substring(p2+1).trim();
status_field.setText("bktx["+
String.valueOf(js)+"]"+mcv.bkty[js]);
js=js+1;
}

is.close();
status_field.setText("OK1");
mcv.repaint();
}catch(MalformedURLException me)
{System.err.println("MalformedURLException: "+me);}
catch(IOException ioe){
System.err.println("IOException: "+ioe);
}catch(NumberFormatException e)
{if(mcv.error==null)
mcv.error=new String("数据格式出错B!!!"+e);
status_field.setText(mcv.error);
mcv.repaint();
}
status_field.setText("数据读完!!!");
return true;

}
}
。。。。。。。。。。。。。
。。。。。。。。。。。。

---- 四、最后在自己的起始页HTML文件中加入如下程序段就行了。
< !test.html 1999/11/30 >
< HTML >
< HEAD >
。。。。。。
。。。。。。
< BODY >
。。。。。。
< APPLET CODE="test.class" WIDTH=200 HEIGHT=40 >< /APPLET >
。。。。。。
< /BODY >
。。。。。。
。。。。。。
< /HTML >

---- 以上程序在IBM 330 Server上调试通过，开发环境Visual J++ 6.0。

大庆采油六厂采油工艺研究所 王兵