🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: cn.bbs.comp.program
1 messages
1 total messages Started by ���ܵ�Сʨ Thu, 07 May 1998 00:00
FUNCky��ʹ��
#857
Author: ���ܵ�Сʨ
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]
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads