n $r;
}

// 版块版主权限判断: allowtop, allowmove, allowupdate, allowdelete, allowbanuser, allowviewip, allowdeleteuser
function forum_access_mod($fid, $gid, $access)
{
    global $grouplist, $forumlist, $uid;
    
    // 结果缓存，加速判断！
    static $result = array();
    $k = $fid . '-' . $gid . '-' . $access;
    if (isset($result[$k])) return $result[$k];

    if (1 == $gid || 2 == $gid) return TRUE; // 管理员有所有权限
    if (3 == $gid || 4 == $gid) {
        $group = $grouplist[$gid];
        $forum = $forumlist[$fid];
        $r = !empty($group[$access]) && in_string($uid, $forum['moduids']);
    } else {
        $r = FALSE;
    }
    $result[$k] = $r;
    
    return $r;
}

function forum_is_mod($fid, $gid, $uid)
{
    global $grouplist, $forumlist;
    

    if (1 == $gid || 2 == $gid) return TRUE; // 管理员有所有权限
    if (3 == $gid || 4 == $gid) {
        if (0 == $fid) return TRUE; // 此处不严谨！
        $group = $grouplist[$gid];
        $forum = $forumlist[$fid];
        return in_string($uid, $forum['moduids']);
    }
    
    return FALSE;
}

// ------------> 其他方法

function forum_access_format(&$access)
{
    
    if (empty($access)) return;
    
}

function forum_access_count($cond = array())
{
    
    $n = db_count('forum_access', $cond);
    
    return $n;
}




?>  !empty($attach) and attach_big_insert($attach);

    

    $attachlist = $imagelist = $filelist = '';
    $images = 0;
    $files = 0;
    // 处理不在 message 中的图片，删除掉没有插入的附件
    if ($message) {
        // 只有评论会传pid
        list($attachlist, $imagelist, $filelist) = $pid ? well_attach_find_by_pid($pid) : well_attach_find_by_tid($tid);

        

        if (!empty($imagelist)) {
            $aids = array();
            foreach ($imagelist as $key => $attach) {

                $image_url = $conf['upload_url'] . 'website_attach/' . $attach['filename'];

                

                if (FALSE === strpos($message, $image_url)) {

                    unset($attachlist[$attach['aid']], $imagelist[$attach['aid']]);

                    $aids[] = $attach['aid'];

                    $path = $conf['upload_path'] . 'website_attach/' . $attach['filename'];
                    is_file($path) and unlink($path);

                    

                    // 删除云储存文件
                }

                
            }

            !empty($aids) and well_attach__delete($aids);

            
        }

        $images = count($imagelist);
        $files = count($filelist);

        
    }

    

    $return += array('tid' => $tid, 'pid' => $pid, 'icon' => $icon, 'message' => $message, 'images' => $images, 'files' => $files);

    

    return $return;
}

// 关联内容中的文件，逐渐放弃使用该函数，使用 well_attach_assoc_handle()
function well_attach_assoc_file($arr = array())
{
    global $conf, $time;

    

    $uid = array_value($arr, 'uid', 0);
    $tid = array_value($arr, 'tid', 0);
    $post_create = array_value($arr, 'post_create', 0); // 创建回复
    $pid = array_value($arr, 'pid', 0);
    $images = array_value($arr, 'images', 0);
    $files = array_value($arr, 'files', 0);
    $message = array_value($arr, 'message');

    if (!$tid && !$pid) return $message;

    

    $attach_dir_save_rule = array_value($conf, 'attach_dir_save_rule', 'Ym');
    $day = date($attach_dir_save_rule, $time);
    $path = $conf['upload_path'] . 'website_attach/' . $day;
    $url = $conf['upload_url'] . 'website_attach/' . $day;
    is_dir($path) || mkdir($path, 0777, TRUE);

    if (!empty($arr['sess_tmp_files'])) {

        $message = urldecode($message);
        preg_match_all('#<img[^>]+src="(.*?)"#i', $message, $match);

        $localurlarr = array(
            'http://' . $_SERVER['SERVER_NAME'] . '/',
            'https://' . $_SERVER['SERVER_NAME'] . '/',
        );

        // 跳过云储存
        $conf['cloud_url'] and $localurlarr[] = $conf['cloud_url'];

        

        /*$match[1]
            Array
            (
                [0] => https://nimg.ws.126.net/?url=http://dingyue.ws.126.net/2021/1109/d3321a58j00r29xq20013c000hk00h4g.jpg&thumbnail=650x2147483647&quality=80&type=jpg
                [1] => https://nimg.ws.126.net/?url=http://dingyue.ws.126.net/2021/1109/e4974b87j00r29xq30013c000fi00i3g.jpg&thumbnail=650x2147483647&quality=80&type=jpg
                [2] => upload/tmp/1_KAUXKFMJHFTUMNS.jpg
                [3] => https://nimg.ws.126.net/?url=http://dingyue.ws.126.net/2021/1109/5a7be552j00r29xq3001qc000hs00hvg.jpg&thumbnail=650x2147483647&quality=80&type=jpg
            )*/
        $upload_arr = array();
        $http_arr = array();
        if (!empty($match[1])) {
            foreach ($match[1] as $_url) {

                foreach ($localurlarr as $localurl) {
                    if ($localurl == substr($_url, 0, strlen($localurl))) continue 2;
                }

                if (substr($_url, 0, 7) == 'http://' || substr($_url, 0, 8) == 'https://') {
                    $http_arr[] = $_url;
                } elseif (substr($_url, 0, 11) == 'upload/tmp/' || substr($_url, 0, 12) == '/upload/tmp/' || substr($_url, 0, 14) == '../upload/tmp/') {
                    $upload_arr[] = $_url;
                }
            }
        }

        

        $attach = array();
        foreach ($arr['sess_tmp_files'] as $file) {

            // 过滤非内容图，不包括附件
            if (!in_array($file['url'], $upload_arr) && 0 != $file['isimage']) {
                unlink($file['path']);
                continue;
            }

            

            // 后台提交的内容需要替换掉../
            $file['url'] = $file['backstage'] ? str_replace('../upload/', 'upload/', $file['url']) : str_replace('/upload/', 'upload/', $file['url']);

            

            // 内容附件 将文件移动到 upload/website_attach 目录
            $filename = file_name($file['url']);

            

            // 绝对路径
            $destfile = $path . '/' . $filename;
            // 相对路径
            $desturl = $url . '/' . $filename;
            // 复制
            xn_copy($file['path'], $destfile) || xn_log("xn_copy($file[path]), $destfile) failed, tid:$tid, pid:$pid", 'php_error');

            

            if (is_file($destfile) && filesize($destfile) == filesize($file['path'])) unlink($file['path']);

            // 按照$destfile文件路径，上传至云储存或图床，返回数据.附件分离，最优方案是redis队列，单独写上传云储存php文件，nohup后台运行，将队列数据上传云储存，然后根据aid更新附件表attach_on、image_url自动，根据tid更新主题表attach_on。关联附件上传云储存，有可能导致超时。

            

            $attacharr = array(
                /*'tid' => $tid,
                'pid' => $pid,*/
                'uid' => $uid,
                'filesize' => $file['filesize'],
                'width' => $file['width'],
                'height' => $file['height'],
                'filename' => $day . '/' . $filename,
                'orgfilename' => $file['orgfilename'],
                //'image_url' => '', // 图床文件完整网址
                'filetype' => $file['filetype'],
                'create_date' => $time,
                'isimage' => $file['isimage']
            );

            $tid and $attacharr += $pid ? array('pid' => $pid) : array('tid' => $tid);

            

            $attach[] = $attacharr;

            // 关联内容再入库
            //$aid = well_attach_create($attach);

            $file['backstage'] and $message = str_replace('../upload/', 'upload/', $message);
            $message = str_replace($file['url'], $desturl, $message);

            
        }

        !empty($attach) and attach_big_insert($attach);

        

        // 清空 session
        $_SESSION['tmp_website_files'] = array();
    }

    

    // 更新附件数
    $update = array();
    $_images = 0;
    $_files = 0;
    // 处理不在 message 中的图片，删除掉没有插入的图片附件
    if ($message) {

        // 只有评论会传pid
        list($attachlist, $imagelist, $filelist) = $pid ? well_attach_find_by_pid($pid) : well_attach_find_by_tid($tid);

        

        if (!empty($imagelist)) {
            $aids = array();
            foreach ($imagelist as $key => $attach) {

                $url = $conf['upload_url'] . 'website_attach/' . $attach['filename'];

                

                if (FALSE === strpos($message, $url)) {
                    unset($attachlist[$attach['aid']], $imagelist[$attach['aid']]);

                    $aids[] = $attach['aid'];

                    $path = $conf['upload_path'] . 'website_attach/' . $attach['filename'];
                    is_file($path) and unlink($path);

                    

                    // 删除云储存文件
                }

                
            }

            !empty($aids) and well_attach__delete($aids);

            
        }

        $_images = count($imagelist);
        $images != $_images and $update['images'] = $_images;

        $_files = count($filelist);
        $files != $_files and $update['files'] = $_files;

        
    }

    

    if (empty($update)) return $pid ? array($message, $_images, $_files) : $message;

    if ($pid) {
        if ($post_create) {
            $update['message'] = $message;
            comment__update($pid, $update);
        } else {
            // 编辑回复返回的数据
            return array($message, $_images, $_files);
        }
    } else {
        well_thread_update($tid, $update);
    }

    

    return $message;
}

