『壹』 delphi如何讀取伺服器上的資料庫文件
db是dbase
資料庫文件
，直接用記事本就可以打開,打開後可以看見裡面的內容,但排列不規律,你必須得知道讀取數據的方法才可以正確讀取,(比如第一個欄位要讀取多少個位元組,或者第一個欄位需要從哪個位置開始讀),如果使用程序讀取的話,直接使用文件名.db就可以了.
可以用DBASE資料庫打開，也可以用DELPHI等第三方開發工具！
『貳』 請問高手們，在delphi語言里，如何讀取資料庫中每一行數據，比如欄位名為useid,username,age,sex 補充如下
不能直接讀一行，用ADOQuery.eof和ADOQuery.next循環每一條記錄，在循環里讀各個欄位的值
ADOQuery.First;
while not ADOQuery.Eof do
begin
suseid := ADOQuery.FieldByName('useid').asstring;
susername := ADOQuery.FieldByName('username').asstring;
sage := ADOQuery.FieldByName('age').asstring;
ssex := ADOQuery.FieldByName('sex').asstring;
ADOQuery..Next;
end;
『叄』 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";
然後對上面的數據進行文字解析就可以了。
『肆』 如何編程從免費股票軟體中提取實時數據
自己寫程序的話，一種方法是從已提供的信息源，例如webservice獲取數據。還有種辦法就是去連接提供即時信息的網頁硬解析。
代碼舉例如下：
Created on Thu Jul 23 09:17:27 2015
@author: jet
"""
DAY_PRICE_COLS = ['date', 'open', 'high', 'close', 'low', 'volume',
'chg', '%chg', 'ma5', 'ma10', 'ma20',
'vma5', 'vma10', 'vma20', 'turnover']
DAY_PRICE_URL = '%sapi.finance.%s/%s/?code=%s&type=last'
INDEX_KEY = ['SH', 'SZ', 'HS300', 'SZ50', 'GEB', 'SMEB']
INDEX_LIST = {'SH': 'sh000001', 'SZ': 'sz399001', 'HS300': 'sz399300',
'SZ50': 'sh000016', 'GEB': 'sz399006', 'SMEB': 'sz399005'}
INDEX_DAY_PRICE_COLS= ['date', 'open', 'high', 'close', 'low', 'volume',
'chg', '%chg', 'ma5', 'ma10', 'ma20',
'vma5', 'vma10', 'vma20']
K_TYPE_KEY = ['D', 'W', 'M']
K_TYPE_MIN_KEY = ['5', '15', '30', '60']
K_TYPE = {'D': 'akdaily', 'W': 'akweekly', 'M': 'akmonthly'}
MIN_PRICE_URL = '%sapi.finance.%s/akmin?scode=%s&type=%s'
PAGE_TYPE = {'http': 'http://', 'ftp': 'ftp://'}
PAGE_DOMAIN = {'sina': 'sina.com.cn', 'ifeng': 'ifeng.com'}
URL_ERROR_MSG = '獲取失敗，請檢查網路狀態，或者API埠URL已經不匹配！'
get_hist_data.py
# -*- coding: utf-8 -*-
"""
Created on Thu Jul 23 09:15:40 2015
@author: jet
"""
import const as ct
import pandas as pd
import json
from urllib2 import urlopen,Request
def get_hist_data(code = None, start = None, end = None, ktype = 'D'):
"""
功能:
獲取個股歷史交易數據
--------
輸入:
--------
code:string
股票代碼 比如:601989
start:string
開始日期 格式:YYYY-MM-DD 為空時取到API所提供的最早日期數據
end:string
結束日期 格式:YYYY-MM-DD 為空時取到最近一個交易日數據
ktype:string(default=D, 函數內部自動統一為大寫)
數據類型 D=日K線，W=周K線，M=月K線，5=5分鍾，15=15分鍾
30=30分鍾，60=60分鍾
輸出:
--------
DataFrame
date 日期
open 開盤價
high 最高價
close 收盤價
low 最低價
chg 漲跌額
p_chg 漲跌幅
ma5 5日均價
ma10 10日均價
ma20 20日均價
vma5 5日均量
vma10 10日均量
vma20 20日均量
turnover換手率(指數無此項)
"""
code = code_to_APIcode(code.upper())
ktype = ktype.upper()
url = ''
url = get_url(ktype, code)
print(url)
js = json.loads(ping_API(url))
cols = []
if len(js['record'][0]) == 14:
cols = ct.INDEX_DAY_PRICE_COLS
else:
cols = ct.DAY_PRICE_COLS
df = pd.DataFrame(js['record'], columns=cols)
if ktype in ct.K_TYPE_KEY:
df = df.applymap(lambda x:x.replace(u',', u''))
for col in cols[1:]:
df[col]=df[col].astype(float)
if start is not None:
df = df [df.date >= start]
if end is not None:
df = df[df.date <= end]
df = df.set_index('date')
return df
def code_to_APIcode(code):
"""
功能：
驗證輸入的股票代碼是否正確，若正確則返回API對應使用的股票代碼
"""
print(code)
if code in ct.INDEX_KEY:
return ct.INDEX_LIST[code]
else:
if len(code) != 6:
raise IOError('code input error!')
else:
return 'sh%s'%code if code[:1] in ['5', '6'] else 'sz%s'%code
def get_url(ktype, code):
"""
功能：
驗證輸入的K線類型是否正確，若正確則返回url
"""
if ktype in ct.K_TYPE_KEY:
url = ct.DAY_PRICE_URL % (ct.PAGE_TYPE['http'], ct.PAGE_DOMAIN['ifeng'],
ct.K_TYPE[ktype], code)
return url
elif ktype in ct.K_TYPE_MIN_KEY:
url = ct.MIN_PRICE_URL % (ct.PAGE_TYPE['http'], ct.PAGE_DOMAIN['ifeng'],
code, ktype)
return url
else:
raise IOError('ktype input error!')
def ping_API(url):
"""
功能：
向API發送數據請求，若鏈接正常返回數據
"""
text = ''
try:
req = Request(url)
text = urlopen(req,timeout=10).read()
if len(text) < 15:
raise IOError('no data!')
except Exception as e:
print(e)
else:
return text
#測試入口
print(get_hist_data('601989','2015-07-11','2015-07-22'))
『伍』 如何利用一些 finance 資料庫 api 批量獲取股票信息
1、通過API獲取實時數據
請求地址
http://finance.yahoo.com/d/quotes.csv?s=<股票名稱>&f=<數據列選項>
參數
s –表示股票名稱，多個股票之間使用英文加號分隔，如」XOM+BBDb.TO+JNJ+MSFT」，羅列了四個公司的股票：XOM,BBDb.TO, JNJ, MSFT。
f – 表示返回數據列，如」snd1l1yr」。更詳細的參見雅虎股票 API f參數對照表。
2、通過API獲取歷史數據
請求地址
http://ichart.yahoo.com/table.csv?s=<string>&a=<int>&b=<int>&c=<int>&d=<int>&e=<int>&f=<int>&g=d&ignore=.csv
參數
s – 股票名稱
a – 起始時間，月
b – 起始時間，日
c – 起始時間，年
d – 結束時間，月
e – 結束時間，日
f – 結束時間，年
g – 時間周期。Example: g=w, 表示周期是』周』。d->』日』(day),w->』周』(week)，m->』月』(mouth)，v->』dividendsonly』
一定注意月份參數，其值比真實數據-1。如需要9月數據，則寫為08。
3、通過API獲取深滬股票數據
雅虎的API是國際性的，支持查詢國內滬深股市的數據，但代碼稍微變動一下，如浦發銀行的代號是：600000.SS。規則是：上海市場末尾加.ss，深圳市場末尾加.sz。
最近股市甚火，受聘開發一股票網站，股票的數據從哪裡來成了一個大問題，股票軟體一般都是加密處理的，還有一些webservices也是要帳號 的，免費的方法只有一種了，抓別人網站的數據。好在經我研究，發現yahoo提供國內和國外股市每天的交易數據資料，這可謂一大幸事啊。
http://table.finance.yahoo.com/table.csv?s=ibm&d=6&e=22&f=2006&g=d&a=11&b=16&c=1991&ignore=.csv
上面的鏈接可以抓取IBM股票從1991年11月16日起到2006年6月22的數據。把ibm改成sohu，就可以抓到sohu的股票數據了。
http://table.finance.yahoo.com/table.csv?s=sohu&d=6&e=22&f=2008&g=d&a=11&b=16&c=2008&ignore=.csv
上面鏈接可以抓搜狐股票的數據。
那麼中國股市的數據有沒有呢？答案是肯定的，不過要按照下面的參數做些調整，下面提供全球證券交易所的資料。
上證股票是股票代碼後面加上.ss，深證股票是股票代碼後面加上.sz
例如：000001 = 000001.sz
深市數據鏈接：http://table.finance.yahoo.com/table.csv?s=000001.sz
上市數據鏈接：http://table.finance.yahoo.com/table.csv?s=600000.ss
上證綜指代碼：000001.ss，深證成指代碼：399001.SZ，滬深300代碼：000300.ss
下面就是世界股票交易所的網址和縮寫，要查找哪個股票交易所的數據，就按照上面的格式以此類推。
上海交易所=cn.finance.yahoo.com,.SS,Chinese,sl1d1t1c1ohgv
深圳交易所=cn.finance.yahoo.com,.SZ,Chinese,sl1d1t1c1ohgv
美國交易所=finance.yahoo.com,,United States,sl1d1t1c1ohgv
加拿大=ca.finance.yahoo.com,.TO,Toronto,sl1d1t1c1ohgv
紐西蘭=au.finance.yahoo.com,.NZ,sl1d1t1c1ohgv
新加坡=sg.finance.yahoo.com,.SI,Singapore,sl1d1t1c1ohgv
香港=hk.finance.yahoo.com,.HK,Hong Kong,sl1d1t1c1ohgv
台灣=tw.finance.yahoo.com,.TW,Taiwan,sl1d1t1c1ohgv
印度=in.finance.yahoo.com,.BO,Bombay,sl1d1t1c1ohgv
倫敦=uk.finance.yahoo.com,.L,London,sl1d1t1c1ohgv
澳洲=au.finance.yahoo.com,.AX,Sydney,sl1d1t1c1ohgv
巴西=br.finance.yahoo.com,.SA,Sao Paulo,sl1d1t1c1ohgv
瑞典=se.finance.yahoo.com,.ST,Stockholm,sl1d1t1c1ohgv
『陸』 delphi如何從資料庫中讀取數據啊。我剛學delphi
定義數組
var
arr: array of string;
遍歷結果集
with DataMole2.ADODataSet1 do
begin
setlength(arr, recordcount);// 動態數組設定長度
first;
while not eof do
begin
arr[recno - 1] := FieldByName('Username').AsStringl; // 數組賦值
next;
end;
end;
『柒』 下載能一個通達信股票數讀取的Delphi文本源代碼，如何編譯編軟體請高手指點
光是這個文件可不夠，還有其它文件吧。
如果文件齊了，裡面應該包含一個.dpr文件（或者.groupproj，或者.bpg），你在Delphi裡面打開它，然後在Delphi的菜單裡面選擇Build All。如果下載的文件們沒問題的話，你就能得到想要的軟體了。
『捌』 如何使用DELPHI編程從資料庫中讀取相關數據
1、放置ADOconnection控制項；
2、放置ADOtable控制項 或 查詢控制項；
3、放置 DataSource 控制項；
4、放置 DBGrid 控制項；
5、在ADOconnection控制項中設置好連接串，選擇數據表、打開數據表；
6、控制項 2～4 分別指向前一個控制項