新书推介：《语义网技术体系》
作者：瞿裕忠，胡伟，程龚
   XML论坛     W3CHINA.ORG讨论区     计算机科学论坛     SOAChina论坛     Blog     开放翻译计划     新浪微博  
 
  • 首页
  • 登录
  • 注册
  • 软件下载
  • 资料下载
  • 核心成员
  • 帮助
    		•   Add to Google

    >> 本版讨论SVG, GML, X3D, VRML, VML, XAML, AVALON, Batik等基于XML的图形技术，以及有关GIS的应用。
    [返回] 中文XML论坛 - 专业的XML技术讨论区 → XML.ORG.CN讨论区 - 高级XML应用 → 『 SVG/GML/VRML/X3D/XAML 』 → [原创]如何利用Delphi和WinGraphviz开发SVG图形程序 ◇查看新帖 ◇ 用户列表 ◇

      发表一个新主题  发表一个新投票  回复主题  (订阅本版) 您是本帖的第 6571 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子　浏览下一篇主题
     * 贴子主题： [原创]如何利用Delphi和WinGraphviz开发SVG图形程序 举报  打印  推荐  IE收藏夹 
       本主题类别:     
     SCYANGYU 帅哥哟，离线，有人找我吗？处女座1971-9-20
      
      
      威望：7
      等级：大四(每天看1小时莱昂氏)
      文章：217
      积分：1281
      门派：XML.ORG.CN
      注册：2005/2/17

    姓名：(无权查看)
    城市：(无权查看)
    院校：(无权查看)
    给SCYANGYU发送一个短消息 把SCYANGYU加入好友 查看SCYANGYU的个人资料 搜索SCYANGYU在『 SVG/GML/VRML/X3D/XAML 』的所有贴子 引用回复这个贴子 回复这个贴子 查看SCYANGYU的博客楼主
    发贴心情 [原创]如何利用Delphi和WinGraphviz开发SVG图形程序

    如何利用Delphi和WinGraphviz开发SVG图形程序

          一直对于用Delphi开发SVG的程序感兴趣，这两天接触了WinGraphviz(http://home.so-net.net.tw/oodtsen/wingraphviz)，按照例子Graph Visualization in Delphi (http://www.kylecordes.com/story-267-graphviz-delphi.html)学习做了一次，觉得非常好，以后有空多研究研究。

    源代码如下：

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls,WINGRAPHVIZLib_TLB, GIFImage, OleCtrls,
      SHDocVw;

    type
      TForm1 = class(TForm)
        ctlPicture: TImage;
        txtInput: TMemo;
        cmdExec: TButton;
        Button1: TButton;
        WebBrowser1: TWebBrowser;
        procedure cmdExecClick(Sender: TObject);
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.cmdExecClick(Sender: TObject);
    var
      Dot: IDot;
      Image: IBinaryImage;
      ImageFileName: string;
    begin
       ImageFileName := 'c:\image.gif';
       Dot := CoDOT.Create;
       Image := Dot.ToGIF(txtInput.Text);
       Image.Save(ImageFileName);
       ctlPicture.Picture.LoadFromFile(ImageFileName);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Dot: IDot;
      Image: IBinaryImage;
      ImageFileName: string;
    begin
      ImageFileName := 'c:\image.svg';
      Dot := CoDOT.Create;
      Image := Dot.ToSVGZ(txtInput.Text);
      Image.Save(ImageFileName);
      WebBrowser1.Navigate('file:///C:/image.svg');
    end;

    end.


       收藏   分享  
    顶(0)
      




    ----------------------------------------------
    http://borland.mblogger.cn/scyangyu/

    点击查看用户来源及管理<br>发贴IP：*.*.*.* 2005/2/18 15:46:00
     
     jgame 帅哥哟，离线，有人找我吗？
      
      
      等级：大一新生
      文章：9
      积分：88
      门派：XML.ORG.CN
      注册：2005/3/26

    姓名：(无权查看)
    城市：(无权查看)
    院校：(无权查看)
    给jgame发送一个短消息 把jgame加入好友 查看jgame的个人资料 搜索jgame在『 SVG/GML/VRML/X3D/XAML 』的所有贴子 引用回复这个贴子 回复这个贴子 查看jgame的博客第2楼
    发贴心情 
    WINGRAPHVIZLib_TLB

    这个单元怎么进来的...

    找不到啊...怎么装啊...

    点击查看用户来源及管理<br>发贴IP：*.*.*.* 2005/3/27 12:07:00
     
     crab_Yao 帅哥哟，离线，有人找我吗？
      
      
      等级：大一新生
      文章：2
      积分：64
      门派：XML.ORG.CN
      注册：2005/10/24

    姓名：(无权查看)
    城市：(无权查看)
    院校：(无权查看)
    给crab_Yao发送一个短消息 把crab_Yao加入好友 查看crab_Yao的个人资料 搜索crab_Yao在『 SVG/GML/VRML/X3D/XAML 』的所有贴子 引用回复这个贴子 回复这个贴子 查看crab_Yao的博客第3楼
    发贴心情 
    我也找不到该文件，不知道怎样能放上去。
    点击查看用户来源及管理<br>发贴IP：*.*.*.* 2005/10/24 10:17:00
     
     crab_Yao 帅哥哟，离线，有人找我吗？
      
      
      等级：大一新生
      文章：2
      积分：64
      门派：XML.ORG.CN
      注册：2005/10/24

    姓名：(无权查看)
    城市：(无权查看)
    院校：(无权查看)
    给crab_Yao发送一个短消息 把crab_Yao加入好友 查看crab_Yao的个人资料 搜索crab_Yao在『 SVG/GML/VRML/X3D/XAML 』的所有贴子 引用回复这个贴子 回复这个贴子 查看crab_Yao的博客第4楼
    发贴心情 
    发现：
    要到上面的连接地址，下载Wingraphziv的两个文件，按说明安装与注册
    之后，把该dll文件import到delphi中，就可以在active中找到WINGRAPHVIZLib_TLB
    具体的操作连接如下：
    http://home.so-net.net.tw/oodtsen/wingraphviz/
    点击查看用户来源及管理<br>发贴IP：*.*.*.* 2005/10/24 12:49:00
     
     GoogleAdSense
      
      
      等级：大一新生
      文章：1
      积分：50
      门派：无门无派
      院校：未填写
      注册：2007-01-01
    给Google AdSense发送一个短消息 把Google AdSense加入好友 查看Google AdSense的个人资料 搜索Google AdSense在『 SVG/GML/VRML/X3D/XAML 』的所有贴子 访问Google AdSense的主页 引用回复这个贴子 回复这个贴子 查看Google AdSense的博客广告
    2025/7/18 16:14:47

    本主题贴数4，分页： [1]

    管理选项： 修改tag | 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告
    W3C Contributing Supporter! W 3 C h i n a ( since 2003 ) 旗 下 站 点
    苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
    		 62.500ms