Article View: cn.bbs.comp.program
Article #857FUNCky��ʹ��
From: ���ܵ�Сʨ
Date: Thu, 07 May 1998 00:00
Date: Thu, 07 May 1998 00:00
170 lines
11622 bytes
11622 bytes
Funcky��һ��PowerBuilderӦ�ó����,���ṩ��16λ��32λ��
��Ӧ�ÿ�,���а��˴����ĵײ㺯��,������Ա�������Ѷ�����C��
�Ա�д��̬���ӿ�,������ܶೣ�õ������ļ��������ַ������
λ�����ȹ���,�Ӷ�������˿���Ч�ʡ����ļ��������Power
u ilder��ʹ��Funcky��
��Funcky�ӵ�Ӧ����
FunCky�ṩ��16λ��32λ�����п�Funcky.dll��Funcky16.pbl��
Funcky32.dll��Fuc ky32.pbl,Ӧ�ó�����õĺ�����̶��ڸö�
̬���ӿ��PBL�ļ��С���װ��FunCky��,������̬���ӿⱻ������Wi
ndows��SystemĿ¼��,����PBL���ڰ�װ��Ŀ¼�¡�ʹ��ʱ���õ���
������Ӧ�õ�Global External Function��Local External Functio
n������Ӧ����������,����ʹ��ȫ����������Խ����PBL�ļ��ӵ�
Ӧ�õ��������С�����ԭ�Ͷ�����Դ���Ӧ��������л�á�
������ļ����ṩ�ĺ�������,Funcky.dll�л��������һЩδ
�����ĺ�����Funckyp bl�б�����,�û�Ҳ����ʹ����Щ����
Funckyʹ��ע������
����Ӧ����,ֻ���õ��ĺ���ӵ�����ԭ��������ȥ,��Ҫ������
��ĺ���ԭ��,��������ʱϵͳ���ܻᱨ����ԭ�Ͳ�ƥ�����;
����ֻ��ʹ����������,�û�������Ҫ��FUNCky.pbl�ӵ�Ӧ����,
��Ϊ�ǽ���Ҫ�����ĺ���ԭ���������ܱ���ͨ��;
��ijЩ����ԭ������"_"��ͷ�Ķ���,��Щ������Funcky.pbl��
�ж���,ʹ���߿���ֱ��ʹ�øú���,��Funcky.pbl�еĴ���ֱ�ӿ���
���Լ���pbl��,���Լ���д��ص�Poweruil der����
Funcky�������
Funckyһ���ṩ��12��ĺ���:
���������
������ڴ��������
�����ת������
��DBF�ļ����ʺ���
�����̷��ʺ���
��DOS��������
�����ں���
���ͼ��ļ���������
��ת������
���ַ��������
��ϵͳ��Դ����
��ʱ���������
����˵��
�������Ǿټ�������,˵��һ����Щ�����ʹ�á��������ؽ���
����DBF�ļ����ʡ���������ڴ�������ͼ��ļ��������⼸�ຯ��,
���Ǵ����Ӧ���о���Ҫ�õ���,��PowerBuid er����ȴ���ṩ��Щ
������
1.ͼ����
���Ǿ�����PowerBuilderӦ���������й�ͼ��洢����ʾ������
,�����ⷽ��,PowerBi lder����Ĵ��?�ܽ���,��ʵ��Ӧ���о���
���ﵽ�û���Ҫ�����ǿ��Խ���Funcky�ĺ���������ͼ���ļ���
������Ӧ������Ҫ�洢����ѯ����ʾ�ʹ�ӡ��Ƭ,һ�㿪����Ա
ʹ��OLEǶ��ķ�������,��������õ�ÿһ����Ƭ�Ĺ����ȫһ
��,��ʾ�ʹ�ӡ��Ч��ͺܲ�,�������ַ�������ͨ��֤�����֤�ϵ�
��Ƭ�����Dz����õġ������һ����ϼķ�����,��bitmap��ʽ
����ݿ��д��ͼ�����, ��ʾ/��ӡʱ,�����ȡ���ڱ��ر����Ϊ
��ʱ�ļ�,���ͼ��ijߴ���еȱ���������ʾ��ͼ��ؼ���,�����
�ܴﵽ�����Ҫ��,���ܻ�ø�������ͼ�����ǿ��Խ���Funcky��
����������������:
��bitmapͼ���ļ��洢Ч�ʲ���,����ݿ���ռ�ݵĿռ���,��
�ڴ���ǰʹ��fcompe ss�����ͼ���ļ�����ѹ����
��������:
FUNCTION long fcompress(string s,string d) LIBRARY "FU
NCky32.DLL"
//����ѹ������ԭ��
�ű�(SCRIPT):
retcode = fcompress(ls_path, "_tmp.tmp") //ѹ���ļ�
choose case retcode
...// ��鷵��ֵ
End choose
...//��ѹ������ļ����浽��ݿ���
fdcompress��ѹ��Ч�ʲ���,���ٶȺܿ�,����ֵ��ʹ�õġ�
��bitmapͼ��Ŀ�߱����ڸ��ļ��ĵ�18�͵�22���ֽ���,��
��Funcky������Ѷ����������ֽڵ���Ϣ������һ�γ����ǽ�ѹ����
����BMPͼ��Ŀ�ߡ�
��������:
//����Ӷ���������ж�ȡһ�������κ���ԭ��
FUNCTION long _blob2long(ref blob b, uint o) LIBRARY "FU
NCky32.DLL"
//�����ѹ������ԭ��
FUNCTION long fdcompress(string s,string d) LIBRARY "FUN
Cky32.DLL"
�ű�:
... //����ݿ��н����ȡ���������ļ�$fgd.bmp��
status = fdcompress("$fgd.bmp","_fgd.bmp") //��ѹ��
choose case status
...// ��鷵��ֵ
End choose
...//��_fgd.bmp����blob����pic
ll_width = _blob2long(pic,18) //��ͼ����
ll_height = _blob2long(pic,22) //��ͼ��߶�
//���ָ���Ŀ�������ű���
bili_width = integer(sle_width.text) / ll_width
bili_height = integer(sle_height.text) / ll_height
//�õ���ʾ��Ⱥ߶�
p_width = ll_width * min(bili_width, bili_height)
p_height = ll_height * min(bili_width, bili_height)
�ɴ����ǿ��Կ���Funcky�����ʹ�÷dz���,�ܹ�����������P
owerBuilder�к���ʵ�ֵIJ�����
2.ֱ�Ӷ�ȡDBF�ļ�
��Ӧ���п��ܻ�����ֱ�Ӷ�ȡDBF�ļ������,������������һ��
�����־���ķ���:һ��ʹ����ݴ��ڶ�DBF�ļ�,����ָ��һ������
Ŀ¼��Ϊ�����,��ODBC�������Ŀ¼,ʹ��ʱ�涨�û����뽫DBF��
�����������Ŀ¼�¡����������ַ�����ȱ�������,����Funcky��
ȴ�ṩ��ֱ�Ӷ�DBF�ļ��ĺ�����Funcky32.pbl����һ��dbffieldg
et()������Ի�ȡ��DB�ļ����ֶ���ơ�����������"������ʹ��F
uncky32.pbl"��ԭ��,�Լ��ֹ���дһ��ʵ�ָù��ܵĴ��롣
�����ⲿ����:
FUNCTION long dbfOpen(string f, int o) LIBRARY "FUNCky32
.DLL"
FUNCTION boolean dbfEof(long d) LIBRARY "FUNCky32.DLL"
FUNCTION int dbfClose(long d) LIBRARY "FUNCky32.DLL"
FUNCTION long dbfSkip(long d, long c) LIBRARY "FUNCky32.
DLL"
FUNCTION uint dbfFieldSize(long d, int p) LIBRARY "FUNCk
y32.DLL"
SUBROUTINE _dbfFieldGet(long d,int p,ref string b) LIBRA
RY "FUNCky32.DLL"
FUNCTION int dbfFieldPos(long d,string n) LIBRARY "FUNCk
y32.DLL"
�ű�:
//�Զ�д�;ܾ������û�д�ķ�ʽ��dbf��ݿ�
do while 1 = 1
dbf = dbfopen(ls_file, 2 + 32)
if dbf <> 0 then
exit
end if
loop
//��dbf���
//ii_xx_count����Ҫ����dbf�ֶε�����
//is_dbf[]�ֶ��������
do while not dbfeof(dbf)
for i = 1 to ii_xx_count
p = dbffieldpos(dbf, upper(is_dbf[i])) //��ȡ�ֶ�
���
ls_tmp = space(dbffieldsize(dbf, p) + 1)
//����ֶεĴ�С��ʼ�������ݵı���
_dbffieldget(dbf, p, ls_tmp)
//����ݶ��뵽ls_tmp��
next
dbfskip(dbf, 1)
//ʹdbf����ָ����һ����¼
loop
dbfclose(dbf) //�رմ�dbf�ļ�
����ֱ�Ӷ�ȡDBF��Ϣ,��Ӧ�ô����ĺô����Զ���ġ�
3.��ݿ��û�����
������ݿ���û�����,����һ����������ݿ��н���һ����,
��¼�û���ơ��������Ϣ,���û���¼ʱ,Ӧ�ó��������������
Ϣ,ͬ�û���������ݺ˶ԡ�����һ��ϵͳ����Ĺ涨,ÿһ���û���
����,��������ϵͳ�������鵽�ġ���ʹ��ϵͳ����ԱҲֻ��ɾ��
��¼�û���Ȩ��,������ȡ�û��Ŀ����������ϵͳ����Ա����
��ȡ��ݿ��е�ÿһ�ű�,����л�ῴ���û��ĵ�¼����,��������
Ӧ���ڿ����ֶδ�����ݿ�ǰ������м��ܡ�Funcky�ṩ��encrypt(
)�����decrypt()����Ϳ������������һ����,��ͱ����˳���Ա
�ֹ���д�����㷨���鷳�ˡ�
����,Funcky��16λWindows�»������ײ�IJ���,�����жϵ�
���ú�ֱ�Ӳ������̵ĺ���,�������������,����Ͳ������ˡ���֮
,Funcky�ṩ�˽϶�ĺ�����,�������Ķ��߿������Ժ��Ӧ���г�
��ʹ��,���Ż��PowerBuilder�Ŀ����������ķ���
--
________ _____ _____ ______________ _____
___ __ \___(_)________ ___(_) __ ___/___ /_ ___(_)
__ /_/ /__ / ___ __ \__ / _____ \ __ __ \__ /
_ ____/ _ / __ /_/ /_ / ____/ / _ / / /_ /
/_/ /_/ _ .___/ /_/ /____/ /_/ /_/ /_/
/_/
[m[1;36m�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn][m
Technical Details
Message-ID:
<3OOYaj$tX0@bbs.nju.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,927a16450cc0b03,start X-Google-Attributes: gidfc86e,public From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ) Subject: FUNCky��ʹ�� Date: 1998/05/07 Message-ID: <3OOYaj$tX0@bbs.nju.edu.cn> X-Deja-AN: 351560185 X-Filename: Programming/M.894548205.A Organization: nju_bbs Newsgroups: cn.bbs.comp.program