🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #857

FUNCky��ʹ��

#857
From: ���ܵ�Сʨ
Date: Thu, 07 May 1998 00:00
170 lines
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�Ŀ����������ķ���
--
 ________ _____          _____        ______________  _____ 
 ___  __ \___(_)________ ___(_)       __  ___/___  /_ ___(_)
 __  /_/ /__  / ___  __ \__  /        _____ \ __  __ \__  / 
 _  ____/ _  /  __  /_/ /_  /         ____/ / _  / / /_  /  
 /_/      /_/   _  .___/ /_/          /____/  /_/ /_/ /_/   
                /_/                                         

�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]
Technical Details
Message-ID: <3OOYaj$tX0@bbs.nju.edu.cn>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show 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