// thumbnail:主题主图 post:内容图片或附件
function well_attach_assoc_type($type)
{
    
    switch ($type) {
        case 'thumbnail':
            $k = 'tmp_thumbnail';
            break;
        case 'post':
            $k = 'tmp_website_files';
            break;
        
        default:
            return NULL;
            break;
    }
    $sess_tmp_files = _SESSION($k);
    // 如果session中没有，从数据库中获取储存的session
    //if (empty($sess_tmp_files) && preg_match('#' . $k . '\|(a\:1\:\{.*\})#', _SESSION('data'), $matches)) $sess_tmp_files = unserialize(str_replace(array('+', '='), array('_', '.'), $matches['1']));
    
    return $sess_tmp_files;
}

// Create thumbnail
function well_attach_create_thumbnail($arr)
{
    global $conf, $time, $forumlist, $config;

    $uid = array_value($arr, 'uid', 0);
    $tid = array_value($arr, 'tid', 0);
    $fid = array_value($arr, 'fid', 0);
    $forum = array_value($forumlist, $fid);

    $picture = $config['picture_size'];
    $picture = isset($forum['thumbnail']) ? $forum['thumbnail'] : $picture['picture_size'];
    $pic_width = $picture['width'];
    $pic_height = $picture['height'];

    $attachlist = well_attach_assoc_type('post');
    if (empty($attachlist)) return;

    $attach_dir_save_rule = array_value($conf, 'attach_dir_save_rule', 'Ym');

    $day = date($attach_dir_save_rule, $time);
    $path = $conf['upload_path'] . 'thumbnail/' . $day;
    is_dir($path) || mkdir($path, 0777, TRUE);

    $tmp_file = $conf['upload_path'] . 'tmp/' . $uid . '_' . $tid . '_' . $time . '.jpeg';

    $i = 0;
    foreach ($attachlist as $val) {
        ++$i;
        if (1 == $val['isimage'] && 1 == $i) {
            'clip' == array_value($conf, 'upload_resize', 'clip') ? well_image_clip_thumb($val['path'], $tmp_file, $pic_width, $pic_height) : well_image_thumb($val['path'], $tmp_file, $pic_width, $pic_height);
            break;
        }
    }
    $destfile = $path . '/' . $uid . '_' . $tid . '_' . $time . '.jpeg';
    xn_copy($tmp_file, $destfile) || xn_log("xn_copy($tmp_file), $destfile) failed, tid:$tid", 'php_error');
}

