整合营销服务商
电脑端+手机端+微信端=数据同步管理
免费咨询热线：
电脑端+手机端+微信端=数据同步管理
免费咨询热线：
用DeWeb可以实现用Delphi开发echarts图表
DeWeb : Delphi开发者的Web解决方案！
DeWeb是一个可以直接将Delphi程序快速转换为网页应用的工具！ 使用DeWeb, 开发者不需要学习HTML、JavaScript、Java、PHP、ASP、C#等新知识，用Delphi搞定一切。 DeWeb开发的网页支持所有客户端，包括手机、平板等。
网址：https://gitee.com/xamh/dewebsdk
采用DeWeb可以非常方便开发echarts图表应用。
还不会DeWeb开发的朋友请参考相关文档
1 打开一个基本DeWeb应用
比如自带的hello例程
2 创建echarts控件
拖放一个TMemo控件，设置其HelpKeyword为echarts
3 配置echarts控件
（1）在echarts官网打开拟开发的图表例程，如
https://echarts.apache.org/examples/zh/editor.html?c=pie-nest
效果图如下：
echarts图表效果
（2）复制该网页左侧的JS代码，注意：只复制option后{....}及其中的内容
（3）打开Notepad++, 新建一个文件，粘贴进去, 再全选，然后复制；
这一步骤主要是保持原代码的换行符。直接复制到TMemo控件中会丢失，导致错误。
（4）打开Delphi中TMemo控件的Lines, 粘贴进去
即内容为
{
tooltip: {
trigger: 'item',
formatter: '{a} <br/>{b}: {c} ({d}%)'
},
legend: {
data: [
'Direct',
'Marketing',
'Search Engine',
'Email',
'Union Ads',
'Video Ads',
'Baidu',
'Google',
'Bing',
'Others'
]
},
series: [
{
name: 'Access From',
type: 'pie',
selectedMode: 'single',
radius: [0, '30%'],
label: {
position: 'inner',
fontSize: 14
},
labelLine: {
show: false
},
data: [
{ value: 1548, name: 'Search Engine' },
{ value: 775, name: 'Direct' },
{ value: 679, name: 'Marketing', selected: true }
]
},
{
name: 'Access From',
type: 'pie',
radius: ['45%', '60%'],
labelLine: {
length: 30
},
label: {
formatter: '{a|{a}}{abg|}\n{hr|}\n {b|{b}：}{c} {per|{d}%} ',
backgroundColor: '#F6F8FC',
borderColor: '#8C8D8E',
borderWidth: 1,
borderRadius: 4,
rich: {
a: {
color: '#6E7079',
lineHeight: 22,
align: 'center'
},
hr: {
borderColor: '#8C8D8E',
width: '100%',
borderWidth: 1,
height: 0
},
b: {
color: '#4C5058',
fontSize: 14,
fontWeight: 'bold',
lineHeight: 33
},
per: {
color: '#fff',
backgroundColor: '#4C5058',
padding: [3, 4],
borderRadius: 4
}
}
},
data: [
{ value: 1048, name: 'Baidu' },
{ value: 335, name: 'Direct' },
{ value: 310, name: 'Email' },
{ value: 251, name: 'Google' },
{ value: 234, name: 'Union Ads' },
{ value: 147, name: 'Bing' },
{ value: 135, name: 'Video Ads' },
{ value: 102, name: 'Others' }
]
}
]
}在窗体的OnMouseDown事件中写入
dwEcharts(Memo1);
编译运行，即可得到
（5）更新数据。
执行到上一步，效果出来了，但会发现无法更新数据。
原因是代码中把数据（data部分）写成固定的了
先需要把TMemo的内容改成以下。注意"data:XXX"的变化
{
tooltip: {
trigger: 'item',
formatter: '{a} <br/>{b}: {c} ({d}%)'
},
legend: {
data: [
'Direct',
'Marketing',
'Search Engine',
'Email',
'Union Ads',
'Video Ads',
'Baidu',
'Google',
'Bing',
'Others'
]
},
series: [
{
name: 'Access From',
type: 'pie',
selectedMode: 'single',
radius: [0, '30%'],
label: {
position: 'inner',
fontSize: 14
},
labelLine: {
show: false
},
data: this.value0
},
{
name: 'Access From',
type: 'pie',
radius: ['45%', '60%'],
labelLine: {
length: 30
},
label: {
formatter: '{a|{a}}{abg|}\n{hr|}\n {b|{b}：}{c} {per|{d}%} ',
backgroundColor: '#F6F8FC',
borderColor: '#8C8D8E',
borderWidth: 1,
borderRadius: 4,
rich: {
a: {
color: '#6E7079',
lineHeight: 22,
align: 'center'
},
hr: {
borderColor: '#8C8D8E',
width: '100%',
borderWidth: 1,
height: 0
},
b: {
color: '#4C5058',
fontSize: 14,
fontWeight: 'bold',
lineHeight: 33
},
per: {
color: '#fff',
backgroundColor: '#4C5058',
padding: [3, 4],
borderRadius: 4
}
}
},
data: this.value1
}
]
}对应
this.value0应为
[
{ value: 1548, name: 'Search Engine' },
{ value: 775, name: 'Direct' },
{ value: 679, name: 'Marketing', selected: true }
]
this.value1应为
[
{ value: 1048, name: 'Baidu' },
{ value: 335, name: 'Direct' },
{ value: 310, name: 'Email' },
{ value: 251, name: 'Google' },
{ value: 234, name: 'Union Ads' },
{ value: 147, name: 'Bing' },
{ value: 135, name: 'Video Ads' },
{ value: 102, name: 'Others' }
]
在Delphi中的事件中组类似的字符串就可以了
具体做法是增加一个Timer, 时间设置为3000，代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
var
sV0,sV1 : String;
sJS : String;
begin
//value0
//[
// { value: 1548, name: 'Search Engine' },
// { value: 775, name: 'Direct' },
// { value: 679, name: 'Marketing', selected: true }
//]
//value1
//[
// { value: 1048, name: 'Baidu' },
// { value: 335, name: 'Direct' },
// { value: 310, name: 'Email' },
// { value: 251, name: 'Google' },
// { value: 234, name: 'Union Ads' },
// { value: 147, name: 'Bing' },
// { value: 135, name: 'Video Ads' },
// { value: 102, name: 'Others' }
//]
//
//
Randomize;
//Get value0 string
sV0 := 'this.value0=['
+'{ value: %d, name: ''Search Engine'' },'
+'{ value: %d, name: ''Direct'' },'
+'{ value: %d, name: ''Marketing'', selected: true }'
+'];';
sV0 := Format(sV0,[Random(1500),Random(1000),Random(1000)]);
//Get value1 string
sV1 := 'this.value1=['
+'{ value: %d, name: ''Baidu'' },'
+'{ value: %d, name: ''Direct'' },'
+'{ value: %d, name: ''Email'' },'
+'{ value: %d, name: ''Google'' },'
+'{ value: %d, name: ''Union Ads'' },'
+'{ value: %d, name: ''Bing'' },'
+'{ value: %d, name: ''Video Ads'' },'
+'{ value: %d, name: ''Others'' }'
+'];';
sV1 := Format(sV1,[Random(1500),Random(1000),Random(1000),Random(1000),Random(1000),Random(1000),Random(1000),Random(1000)]);
//
dwRunJS(sV0+sV1,self);
dwEcharts(Memo1);
end;这样echarts图表就可以动态更新了。
关注我， 学习更多Delphi知识！
Photo/Pexels]
“举步维艰”，汉语成语，抬脚行走十分困难，比喻行动困难重重，工作很难开展或生活艰难。可以翻译为“have difficulty taking a step forward，have difficulty in carrying out a cause/plan或be struggling”等。
例句：
这家公司刚刚成立，举步维艰。
They have a hard time running the newly-established company.
去年，这家公司超越了举步维艰的美国德尔福公司，成为世界上最大的汽车零部件供应商。
This company is the world's largest car-parts supplier, having overtaken the struggling Delphi of the US last year.
Editor: Jade
来源：中国日报网
Delphi应用程序是以项目的形式来组织的，每个项目包含了编译后的目标应用程序所需要的全部文件。
在Delphi中，创建应用程序时会自动创建一个项目文件；也就是说一个应用程序就是一个项目，由一个或多个文件以及项目文件组成。组成项目的文件包括：
项目文件以“.dpr”为扩展名。项目文件本身是含有Object Pascal语句的源代码文件。当应用程序启动时，首先会执行项目文件中的代码。如：创建一个项目后选择 Project | View Source 命令，即可看到项目文件的源代码。
program Project1;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.在上面的代码中：
说明当前文件是项目文件，同时说明项目编译后的可执行文件名称。
项目引用的文件，逗号分隔，被引用的文件可以是系统创建的单元文件，也可以是用户创建的单元文件。
编译器指令，指明链接的资源文件。{$R *.res}指令指示Delphi在扩展名为res的文件查找windows资源信息。
定义了程序的开始和结束。
通过情况下，Delphi 是自动维护项目文件的，不需要对其进行编辑。但我们可以通过在项目文件中添加代码来实现一些特定的操作，比如：打开启动画面，初始化数据库连接等。
Delphi 应用程序的源代码一般都是保存在单元文件中的，单元文件的扩展名为“.pas”，每个项目至少有一个单元文件。单元文件的类型：
这些文件是Delphi在创建窗体等组件时自动创建的，一般每个窗体会对应一个单元文件，用来保存窗体的事件处理程序。
一般用来保存窗体的事件处理程序
程序员自行创建的单元文件，一般用来声明应用程序中需要的数据类型、常量定义、全局变量和存储用户自定义函数、过程等。
当我们在项目中创建一个窗体的时候，Delphi 会自动创建一个窗体文件和一个单元文件。
窗体文件中包含窗体定义的外观、尺寸、位置等属性信息。
可以通过在窗体上右击，选择 View as Text 来查看窗体文件的内容，如：
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 231
ClientWidth = 505
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end编译过的单元是不可执行的，以“.dcu”为扩展名。在建立应用程序的链接阶段，所有dcu文件链接成为可执行程序。如果希望其他的开发者使用这种产品来建立应用程序，可以只发布dcu文件而不发布源代码。以这样的方式发布产品，其他开发者可以使用该代码，而无须知道代码是如何编写的。
当我们对文件进行了改动并保存，Delphi会自动保存一个备份文件，其扩展名为“.~pas”。恢复文件只需要将文件扩展名中的~去掉即可。如果不希望系统默认的备份，可以取消备份，通过 Tools / Editor Options，打开 Editor Propertirs 对话框，选择 Dsiplay，取消对 Create backup file 的选择即可。
资源文件是用于保存应用程序的图标、应用程序信息以及其他资源信息的文件，扩展名为“.res”。资源文件是二进制文件，在编译时，编译器会自动将这些资源链接到应用程序中。
Delphi能够创建的应用程序包括：动态链接库dll、可执行文件exe和ActiveX组件ocx。
当改动 Project Options 设置时，Delphi会把改动保存在一个扩展名为“.dof”的文件中，当所做的改动影响到应用程序的编译方式时，这些改动将以文本形式存储到.cfg文件中。
在大部分情况下，我们不需要参与这些文件的管理，Delphi会自动对这些文件进行管理。
*请认真填写需求信息，我们会在24小时内与您取得联系。
