‘壹’ 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写一个程序来读取从串口读取来的数据，并显示出来。
假设你的下位机是通过一个命令(A)读取出这两个值，一个温度值和一个湿度值，那么你可以先配置好串口组件的相关参数，然后打开串口，再用write命令发出去，然后你的单片机收到这个命令后，就立即返回当前的两个值，上位机收到后再进行解析就可以了，如果你的下位机返回的是电压值的话，上位机还需要根据你的电路计算出对应的温度和湿度值。
‘叁’ 如何使用DELPHI编程从数据库中读取相关数据
1、放置ADOconnection控件；
2、放置ADOtable控件 或 查询控件；
3、放置 DataSource 控件；
4、放置 DBGrid 控件；
5、在ADOconnection控件中设置好连接串，选择数据表、打开数据表；
6、控件 2～4 分别指向前一个控件
‘肆’ 如何用C程序实现 读取DAT股票文件数据
int a = 0x19554c32;
这样就能拿到数据，但读文件的时要二进制打开读，就是fopen("数据文件名“,"rb")；
然后fread读，都到一个buf里，让后将buf按照你的类型强转就行。
‘伍’ 如何获取实时的股票数据
要跟供应商协商得到他的接口才能得到实时股票行情数据；
股票实时行情，可以通过两个方法来进行查看：
第一种，在网络搜索页面直接输入股票代码，如：000717，网络输入后，即可在搜索结果中看到，其中分时，就是该股票在当天的实时走向。
第二种，通过炒股软件，如东财，同花顺等，在开启后，直接输入，股票代码，如600854，点击回车。进入的第一个页面就是该股票在当天的实时行情。
同时在股票软件的分时成交界面，可以查看到每一分钟的成交价和手数。股票行情趋势判断必要时也需要结合分时成交界面的数据来进行判断。
查看其它股票的行情也是一样的道理，直接键入该股票的代码就可以查看到该股票当天或某个时间段内的行情。当然，精准的行情走势、趋势，是需要结合多种指标来共同进行分析的。
‘陆’ 下载能一个通达信股票数读取的Delphi文本源代码，如何编译编软件请高手指点
光是这个文件可不够，还有其它文件吧。
如果文件齐了，里面应该包含一个.dpr文件（或者.groupproj，或者.bpg），你在Delphi里面打开它，然后在Delphi的菜单里面选择Build All。如果下载的文件们没问题的话，你就能得到想要的软件了。
‘柒’ 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怎么读取数据库里的数据
结果就在这个ADOQUERY1的数据集里面了。可以用1、AdoQuery1.Fieldbyname('字段名').Value2、AdoQuery1.Fields[0].Value //因为你只有取一个字段的值，所以直接数组0就可以了
‘玖’ delphi怎么读取数据采集卡的采集的数据
现在世界上的计算机都只能处理数字信号，必须把模拟信号经过采样转换成数字信号才能处理。根据数字信号的输出类型，采用不用的接口（232、485、RJ-45等等）接入到计算机。如果是232，你可以用mscomm，但如果是RJ-45，那就很可能用TCP了。
‘拾’ 如何编程从免费股票软件中提取实时数据
自己写程序的话，一种方法是从已提供的信息源，例如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'))