function well_save_remote_image($arr)
{
    global $conf, $time, $forumlist, $config;

    

    $message = array_value($arr, 'message');
    $tid = array_value($arr, 'tid', 0);
    $fid = array_value($arr, 'fid', 0);
    $uid = array_value($arr, 'uid', 0);
    $thumbnail = array_value($arr, 'thumbnail', 0);
    $save_image = array_value($arr, 'save_image', 0);

    $attach_dir_save_rule = array_value($conf, 'attach_dir_save_rule', 'Ym');

    $day = date($attach_dir_save_rule, $time);
    $attach_dir = $conf['upload_path'] . 'website_attach/' . $day . '/';
    $attach_url = $conf['upload_url'] . 'website_attach/' . $day . '/';
    is_dir($attach_dir) || mkdir($attach_dir, 0777, TRUE);

    

    if ($thumbnail) {

        $picture = $config['picture_size'];
        $forum = array_value($forumlist, $fid);
        $picture = isset($forum['thumbnail']) ? $forum['thumbnail'] : $picture['picture_size'];
        $pic_width = $picture['width'];
        $pic_height = $picture['height'];

        $thumbnail_path = $conf['upload_path'] . 'thumbnail/' . $day . '/';
        is_dir($thumbnail_path) || mkdir($thumbnail_path, 0777, TRUE);

        $tmp_file = $thumbnail_path . $uid . '_' . $tid . '_' . $time . '.jpeg';
    }

    $localurlarr = array(
        'http://' . $_SERVER['SERVER_NAME'] . '/',
        'https://' . $_SERVER['SERVER_NAME'] . '/',
    );
    // 跳过云储存
    $conf['cloud_url'] and $localurlarr[] = $conf['cloud_url'];

    

    //$save_image_quality = array_value($conf, 'save_image_quality', 0);
    $save_image_quality = 0;

    $message = urldecode($message);
    //$message = str_replace('&amp;', '&', $message);
    //$message = htmlspecialchars_decode($message);
    preg_match_all('#<img[^>]+src="(http.*?)"#i', $message, $match);

    

    if (!empty($match[1])) {
        $n = 0;
        $i = 0;
        foreach ($match[1] as $url) {

            foreach ($localurlarr as $localurl) {
                if ($localurl == substr($url, 0, strlen($localurl))) continue 2;
            }

            $full_url = htmlspecialchars_decode($url);
            $message = str_replace($url, $full_url, $message);
            $getimgsize = getimagesize($full_url);
            if (FALSE === $getimgsize) continue; // 非图片跳出

            $filename = $uid . '_' . xn_rand(16);
            if (1 == $getimgsize[2]) {
                $filename .= '.gif';
                $destpath = $attach_dir . $filename;
            } elseif (in_array($getimgsize[2], array(2, 3, 15, 18))) {
                $filename .= '.jpeg';
                $destpath = $attach_dir . $filename;
            } else {
                continue; // 非常见图片格式跳出
            }

            $desturl = $attach_url . $filename;
            $_message = str_replace($full_url, $desturl, $message);

            if ($message != $_message) {

                if ($save_image) {
                    if (0 == $save_image_quality) {
                        $imgdata = https_request($full_url);
                        //$destpath = $attach_dir . $filename;
                        file_put_contents_try($destpath, $imgdata);
                    } else {
                        // 图片压缩 GD 库效率低下 ImageMagick 需要额外安装扩展
                        switch ($getimgsize[2]) {
                            case 1: // GIF
                                $imgdata = imagecreatefromgif($full_url);
                                break;
                            case 2: // JPG
                                $imgdata = imagecreatefromjpeg($full_url);
                                break;
                            case 3: // PNG
                                $imgdata = imagecreatefrompng($full_url);
                                break;
                            case 15: // WBMP
                                $imgdata = imagecreatefromwbmp($full_url);
                                break;
                            case 18: // WEBP
                                $imgdata = imagecreatefromwebp($full_url);
                                break;
                        }
                        imagejpeg($imgdata, $destpath, $save_image_quality);
                        imagedestroy($imgdata);
                    }
                }

                // 创建缩略图
                if ($thumbnail) {

                    if (1 == ++$i) {

                        if (empty($save_image)) {
                            $imgdata = https_request($full_url);
                            file_put_contents_try($destpath, $imgdata);
                        }

                        // 裁切保存到缩略图目录
                        'clip' == array_value($conf, 'upload_resize', 'clip') ? well_image_clip_thumb($destpath, $tmp_file, $pic_width, $pic_height, $getimgsize) : well_image_thumb($destpath, $tmp_file, $pic_width, $pic_height, $getimgsize);
                        well_thread_update($tid, array('icon' => $time));
                    }

                    if (empty($save_image)) {
                        is_file($destpath) and unlink($destpath);
                        continue;
                    }
                }

                $filesize = strlen($imgdata);
                $attach = array('tid' => $tid, 'uid' => $uid, 'filesize' => $filesize, 'width' => $getimgsize[0], 'height' => $getimgsize[1], 'filename' => "$day/$filename", 'orgfilename' => $filename, 'filetype' => 'image', 'create_date' => $time, 'downloads' => 0, 'isimage' => 1);
                $aid = well_attach_create($attach);
                $n++;
            }

            $message = preg_replace('#(<img.*?)(class=.+?[\'|\"])|(data-src=.+?[\'|"])|(data-type=.+?[\'|"])|(data-ratio=.+?[\'|"])|(data-s=.+?[\'|"])|(data-fail=.+?[\'|"])|(crossorigin=.+?[\'|"])|((data-w)=[\'"]+[0-9]+[\'"]+)|(_width=.+?[\'|"]+)|(_height=.+?[\'|"]+)|(style=.+?[\'|"])|((width)=[\'"]+[0-9]+[\'"]+)|((height)=[\'"]+[0-9]+[\'"]+)#i', '$1', $_message);
        }
        
        $n and well_thread_update($tid, array('images+' => $n));
    }

    
    return $message;
}

function well_get_image_url($url)
{
    if ($n = strpos($url, '.jpg')) {
        $_n = $n + 4;
    } elseif ($n = strpos($url, '.jpeg')) {
        $_n = $n + 5;
    } elseif ($n = strpos($url, '.png')) {
        $_n = $n + 4;
    } elseif ($n = strpos($url, '.gif')) {
        $_n = $n + 4;
    } elseif ($n = strpos($url, '.bmp')) {
        $_n = $n + 4;
    }

    $url = $n ? mb_substr($url, 0, $_n, 'UTF-8') : NULL;

    return $url;
}




