Ⅰ 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));
從串口發出去了~~~
-------------------------------------------------------
不知道我有沒有說清楚，希望樓主可以理解！