Ⅰ delphi怎样得到实时股票行情数据
实时股票行情数据，如果是商业性的需要服务费用，通常可以通过网络上各大股票网站站点来获取发布的行情数据，比如以下是从 sina 网的行情数据服务器上获取 沪市601006 的行情：
http://hq.sinajs.cn/list=sh601006
访问上面的url会返回一串文本，内容格式如：
varhq_str_sh600151="航天机电,11.020,10.980,10.950,
11.040,10.940,10.950,10.960,2634001,28909081.000,
9300,10.950,34300,10.940,55700,10.930,64000,10.920,
75900,10.910,22500,10.960,22192,10.970,20600,
10.980,50900,10.990,100300,11.000,2016-11-08,10:55:19,00";
然后对上面的数据进行文字解析就可以了。
Ⅱ 炒股软件的源代码是什么怎么用这方面的东西在哪里学习
源代码多是Delphi或VB6.0以上，
因为Delphi是当今世界上最快的编译器、最为领先的数据库程序语言
因为VB6内建ACCES，方便建立数据库并作图。
Ⅲ delphi 代码
if ((State=[gdSelected]) or (State=[gdSelected,gdFocused])) then//如果是选中状态或者是焦点状态
begin
DBGrid1.Canvas.Font.Color:=ClYellow; //DBGrid的画布字体颜色置为黄色调
DBGrid1.Canvas.Brush.Color:=clblue; //DBGrid的画布笔刷(背景)颜色置为蓝色调
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); //定义DBGrid的默认网格颜色//估计是你对这个函数不熟悉, 我解释一下//第一个形参Rect不用解释了吧, 是范围区域TRect//最后一个形参也不解释了, 是状态//第二个形参DataCol是组列里面当前列的序号//第三个形参Column参数是对用来对当前的单元格进行显示属性的描述以及字段约束的TColumn对象
end
else
begin
end;
Ⅳ 有没有朋友用DELPHI写通达信公式的
以下是网络上编写的使用 delphi 编写通达信公式的代码示例：
librarytdxdlltest;
{通达信dll公式函数规范delphi版2016.03.05}
uses
SysUtils,Windows;
{$R*.res}
type
ArraySingle=arrayofsingle;
type
pPluginFUNC=procere(p1:Integer;varp2,p3,p4,p5:ArraySingle);cdecl;
tagPluginTCalcFuncInfo=packedrecord
nFuncMark:Word;
pCallFunc:pPluginFUNC;
end;
PluginTCalcFuncInfo=tagPluginTCalcFuncInfo;
PPluginTCalcFuncInfo=^PluginTCalcFuncInfo;
PPPluginTCalcFuncInfo=^PPluginTCalcFuncInfo;
pRegisterPluginFUNC=function(pFun:PPPluginTCalcFuncInfo):LongBool;cdecl;
var
g_CalcFuncSets:array[0..2]ofPluginTCalcFuncInfo;
procereTestPlugin1(DataLen:integer;pfOUT:ArraySingle;pfINa:ArraySingle;pfINb:ArraySingle;pfINc:ArraySingle);cdecl;
var//F8F8F8F8表示无效数据,通达信公式中将不会显示
i:integer;
pc1:PCardinal;
begin
fori:=0todatalen-1do
begin
pfOUT:=pfina;
ifi>=datalen-10then
begin
pc1:=@pfout;
pc1^:=$F8F8F8F8;
end;
end;
end;
{通达信dll公式函数规范delphi版悟多2016.03.05}
procereTestPlugin2(DataLen:integer;pfOUT:ArraySingle;pfINa:ArraySingle;pfINb:ArraySingle;pfINc:ArraySingle);cdecl;
var
i:integer;
begin
fori:=0todatalen-1do
begin
pfOUT:=pfinb;
end;
end;
procereTestPlugin3(DataLen:integer;pfOUT:ArraySingle;pfINa:ArraySingle;pfINb:ArraySingle;pfINc:ArraySingle);cdecl;
var
i:integer;
begin
fori:=0todatalen-1do
begin
pfOUT:=pfinc;
end;
end;
procereInitStruct;
begin
g_CalcFuncSets[0].nFuncMark:=1;
g_CalcFuncSets[0].pCallFunc:=@TestPlugin1;
g_CalcFuncSets[1].nFuncMark:=2;
g_CalcFuncSets[1].pCallFunc:=@TestPlugin2;
g_CalcFuncSets[2].nFuncMark:=3;
g_CalcFuncSets[2].pCallFunc:=@TestPlugin3;
//有更多的函数的话，可以增加到这里
end;
functionRegisterTdxFunc(pFun:PPPluginTCalcFuncInfo):LongBool;cdecl;
begin
Result:=False;
ifpFun^=nilthen
begin
pFun^:=@g_CalcFuncSets;//绑定dll函数起始地址
Result:=True;
end;
end;
exports
RegisterTdxFunc;
begin
InitStruct;
end.
Ⅳ Delphi代码求助
因为现在delphi版本变动比较大，偶只有早期的delphi2007,未做测试，但是原因很明显，是由于utf-8编码引起的，一个数字也占了两字节，所以16的长度只能从0输出到7。要解决这问题，我记得delphi后来的版本中加了很多不同的string，建议参考一下。
Ⅵ delphi现在由哪家公司研发
Thoma Cressey Bravo公司旗下私营的Embarcadero Technologies公司（易博龙公司）今天宣布，已与Borland软件公司（Borland Software Corporation，纳斯达克股票代码：BORL）签订正式的资产收购协议，收购Borland公司的CodeGear业务部门。
所以是Thoma Cressey Bravo公司
最新版是2009
Ⅶ delphi代码问题
begin
RichEidt1.Lines[0]:='我最喜欢的品牌有：';
//将RichEdit1第一行设置字符串为“我最喜欢的品牌有：”
RichEidt1.Lines[1]:='';
//将RichEdit1第二行设置为空
for Item:=0 to ListBox1.Items.Count-1 do
//使用For循环遍历ListBox
if ListBox1.Selected[Item] then
//如果ListBox1内选择Item行的内容
RichEidt1.Lines[1]:=RichEidt1.Lines[1]+ListBox1.Items.String[Item]+' ';
//则RichEdit1第二行为RichEdit1第二行的内容加上Listbox的Item行的内容，最后以空字符结尾
end;
Ⅷ 下载能一个通达信股票数读取的Delphi文本源代码，如何编译编软件请高手指点
光是这个文件可不够，还有其它文件吧。
如果文件齐了，里面应该包含一个.dpr文件（或者.groupproj，或者.bpg），你在Delphi里面打开它，然后在Delphi的菜单里面选择Build All。如果下载的文件们没问题的话，你就能得到想要的软件了。
Ⅸ 解释一下这些DELPHI代码.
知识准备：
1、Copy函数:将源字符串（S）从指定下标（Index）处开始，拷贝长度为Count的子串，并返回该子串。
function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;
举个例子说吧：S:='abcdefg'; sR:=Copy(S,2,3) 那sR得到的值为——sR:='bcd'不要困惑，delphi字符串下标是从1开始的，C/C++是从0开始的。
2、delphi里的十六进制数表示：
如：0F800H，delphi里表示为$F800; C/C++里表示为0xF800.
3、Comm1.WriteCommData(buff,length);
这是从串口发送数据的函数。（你用到了第三方包中提供的串口操作包）
这个函数是讲，从串口发送buff从头算长度为length个字节。
-----------------------------------------------------
for i:=1 to length(s) do //length(s),得到S的长度
begin
if (((s,i,1)>='0') and ((s,i,1)<='9'))or(((s,i,1)>='a') and ((s,i,1)<='f'))
or(((s,i,1)>='A') and ((s,i,1)<='F')) then
//S[i]是否为十六进制数。0~f，即0~9,a~f。（）其实我认为，也应该把大写字母A~F考虑进去。
begin
s2:=s2+(s,i,1);//将符合十六进制规范的表示存入S2
end;
end;
上面这段代码，是从S中过滤掉了那些不属于十六进制规范的表示。
如：S为'8f9d04g5dh',经过滤就得到了'8f9d045d'(g、h被过滤)
----------------------------------------------------------
for i:=0 to (length(s2) div 2-1) do
buf1[i]:=char(strtoint('$'+(s2,i*2+1,2)));
显然，每两个十六进制数为一个字节，如$8f为一个字节;$8为4bit;$ffff为一个字，$ffffffff为一个双字，即32位.
在串口传输时，是按字节来传的，所以要除2,因为i从0开始，所以除2减1。
上面这部份代即将过滤好的十六进制字符串按字节转换成数值存入buf1。
如:S2:='8f9d045d',buf1[0]:=$8f,buf1[1]:=$9d,buf1[2]:=$04,
buf1[3]:=$5d.
-------------------------------------------------------
Comm1.WriteCommData(buf1,(length(s2) div 2));
从串口发出去了~~~
-------------------------------------------------------
不知道我有没有说清楚，希望楼主可以理解！