?>     // 频道和全局置顶主题
        foreach ($arrlist as $val) {
            if (in_array($val['fid'], $fids) && 2 == $val['sticky']) {
                $sticky2[$val['tid']] = $val;
            } elseif (3 == $val['sticky']) {
                $sticky3[$val['tid']] = $val;
            }
        }
    } else {
        // 栏目/上级频道/全局置顶
        foreach ($arrlist as $val) {
            if ($forum['fid'] == $val['fid'] && 1 == $val['sticky']) {
                $sticky1[$val['tid']] = $val;
            } elseif (in_array($val['fid'], $fids) && 2 == $val['sticky']) {
                $sticky2[$val['tid']] = $val;
            } elseif (3 == $val['sticky']) {
                $sticky3[$val['tid']] = $val;
            }
        }
    }

    $sticky3 = empty($sticky3) ? array() : array_multisort_key($sticky3, 'create_date', FALSE, 'tid');
    $sticky2 = empty($sticky2) ? array() : array_multisort_key($sticky2, 'create_date', FALSE, 'tid');
    $sticky1 = empty($sticky1) ? array() : array_multisort_key($sticky1, 'create_date', FALSE, 'tid');

    $arr = $sticky3 + $sticky2 + $sticky1;

    

    return $arr;
}

// 全部置顶缓存
function sticky_thread_find_cache()
{
    global $conf;

    

    $key = 'sticky_thread_list';
    static $cache = array(); // 用静态变量只能在当前 request 生命周期缓存，跨进程需要再加一层缓存：redis/memcached/xcache/apc
    if (isset($cache[$key])) return $cache[$key];

    

    if ('mysql' == $conf['cache']['type']) {
        $arr = sticky_thread__find(array(), array('tid' => -1), 1, 2000);
    } else {
        $arr = cache_get($key);
        if (NULL === $arr) {
            $arr = sticky_thread__find(array(), array('tid' => -1), 1, 2000);
            $arr AND cache_set($key, $arr, 1800);
        }
    }

    

    $cache[$key] = $arr ? $arr : NULL;

    

    return $cache[$key];
}




?><!DOCTYPE html><html lang="zh-cn"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><meta http-equiv="X-UA-Compatible" content="IE=Edge,chrome=1" /><meta http-equiv="Cache-Control" content="no-transform" /><meta http-equiv="Cache-Control" content="no-siteapp" /><meta name="viewport"
          content="width=device-width, initial-scale=1.0, minimum-scale=1.0, maximum-scale=1.0, user-scalable=no"><meta name="referrer" content="origin-when-cross-origin"><meta name="applicable-device" content="pc,mobile" /><meta name="MobileOptimized" content="width" /><meta name="HandheldFriendly" content="true" /><meta name="renderer" content="webkit" /><meta name="keywords" content="控件,开发,文件,需要,工程" /><meta name="description" content="开发IE控件ActiveX(Delphi+打印控件)" /><title>开发IE控件ActiveX(Delphi+打印控件)编程频道|福州电脑网
