FORM 中Text_IO的應用

上一篇 / 下一篇 2008-02-19 14:07:58 / 个人分类：ORACLE 開發

Developer/2000中，可以用Text_IO读写操作系统文件。
如下：
DECALRE
  in_file  Text_IO.File_Type;
  out_file Text_IO.File_Type;
BEGIN
  in_file:=Text_IO.Fopen('文件名', 'R');
  Text_IO.Get_Line(in_file,linebuf); --讀文件
  Text_IO.Fclose(in_file);

  out_file:=Text_IO.Fopen('文件名', 'W');ITPUB个人空间 z6t4fe1[
  Text_IO.Put_Line(out_file,'写入信息'); --忘文件里面寫數據ITPUB个人空间Bj1kH N9sV K
  Text_IO.Fclose(out_file);ITPUB个人空间9p run(H&R#?
END;

--常用TEXT_IO
9Ji1N!Ev)_2cs0DeclareITPUB个人空间8?:by4\V~.k"[j
out_file text_io.file_type; --定义
X5fDr*KYO7~U0Begin
PmbXk0 out_file:=text_io.fopen('prn','w'); --打开文件prnITPUB个人空间A(f)K P.l d
text_io.new_line(out_file,' '); --新建一行ITPUB个人空间tzB*Ul:|~*XO
text_io.put_line(out_file,' ') --写入一行
+b3XN d)||j0 text_io.fclose(out_file); --关闭文件ITPUB个人空间&v b4cG4\,|
End;

---文本输入输出
Y^*lmsl]0   TEXT_IO
-z{ n\:XpL0   TEXT_IO.PACKAGE
A.EYBjo0   TEXT_IO.FCLOSE
'B4d:Xi;J&o`y0   TEXT_IO.FILE_TYPEITPUB个人空间uS-NF/`Rl
   TEXT_IO.FOPENITPUB个人空间 vq5m9`\
   TEXT_IO.IS_OPEN
(vb;`1B@z0   TEXT_IO.GET_LINE
3i)S Veh6mQ0   TEXT_IO.NEW_LINEITPUB个人空间wS.APm3z%G(sV+T
   TEXT_IO.PUTITPUB个人空间(vlLrA#b:vB
   TEXT_IO.PUTF
n#Ax1z ee4M0   TEXT_IO.PUT_LINE
l:uHhn9l^x0DeclareITPUB个人空间#hw A%oZ;A}D6~
     Out_file     Text_io.file_type;
#jd:zOkg0     L            Varchar2(100);
%}4Z SxG0     L1           Varchar2(100);
&gPj/]W$v j |7n*m0W0     L2           Varchar2(100);ITPUB个人空间a%vmS5RDG V E1D^
BeginITPUB个人空间:D,Mp'A Ls t(HNr
    Out_file :=text_io.fopen('c:\ll\login.txt','r');
WA7qG }x Y0    If text_io.is_open(Out_file) thenITPUB个人空间0rdoonxR
text_io.get_line(Out_file,L);ITPUB个人空间UHG)tZ
text_io.get_line(Out_file,L1);ITPUB个人空间1G,HF&VUWG9c
text_io.get_line(Out_file,L2);ITPUB个人空间\_i7laj1_QG
    Else
C u6D-`&?/AB0?O0        Null;ITPUB个人空间$x/](u.` `?8f9K
    End if;
s dR*FW]1uY w0End;

ITPUB个人空间(xT#Lf8H+j
     FORM中如何存取图象？如何把图象从一个表中导到另一个表中？ITPUB个人空间(a2u dg}Zr%C'V
    1、SQL*Plus中ITPUB个人空间i3V6N#v.fRk!V
SQL> create table t_photo1(photo1 long raw);ITPUB个人空间(yDr4Y0xI'|F6z
SQL> create table t_photo2(photo2 long raw);ITPUB个人空间I%g^~:x `&N
    2、硬盘上c:\下有一个图象文件tmp.bmp
(N!iy@DJPW0    3、打开FORM. 新建两个块：t_photo1、t_photo2
8hBY |)] Mf0 t_photo1块是数据库块，连接的表是数据库中的一个表t_photo1ITPUB个人空间$IG(_~g'c}
t_photo2块也是数据库块，连接的表是数据库中的另一个表t_photo2（备份表）ITPUB个人空间 o n4^.CP:kH&l)X
t_photo1块上新建一个图象项，名为photo1，对应的是即表t_photo1中的photo1列
w?m&}|]r4n!P0 t_photo2块上也新建一个图象项，名为photo2，对应的是即表t_photo2中的photo2列ITPUB个人空间O&`]Jib9gj
    新建一按钮1，输入以下程序，这个按钮实现读入图象到表里，即录入图象到表里
E_&x,p Gj\0BEGIN
BZKG6K0  GO_BLOCK('t_photo1');--到块1ITPUB个人空间pP Ra T]8X$U:a#]
  READ_IMAGE_FILE('c:\tmp.bmp','bmp','t_photo1.photo1');
1N{ jj%NuiYD^7J0  --读入外部图象文件tmp.bmp（图象类型为BMP）到t_photo1块的photo1项，也就是到了t_photo1表里ITPUB个人空间tN/HKM @}j)eK
  COMMIT;--存盘
yW5Cz&bN9~,K0 END;ITPUB个人空间7bk U [,w
新建一按钮2，输入以下程序，这个按钮实现图象的倒表（t_photo1到t_photo2）ITPUB个人空间fy[3{([ R9R$e q
BEGINITPUB个人空间1k'y.`k k5MQ
  GO_BLOCK('t_photo1');--到块1ITPUB个人空间6e:bc%I6vlv
  execute_query;
OQ1bJaL)o%j;k0  --查询出表中的图象，这时，表中的图象到了FORM中的图象项上ITPUB个人空间i#D(]e/u
  WRITE_IMAGE_FILE('c:\tmp.bmp','bmp','t_photo1.photo1');
5_q{w2M k0  --把图象项中图象写入外部图象文件tmp.bmp
cxVYthl,m0  GO_BLOCK('t_photo2');--到块2ITPUB个人空间EM0i:@+o
  READ_IMAGE_FILE('c:\tmp.bmp','bmp','t_photo2.photo2');ITPUB个人空间A&n]Y~4n*M
  --把外部图象文件tmp.bmp读入到t_photo2块的photo2项，也就是到了t_photo2表里
/NQ pr6ON{PS0  COMMIT;--存盘ITPUB个人空间MS%[L)W Z{"l r
END;