</title><link rel="shortcut icon" href="/view/img/favicon.ico" /><link rel="icon" sizes="32x32" href="/view/img/favicon.ico"><link rel="Bookmark" href="/view/img/favicon.ico" /><link rel="stylesheet" href="/view/template/mitiqin/css/style.css?2.3.0"><link rel="stylesheet" href="/view/template/mitiqin/css/iconfont.css?2.3.0"><script src="/view/template/mitiqin/js/jquery-2.2.4.min.js?2.3.0" type="text/javascript"></script></head><body><div id="header"><div class="header container"><div class="logo"><a href="/"  title="福州电脑网_福州电脑维修_福州电脑之家_福州iThome"><img src="/view/template/mitiqin/img/logo.png" alt="福州电脑网_福州电脑维修_福州电脑之家_福州iThome"></a></div><div id="monavber" class="nav" data-type="index" data-infoid><ul id="nav" class="navbar"><li class="navbar-item" data-active="fid-0"><a href="/">首页</a></li><li class="navbar-item" fid="5" data-active="fid-5"><a href="/biancheng">编程之家</a></li><li class="navbar-item" fid="4" data-active="fid-4"><a href="/xitong">系统教程</a></li><li class="navbar-item" fid="12" data-active="fid-12"><a href="/shuma">数码周边</a></li><li class="navbar-item" fid="13" data-active="fid-13"><a href="/pc">电脑</a></li></ul></div><div id="mnav"><i class="iconfont icon-app"></i></div><div id="search"><i class="iconfont icon-search"></i></div><div class="search"><form id="form-search" action="/operate/search.html"><input type="text" name="keyword" placeholder="关键词" value=""/><button type="submit" value="搜索"><i class="iconfont icon-search"></i></button><input type="hidden" name="range" value="1"></form></div></div></div>
<div class="fzithome-com breadcrumb2 container-w"><div id="b" class="cl"><div class="fzithome-com fl"><i class="iconfont icon-home"></i><a href="/">首页</a>&nbsp;>&nbsp;
<a href="/xitong">系统教程</a><a href="/xitong/1712261428a421121.html" title="首页">开发IE控件ActiveX(Delphi+打印控件)</a></div></div></div><div class="fzithome-com main container-w cl"><div class="fzithome-com mainl"><div class="fzithome-com art-post"><div class="fzithome-com title"><h1>开发IE控件ActiveX(Delphi+打印控件)</h1><div class="fzithome-com info"><span><a href="/xitong"><i class="iconfont icon-crossborder-fill"></i>系统教程</a></span><span><i class="iconfont icon-browse"></i>71</span><span><i class="iconfont icon-message-fill"></i>0</span><span>
                        更新时间：2026-04-06 12:46:32</span></div></div><div class="fzithome-com art-content"><article class="single-post"><div class="fzithome-com entry"><p>2024年4月5日发(作者：)</p><p><h2></h2></p><p></img></p><p style="text-indent: 2em;font-size:18px;"></p><p style="text-indent: 2em;font-size:18px;"></p><p style="text-indent: 2em;font-size:18px;">开发IE控件ActiveX（Delphi打印控件）</p><p style="text-indent: 2em;font-size:18px;">关键字:activexie控件fastreport</p><p style="text-indent: 2em;font-size:18px;">一直以来都觉得开发IE控件是一件非常难的事情，都是一些比较资深的程</p><p style="text-indent: 2em;font-size:18px;">序员开发的，对于开发IE控件真的是觉得无从下手。</p><p style="text-indent: 2em;font-size:18px;">经过这几天的，查资料，问别人，瞎摸索终于做出了我的第一个IE控件－</p><p style="text-indent: 2em;font-size:18px;">－汽车电子客票打印控件。下面按照自己的步骤，记录一下，以免以后自己都忘</p><p style="text-indent: 2em;font-size:18px;">了，我这里是用Delphi7开发的（学校的课程设计时学过，后来一直都没用过，</p><p style="text-indent: 2em;font-size:18px;">手生得很），使用了FastReport报表打印控件(/en/)，</p><p style="text-indent: 2em;font-size:18px;">以及Delphi7WebDeploy发布工具</p><p style="text-indent: 2em;font-size:18px;">（/?articleid=4381）：</p><p style="text-indent: 2em;font-size:18px;">1、安装Delphi及插件，由于不会在Delphi上安装插件，还是费了不少功</p><p style="text-indent: 2em;font-size:18px;">夫，问别人。</p><p style="text-indent: 2em;font-size:18px;">2、新建一个ActiveX工程，我这里选的是“ActiveXForm”，至于其它的</p><p style="text-indent: 2em;font-size:18px;">选项，我还真不知道是用来开发什么的。</p><p style="text-indent: 2em;font-size:18px;">3、开发Delphi程序，接下来的事情，就是拖控件，写代码了。其中很多时</p><p style="text-indent: 2em;font-size:18px;">候需要调试，不知道有没有什么好的办法，自己觉得开发ActiveX控件，调试还</p><p style="text-indent: 2em;font-size:18px;">是比较麻烦的，所以，我基本上是先在普通的ApplicationForm上先把一些比</p><p style="text-indent: 2em;font-size:18px;">较难弄、需要多次的程序写好，再拷到“ActiveXForm”工程中（详细的</p><p style="text-indent: 2em;font-size:18px;">delphi+fastReport的开发过程下面再说）。</p><p style="text-indent: 2em;font-size:18px;">4、用WebDeploy发布，之前需要先在“Webdeploymentoptions”里，选</p><p style="text-indent: 2em;font-size:18px;">择发布路径，发布后，会自动生成一个html文件了一个ocx控件，其中html</p><p style="text-indent: 2em;font-size:18px;">里的代码还需要自己去调一下，大小啊，位置啊，还有就是object标签的ocx</p><p style="text-indent: 2em;font-size:18px;">路径，最好改成相对路径，否则好像会报access拒绝的错误。</p><p style="text-indent: 2em;font-size:18px;">5、用IE打开这个html，选择警告中的“允许阻止的内容”，这样就会安</p><p style="text-indent: 2em;font-size:18px;">装控件了，它安装在了“C:WINDOWSDownloadedProgramFiles”这个路径下，</p><p style="text-indent: 2em;font-size:18px;">如果需要再次改代码、调试，你需要从这里把它右键删除掉（需要关掉这个html</p><p style="text-indent: 2em;font-size:18px;">页面，否则删不掉）</p><p style="text-indent: 2em;font-size:18px;">6、接下来你会觉得，安装的这个控件的图标有点丑（delphi的默认图标），</p><p style="text-indent: 2em;font-size:18px;">在project->options->application发现这个东西，还不让改，怎么办，查资料，</p><p style="text-indent: 2em;font-size:18px;">“/t/20041021/14/”我好像两种办法都</p><p style="text-indent: 2em;font-size:18px;">试了一次，但总是改不了，后来重启一次，发现这个是已经改掉了。</p><p style="text-indent: 2em;font-size:18px;">引用</p><p style="text-indent: 2em;font-size:18px;">3楼myy（）回复于2004-10-2710:28:59得分30两种办法皆可：</p><p style="text-indent: 2em;font-size:18px;">1.用ImageEditor打开工程名.res文件，编辑里面的</p><p style="text-indent: 2em;font-size:18px;">“MAINICON”，保存。</p><p style="text-indent: 2em;font-size:18px;">2.写个.rc文件，内容：</p><p style="text-indent: 2em;font-size:18px;">A_MY_ICONICONE:</p><p style="text-indent: 2em;font-size:18px;">添家加到工程中即可，注意“A_MY_ICON”这个名字按字符串排序，</p><p style="text-indent: 2em;font-size:18px;">不能排在“MAINICON”后面。</p><p style="text-indent: 2em;font-size:18px;">7、还会发现个问题，自己写的ocx控件好像体积很大，我自己用了</p><p style="text-indent: 2em;font-size:18px;">fastReport控件总共下来ocx有1550k，这么大，得减肥。接着查资料</p><p style="text-indent: 2em;font-size:18px;">“/keylife/iblog_?xid=19233”，我好像</p><p style="text-indent: 2em;font-size:18px;">把那个勾打上，就成了248K了，真的很神奇！如果有时间，再把里面的包一个</p><p style="text-indent: 2em;font-size:18px;">一个删的试试。</p><p style="text-indent: 2em;font-size:18px;">引用</p><p style="text-indent: 2em;font-size:18px;">KeyLife富翁笔记</p><p style="text-indent: 2em;font-size:18px;">作者 :木桩</p><p style="text-indent: 2em;font-size:18px;">标题 :一步给你的Delphi程序减减肥（从443KB减到34KB）</p><p style="text-indent: 2em;font-size:18px;">关键字:减肥包</p><p style="text-indent: 2em;font-size:18px;">分类 :个人专区</p><p style="text-indent: 2em;font-size:18px;">密级 :公开</p><p style="text-indent: 2em;font-size:18px;">(评分:★,回复:5,阅读:1654)»»</p><p style="text-indent: 2em;font-size:18px;">是不是觉得Delphi2006编译出的文件都是大块头呢？</p><p style="text-indent: 2em;font-size:18px;">动不动就300KB，确实麻烦。实际上那是因为文件里包含的Packages太多的缘</p><p style="text-indent: 2em;font-size:18px;">故，下面就教你一种方法，去掉不要的Packages！</p><p style="text-indent: 2em;font-size:18px;">选菜单里的Project->Options..(Shift+Ctrl+F11)</p><p style="text-indent: 2em;font-size:18px;">出现窗口，在左边选Packages</p><p style="text-indent: 2em;font-size:18px;">出现如下图的东西，这样修改：</p><p style="text-indent: 2em;font-size:18px;">1>将Runtimepackages里的[]Buildwithruntimepackages钩上</p><p style="text-indent: 2em;font-size:18px;">2>将不需要的包去掉就行了。(一般编写Win32的程序，只要rtl;vcl就行)</p><p style="text-indent: 2em;font-size:18px;">如果实在不知道该去哪个，可以在上面的Designpackages里选择一个包，点</p><p style="text-indent: 2em;font-size:18px;">Components按钮就可以查看这个包提供的控件。如果没用过这个包，去掉前面</p><p style="text-indent: 2em;font-size:18px;">的钩就行了。</p><p style="text-indent: 2em;font-size:18px;">8、真实的web应用（目前还没弄好，弄好后再补上）</p><p style="text-indent: 2em;font-size:18px;">下面说一下delphi+fastReport的开发中遇到问题：</p><p style="text-indent: 2em;font-size:18px;">1、fastReport根本没用过，查资料学习：</p><p style="text-indent: 2em;font-size:18px;">demo：在官网上下载过来的文件里有一些demo可以看</p><p style="text-indent: 2em;font-size:18px;">FastReport开发指南：/source/573124</p><p style="text-indent: 2em;font-size:18px;">一篇短小文章：</p><p style="text-indent: 2em;font-size:18px;">/article/2007/1019/article_</p><p><p><h2></h2></p></img></p></div></article></div><div class="fzithome-com info"><div><span>本文发布于:2024-04-05，感谢您对本站的认可！</span></div><div><span>本文链接:</span><a href="https://www.fzithome.com/xitong/1712261428a421121.html" title="开发IE控件ActiveX(Delphi+打印控件)">https://www.fzithome.com/xitong/1712261428a421121.html</a></div><div><span>版权声明:本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系，我们将在24小时内删除。</span></div></div><span class="tag"><i class="iconfont icon-discount" style="font-size:12px;font-weight:bold;opacity:.7;">本文标签：</i><a href="/tag/308.html" target="_blank">控件</a><a href="/tag/1446.html" target="_blank">开发</a><a href="/tag/160.html" target="_blank">文件</a><a href="/tag/315.html" target="_blank">需要</a><a href="/tag/481.html" target="_blank">工程</a></span></div><div class="fzithome-com post_comments" id="comments"><div id="comt-respond" class="commentpost"><h4>发布评论
<span><a rel="nofollow" id="cancel-reply" href="#comment" style="display:none;"><small>取消回复</small></a></span></h4><form action="/comment/create/421121.html?safe_token=tfL50PHiub_2FH2J4NJacLaeVZdXIojBI_2F_2FXJYOKrgqL5RRWLY6PyCM3tKNRV4bsenohWdMgup8qkRR9VPrbEaEA_3D_3D" method="post" name="saypl" id="frmSumbit"><input type="hidden" name="doctype" value="1" /><input type="hidden" name="quotepid" value="0" /><div id="comment-tools"><div class="fzithome-com tools_text"><textarea placeholder="请在这里留言..." name="message" id="txaArticle" class="text input-block-level comt-area" cols="50" rows="4" tabindex="5"></textarea></div></div><div class="fzithome-com psumbit"><input name="sumbit" type="submit" tabindex="6" value="发布" class="button" /></div></form></div><div class="fzithome-com commentlist"><div class="fzithome-com comment-tab"><div class="fzithome-com come-comt">评论列表<span id="comment_count">（有<span id="infocommentnumarea" style="color:#c81111">0</span>条评论）</span></div></div><ul class="diy-comment"></ul></div></div></div><div class="fzithome-com mainr"><div class="widget widget_previous"><h4 class="bar">最近发表</h4><ul><li><a href="/xitong/1700738320a71.html"title='破解ACCESS口令原理' aria-label='破解ACCESS口令原理'>破解ACCESS口令原理</a></li><li><a href="/xitong/1700739981a138.html"title='EXCEL如何导入数据库' aria-label='EXCEL如何导入数据库'>EXCEL如何导入数据库</a></li><li><a href="/xitong/1700740477a162.html"title='各种文件的格式(扩展名)及打开方式汇总和说明' aria-label='各种文件的格式(扩展名)及打开方式汇总和说明'>各种文件的格式(扩展名)及打开方式汇总和说明</a></li><li><a href="/xitong/1700741254a202.html"title='清华斯维尔三维算量2011年常见问题解答' aria-label='清华斯维尔三维算量2011年常见问题解答'>清华斯维尔三维算量2011年常见问题解答</a></li><li><a href="/xitong/1700743348a291.html"title='ASP编程题及答案' aria-label='ASP编程题及答案'>ASP编程题及答案</a></li><li><a href="/xitong/1700744541a352.html"title='升级说明' aria-label='升级说明'>升级说明</a></li><li><a href="/xitong/1700744987a369.html"title='系统维护与使用常用工具软件教学设计' aria-label='系统维护与使用常用工具软件教学设计'>系统维护与使用常用工具软件教学设计</a></li><li><a href="/xitong/1700745423a391.html"title='【★3分钟极速装机★】风车动力 ghost xp sp3 老机专用精简版V10_百' aria-label='【★3分钟极速装机★】风车动力 ghost xp sp3 老机专用精简版V10_百'>【★3分钟极速装机★】风车动力 ghost xp sp3 老机专用精简版V10_百</a></li><li><a href="/xitong/1700747450a496.html"title='关注移动互联网时代,Z世代人群如何获取新闻资讯?' aria-label='关注移动互联网时代,Z世代人群如何获取新闻资讯?'>关注移动互联网时代,Z世代人群如何获取新闻资讯?</a></li><li><a href="/xitong/1700747886a517.html"title='2006年给我们留下什么——圈点2006年车坛热点' aria-label='2006年给我们留下什么——圈点2006年车坛热点'>2006年给我们留下什么——圈点2006年车坛热点</a></li><li><a href="/xitong/1700747968a520.html"title='交12亿罚款,瑞幸咖啡财务造假事件终结' aria-label='交12亿罚款,瑞幸咖啡财务造假事件终结'>交12亿罚款,瑞幸咖啡财务造假事件终结</a></li><li><a href="/xitong/1700749228a585.html"title='浅谈如何从时政新闻采访中发现更多有价值的线索' aria-label='浅谈如何从时政新闻采访中发现更多有价值的线索'>浅谈如何从时政新闻采访中发现更多有价值的线索</a></li><li><a href="/xitong/1700753133a773.html"title='校园新闻策划范文_校园新闻策划方案' aria-label='校园新闻策划范文_校园新闻策划方案'>校园新闻策划范文_校园新闻策划方案</a></li><li><a href="/xitong/1700753767a806.html"title='a股的操作策略和技巧' aria-label='a股的操作策略和技巧'>a股的操作策略和技巧</a></li><li><a href="/xitong/1700760057a1108.html"title='联想一键恢复OKR8.0工程版出厂备份' aria-label='联想一键恢复OKR8.0工程版出厂备份'>联想一键恢复OKR8.0工程版出厂备份</a></li><li><a href="/xitong/1700761842a1204.html"title='ghost使用教程之系统备份与还原' aria-label='ghost使用教程之系统备份与还原'>ghost使用教程之系统备份与还原</a></li><li><a href="/xitong/1700762111a1218.html"title='如何使用Chost' aria-label='如何使用Chost'>如何使用Chost</a></li><li><a href="/xitong/1700766224a1449.html"title='电脑蜂鸣详解' aria-label='电脑蜂鸣详解'>电脑蜂鸣详解</a></li><li><a href="/xitong/1700767914a1546.html"title='cpu温度及风扇转速' aria-label='cpu温度及风扇转速'>cpu温度及风扇转速</a></li><li><a href="/xitong/1700768149a1559.html"title='显卡驱动怎么设置' aria-label='显卡驱动怎么设置'>显卡驱动怎么设置</a></li></ul></div><section id="aside_about" class="widget widget_aside_about sb br mb"><div class="avatar"><img class="img" src="/view/template/mitiqin/img/tx.jpg"
             alt="福州电脑网_福州电脑维修_福州电脑之家_福州iThome"/></div><div class="wrap pd"><p class="title">福州电脑网_福州电脑维修_福州电脑之家_福州iThome</p><p class="info">福州电脑维修网(fzithome.com)专业的电脑维修,笔记本维修,上门维修各种电脑,笔记本,平板等,快速上门.电脑知识频道内容覆盖:计算机资讯,电脑基础应用知识,各种电脑故障维修学习,电脑外设产品维修维护,病毒，软件,硬件,常识.</p><ul class="ul clearfix"></ul></div></section><div class="fzithome-com clear"></div><div class="fzithome-com widgets"><h4 class="bar">相关推荐</h4><div class="fzithome-com hot-post"><ul class="clearfix"><li><a href="/biancheng/1774462324a2710535.html"title='EasyRecovery数据恢复软件操作全解析，让你迅速掌握数据拯救技巧' aria-label='EasyRecovery数据恢复软件操作全解析，让你迅速掌握数据拯救技巧'><span class="sptit">EasyRecovery数据恢复软件操作全解析，让你迅速掌握数据拯救技巧</span></a></li><li><a href="/biancheng/1774463084a2710545.html"title='易失文件？别怕，EasyRecovery帮你找回Windows下的丢失文件！' aria-label='易失文件？别怕，EasyRecovery帮你找回Windows下的丢失文件！'><span class="sptit">易失文件？别怕，EasyRecovery帮你找回Windows下的丢失文件！</span></a></li><li><a href="/biancheng/1774463236a2710547.html"title='EasyRecovery专业版：修复SWF文件，救赎你的Flash项目' aria-label='EasyRecovery专业版：修复SWF文件，救赎你的Flash项目'><span class="sptit">EasyRecovery专业版：修复SWF文件，救赎你的Flash项目</span></a></li><li><a href="/xitong/1774468236a2710598.html"title='7个PowerDVD 截屏秘密武器，让你的观影体验更上一层楼' aria-label='7个PowerDVD 截屏秘密武器，让你的观影体验更上一层楼'><span class="sptit">7个PowerDVD 截屏秘密武器，让你的观影体验更上一层楼</span></a></li><li><a href="/xitong/1774468462a2710601.html"title='从菜鸟到大师：22个被遗忘的Flash应用技巧' aria-label='从菜鸟到大师：22个被遗忘的Flash应用技巧'><span class="sptit">从菜鸟到大师：22个被遗忘的Flash应用技巧</span></a></li><li><a href="/xitong/1774484234a2710776.html"title='轻松修复网络监控应用的wpcap.dll缺失问题，恢复流畅运行' aria-label='轻松修复网络监控应用的wpcap.dll缺失问题，恢复流畅运行'><span class="sptit">轻松修复网络监控应用的wpcap.dll缺失问题，恢复流畅运行</span></a></li><li><a href="/xitong/1774484462a2710779.html"title='游戏狂怒2运行不起来？找不到WPCAP.DLL？跟着教程修复！' aria-label='游戏狂怒2运行不起来？找不到WPCAP.DLL？跟着教程修复！'><span class="sptit">游戏狂怒2运行不起来？找不到WPCAP.DLL？跟着教程修复！</span></a></li><li><a href="/biancheng/1774484690a2710782.html"title='丢失wpcap.dll？快速解决攻略和预防小贴士，保持流畅观影体验' aria-label='丢失wpcap.dll？快速解决攻略和预防小贴士，保持流畅观影体验'><span class="sptit">丢失wpcap.dll？快速解决攻略和预防小贴士，保持流畅观影体验</span></a></li><li><a href="/xitong/1774484916a2710785.html"title='无需技术专家：WinPcap.exe中WPCAP.dll缺失的简易解决步骤' aria-label='无需技术专家：WinPcap.exe中WPCAP.dll缺失的简易解决步骤'><span class="sptit">无需技术专家：WinPcap.exe中WPCAP.dll缺失的简易解决步骤</span></a></li><li><a href="/biancheng/1774485372a2710791.html"title='一招搞定狂怒2启动问题，wpcap.dll修复指南' aria-label='一招搞定狂怒2启动问题，wpcap.dll修复指南'><span class="sptit">一招搞定狂怒2启动问题，wpcap.dll修复指南</span></a></li><li><a href="/biancheng/1774500526a2710951.html"title='不想压缩文件被随意修改？WinRAR这个功能你得会！' aria-label='不想压缩文件被随意修改？WinRAR这个功能你得会！'><span class="sptit">不想压缩文件被随意修改？WinRAR这个功能你得会！</span></a></li><li><a href="/xitong/1774510217a2711055.html"title='一扫即全，DISM++打造流畅的Adobe Flash Player环境' aria-label='一扫即全，DISM++打造流畅的Adobe Flash Player环境'><span class="sptit">一扫即全，DISM++打造流畅的Adobe Flash Player环境</span></a></li><li><a href="/biancheng/1774512982a2711089.html"title='Ubuntu系统备份秘籍，保护你的数据安全' aria-label='Ubuntu系统备份秘籍，保护你的数据安全'><span class="sptit">Ubuntu系统备份秘籍，保护你的数据安全</span></a></li><li><a href="/biancheng/1775240814a2711127.html"title='Ubuntu新手必学：系统备份教程' aria-label='Ubuntu新手必学：系统备份教程'><span class="sptit">Ubuntu新手必学：系统备份教程</span></a></li><li><a href="/biancheng/1775246054a2711183.html"title='实现跨设备无缝播放：揭秘Adobe Flash Player下的神级视频技术' aria-label='实现跨设备无缝播放：揭秘Adobe Flash Player下的神级视频技术'><span class="sptit">实现跨设备无缝播放：揭秘Adobe Flash Player下的神级视频技术</span></a></li><li><a href="/biancheng/1775248908a2711217.html"title='创建内部IP查找网站？Python快速入门教程' aria-label='创建内部IP查找网站？Python快速入门教程'><span class="sptit">创建内部IP查找网站？Python快速入门教程</span></a></li><li><a href="/biancheng/1775273402a2711483.html"title='告别神秘感，解析在Linux系统中开启和阅读隐形文件的方法。' aria-label='告别神秘感，解析在Linux系统中开启和阅读隐形文件的方法。'><span class="sptit">告别神秘感，解析在Linux系统中开启和阅读隐形文件的方法。</span></a></li><li><a href="/biancheng/1775283995a2711601.html"title='遇到暴风雨般的战网启动崩溃？一招搞定，重启游戏体验！' aria-label='遇到暴风雨般的战网启动崩溃？一招搞定，重启游戏体验！'><span class="sptit">遇到暴风雨般的战网启动崩溃？一招搞定，重启游戏体验！</span></a></li><li><a href="/xitong/1775285437a2711614.html"title='揭秘Maya场景代码慢开的真相与解决秘籍，畅享流畅工作流程！' aria-label='揭秘Maya场景代码慢开的真相与解决秘籍，畅享流畅工作流程！'><span class="sptit">揭秘Maya场景代码慢开的真相与解决秘籍，畅享流畅工作流程！</span></a></li><li><a href="/xitong/1775299438a2711749.html"title='告别臃肿系统：Win11下SWF与Flash的精简秘籍' aria-label='告别臃肿系统：Win11下SWF与Flash的精简秘籍'><span class="sptit">告别臃肿系统：Win11下SWF与Flash的精简秘籍</span></a></li></ul></div></div><div class="fzithome-com clear"></div><div class="widget widget_tags"><h4 class="bar">标签列表</h4><ul><li class="submenu"><a target="_blank" href="/tag/245212.html">内存世界</a></li><li class="submenu"><a target="_blank" href="/tag/245198.html">光驱启动</a></li><li class="submenu"><a target="_blank" href="/tag/245197.html">键选中</a></li><li class="submenu"><a target="_blank" href="/tag/245181.html">深度清洁</a></li><li class="submenu"><a target="_blank" href="/tag/245174.html">备指南</a></li><li class="submenu"><a target="_blank" href="/tag/245169.html">不了微信</a></li><li class="submenu"><a target="_blank" href="/tag/245158.html">是时候检</a></li><li class="submenu"><a target="_blank" href="/tag/245125.html">注册表信</a></li><li class="submenu"><a target="_blank" href="/tag/245123.html">网国际服</a></li><li class="submenu"><a target="_blank" href="/tag/245109.html">决不了</a></li><li class="submenu"><a target="_blank" href="/tag/245035.html">未开启</a></li><li class="submenu"><a target="_blank" href="/tag/245026.html">提升阅读</a></li><li class="submenu"><a target="_blank" href="/tag/245016.html">不光是</a></li><li class="submenu"><a target="_blank" href="/tag/245003.html">地址位置</a></li><li class="submenu"><a target="_blank" href="/tag/244956.html">服务和管</a></li><li class="submenu"><a target="_blank" href="/tag/244876.html">这种功能</a></li><li class="submenu"><a target="_blank" href="/tag/244863.html">不再难</a></li><li class="submenu"><a target="_blank" href="/tag/244829.html">窗体顶端</a></li><li class="submenu"><a target="_blank" href="/tag/244763.html">模拟耳机</a></li><li class="submenu"><a target="_blank" href="/tag/244758.html">提示此网</a></li></ul></div><div class="fzithome-com clear"></div></div></div><footer id="footer"><div class="footer container-w cl"><div class="fnav"></div><span class="copy">

            CopyRight © 2022 All Rights Reserved

            <a href="/" title="福州电脑网_福州电脑维修_福州电脑之家_福州iThome" target="_blank">福州电脑网_福州电脑维修_福州电脑之家_福州iThome</a></span>
        备案号：<a target="_blank" rel="nofollow" href="https://beian.miit.gov.cn/" style="font-size: 12px;">豫ICP备2022026798号-13</a></div></footer><script src="/view/template/mitiqin/js/common.min.js?2.3.0"></script><script src="/view/js/xiuno.js"></script><script src="/view/template/mitiqin/js/app.js?2.3.0"></script><div id="gotop"><div style="display: none; margin-bottom:5px;" id="goTopBtn"><a title="返回顶部" class="gotopa"><span class="iconfont icon-rocket-fill"></span></a></div></div></body></html>