哪位高手用delphi语言给我翻译这个接口文件，我的分都给他了！！

Question

有这样一个接口文件，但是我看不懂，不知道有哪位高手可以帮忙把他用delphi翻译出来吗？所有的分都是他的了！！
//注：倚天数据规范不支持3档一下的方式，只支持5档行情
/****************************************************************************************
* 倚天财经 *
*  上海谱光网络信息技术有限公司 *
*      2004.10.18 *
*****************************************************************************************//****************************************************************************************
* 在注册库的 HKEY_LOCAL_MACHINE/SOFTWARE/StockDrv 下 * 
* Driver  = "驱动DLL全路径" *
* Provider= "http://ytqh.com" *
****************************************************************************************/
#ifndef __STOCKDRV_H__
#define __STOCKDRV_H__#pragma pack(push,1)
/////////////////////////////////////////////////////////////////////////////////////////
//  以下是接口方式一,引用 DOS 方式接口,只提供行情接口,
// 补充数据及消息接口按接口方式二.// 工作方式类型定义
#define RCV_WORK_SENDMSG 4
// 其他工作方式保留// 消息类型
#define RCV_REPORT 0x3f001234
#define RCV_FILEDATA 0x3f001235#define TS_StockDrv_IdTxt "TongShi_StockDrv_2.00" // 通视信息卡特征串//==================================== 数据结构 =================================================
// 证券市场
#define SH_MARKET_EX 'HS' // 上海
#define SZ_MARKET_EX 'ZS' // 深圳
#define HK_MARKET_EX 'KH' // 香港// 文件数据类型
// 结构数组形式的文件数据
#define FILE_HISTORY_EX 2 // 补日线数据
#define FILE_MINUTE_EX 4 // 补分钟线数据
#define FILE_POWER_EX 6 // 补充除权数据
#define FILE_MIN5_EX 81 // 补日线数据
#define FILE_MIN1_EX 82 // 补日线数据#define FILE_BASE_EX 0x1000 // 钱龙兼容基本资料文件,m_szFileName仅包含文件名
#define FILE_NEWS_EX 0x1002 // 新闻类,其类型由m_szFileName中子目录名来定
#define FILE_HTML_EX 0x1004 // HTML文件,m_szFileName为URL#define FILE_SOFTWARE_EX 0x2000 // 升级软件#define FILE_SHAZQDATA_EX 0x3000 // 上海债券净价交易#define FILE_TYPE_RES -1 // 保留// 消息子类型
#define News_Sha_Ex  2 // 上证消息
#define News_Szn_Ex  4 // 深证消息
#define News_Fin_Ex  6 // 财经报道
#define News_TVSta_Ex  8 // 电视台通知
#define News_Unknown_Ex  -1 // 未知提供者//Definition For nInfo of Function GetStockDrvInfo(int nInfo,void * pBuf);
#define RI_IDSTRING 1 // 厂商名称,返回(LPCSTR)厂商名
#define RI_IDCODE 2 // 卡号
#define RI_VERSION 3 // 驱动程序版本
#define RI_ERRRATE 4 // 取信道误码
#define RI_STKNUM 5 // 取上市股票总家数
#define RI_SUPPORTEXTHQ 6 // 是否支持JSJ格式
#define RI_ENABLEDZHTRANS 7 // 支持传输大智慧文件系统
#define RI_ENABLETS3FILE 8 // 支持文件传输#define RI_HASASKDATA 0x1000
#define RI_HASID 0x1001
#define RI_HIGHSPEED 0x1002#define STKLABEL_LEN 10 // 股号数据长度,国内市场股号编码兼容钱龙
#define STKNAME_LEN 32 // 股名长度
//////////////////////////////////////////////////////////////////////////////////
//国债净价交易数据
typedef struct GzLxBINData {
WORD m_wMarket; // 股票市场类型
char m_szLabel[STKLABEL_LEN]; // 股票代码,以'\0'结尾
DWORD m_LiXiDate; //开始计算利息的日期
double m_fMoney100; //每100元的利息
DWORD m_DayNum;; //利息计算天数
float m_fShowPrice; //票面价格
}GZLXBINDATA,*PGZLXBINDATA;//////////////////////////////////////////////////////////////////////////////////
//行情数据
typedef struct tagRCV_REPORT_STRUCTEx
{
WORD m_cbSize; // 结构大小
time_t m_time; // 交易时间
WORD m_wMarket; // 股票市场类型
char m_szLabel[STKLABEL_LEN]; // 股票代码,以'\0'结尾
char m_szName[STKNAME_LEN]; // 股票名称,以'\0'结尾
WORD m_ID;

float m_fLastClose; // 昨收
float m_fOpen; // 今开
float m_fHigh; // 最高
float m_fLow; // 最低
float m_fNewPrice; // 最新
float m_fVolume; // 成交量
float m_fAmount; // 成交额 float m_fBuyPrice[3]; // 申买价1,2,3
float m_fBuyVolume[3]; // 申买量1,2,3
float m_fSellPrice[3]; // 申卖价1,2,3
float m_fSellVolume[3]; // 申卖量1,2,3 float m_fBuyPrice4; // 申买价4
float m_fBuyVolume4; // 申买量4
float m_fSellPrice4; // 申卖价4
float m_fSellVolume4; // 申卖量4 float m_fBuyPrice5; // 申买价5
float m_fBuyVolume5; // 申买量5
float m_fSellPrice5; // 申卖价5
float m_fSellVolume5; // 申卖量5} RCV_REPORT_STRUCTEx, *PRCV_REPORT_STRUCTEx;

Answer 1

//////////////////////////////////////////////////////////////////////////////////
//补充数据头
//数据头 m_dwHeadTag == EKE_HEAD_TAG 
#define EKE_HEAD_TAG 0xfffffffftypedef struct tagRCV_EKE_HEADEx
{
DWORD m_dwHeadTag; // = EKE_HEAD_TAG
WORD m_wMarket; // 市场类型
char m_szLabel[STKLABEL_LEN]; // 股票代码
}RCV_EKE_HEADEx,*PRCV_EKE_HEADEx;//补充日线数据
typedef union tagRCV_HISTORY_STRUCTEx
{
struct
{
time_t m_time; //UCT
float m_fOpen; //开盘
float m_fHigh; //最高
float m_fLow; //最低
float m_fClose; //收盘
float m_fVolume; //量
float m_fAmount; //额
WORD m_wAdvance; //涨数,仅大盘有效
WORD m_wDecline; //跌数,仅大盘有效
};
RCV_EKE_HEADEx m_head;
}RCV_HISTORY_STRUCTEx,*PRCV_HISTORY_STRUCTEx;//补充分时线数据
typedef union tagRCV_MINUTE_STRUCTEx
{
struct{
time_t m_time; // UCT
float m_fPrice;
float m_fVolume;
float m_fAmount;
};
RCV_EKE_HEADEx m_head; 
}RCV_MINUTE_STRUCTEx,*PRCV_MINUTE_STRUCTEx;//补充除权数据
typedef union tagRCV_POWER_STRUCTEx
{
struct
{
time_t m_time; // UCT
float m_fGive; // 每股送
float m_fPei; // 每股配
float m_fPeiPrice; // 配股价,仅当 m_fPei!=0.0f 时有效
float m_fProfit; // 每股红利
};
RCV_EKE_HEADEx m_head;
}RCV_POWER_STRUCTEx,*PRCV_POWER_STRUCTEx;typedef struct tagRCV_SHAGZ_STRUCTEx
{
WORD m_wMarket; // 市场类型
char m_szLabel[STKLABEL_LEN]; // 股票代码
DWORD m_StartDate; //开始计算利息的日期 YYMMDD format
double m_fLiXi100RMB; //票面100员的
DWORD m_DayNum;
float m_fPrice;
}RCV_SHAGZ,*PRCV_SHAGZ;
//////////////////////////////////////////////////////////////////////////////////
// 文件类型数据包头
//  注一:
// m_wDataType == FILE_BASE_EX
// m_dwAttrib = 股票证券市场,m_szFileName仅包含文件名
// m_FileTime = 基本面资料文件创建日期
//  m_wDataType == FILE_NEWS_EX
// m_dwAttrib = 消息来源,m_szFileName 包含目录的文件名,目录名为消息来源
// m_dwSerialNo = 序列号
// 如:  "上交所消息\\0501Z012.TXT","新兰德\\XLD0001.TXT"
//  m_wDataType == FILE_HTML_EX
// m_dwAttrib 保留, m_szFileName为URL
// m_wDataType == FILE_SOFTWARE_EX
// m_dwAttrib 分析软件类型, 用于初步判断
// m_szFileName 分析软件 ID 特征字符串 + '\\' + 文件名
// 如 "TongShi\\TS\\RECEIVE\\RECEIVE.EXE",
// ID 特征字符串为 "TongShi", "TS\\RECEIVE\\RECEIVE.EXE" 为文件名
// 特征字符串 和 文件名及其含义由分析软件商定义
//  注二:
// 数据文件循环播出,每个文件有唯一的序列号,以避免重复接收
typedef struct tagRCV_FILE_HEADEx
{
DWORD m_dwAttrib; // 文件子类型
DWORD m_dwLen; // 文件长度
union 
{
DWORD m_dwSerialNo; // 序列号,对股评
time_t m_FileTime; // 文件创建时间
};
char m_szFileName[MAX_PATH]; // 文件名 or URL
} RCV_FILE_HEADEx,*PRCV_FILE_HEADEx;//////////////////////////////////////////////////////////////////////////////////
//  数据通知消息
//查询方式通知消息
// wParam = MsgPara_StkData 有股票数据
// wParam = MsgPara_File 有文件数据文件
//直接数据引用通知消息
// wParam = RCV_WPARAM;
//  lParam 指向 RCV_DATA结构;
// 返回 1 已经处理, 0 未处理或不能处理,目前该返回值被忽略// 注一:
//   记录数表示行情数据和补充数据(包括 Header)的数据包数,对文件类型数据, = 1
// 注二:
//   若 m_bDISK = FALSE, m_pData 为数据缓冲区指针
//  ******** 数据共享,不能修改数据 **********
//  m_bDISK = TRUE,  m_pData 为该文件的存盘文件名,一般情况只有
//  升级软件等大文件用存盘方式
typedef struct tagRCV_DATA
{
int m_wDataType; // 文件类型
int m_nPacketNum; // 记录数,参见注一
RCV_FILE_HEADEx m_File; // 文件接口
BOOL m_bDISK; // 文件是否已存盘的文件
union
{
RCV_REPORT_STRUCTEx  * m_pReport;
RCV_HISTORY_STRUCTEx * m_pDay;
RCV_MINUTE_STRUCTEx  * m_pMinute;
RCV_POWER_STRUCTEx  * m_pPower;
void  * m_pData; // 参见注二
};
} RCV_DATA,*PRCV_DATA;/* 消息处理程序 DEMO
LONG OnStkDataOK(UINT wParam,LONG lParam)
{
union tagSrcStock DOS_StkBuf;
RCV_REPORT_STRUCTEx NEW_StkBuf;
PBYTE pDataBuf;
RCV_DATA Header;
RCV_DATA * pHeader;
DWORD dwFileLen;
int ok;
pHeader = (RCV_DATA *)lParam;
switch( wParam )
{
case RCV_REPORT: // 共享数据引用方式,股票行情
for(i=0; i<pHeader->m_nPacketNum; i++)
{
pHeader->m_pReport[i] ...
// 数据处理
}
break; case RCV_FILEDATA: // 共享数据引用方式,文件
switch(pHeader->m_wDataType)
{
case FILE_HISTORY_EX: // 补日线数据
break;
case FILE_MINUTE_EX: // 补分钟线数据
break;
case FILE_POWER_EX: // 补充除权数据
break;
case FILE_BASE_EX: // 钱龙兼容基本资料文件,m_szFileName仅包含文件名
break;
case FILE_NEWS_EX: // 新闻类,其类型由m_szFileName中子目录名来定
break;
case FILE_HTML_EX: // HTML文件,m_szFileName为URL
break;
case FILE_SOFTWARE_EX: // 升级软件
break;
}
break;
default:
return 0; // unknown data
}
return 1;
}
*/
//////////////////////////////////////////////////////////////////////////////////
//APIs
#ifdef __cplusplus
extern "C"{
#endif//////////////////////////////////////////////////////////////////////////////////
// 注册函数// 股票初始化
// 入口参数:
// hWnd 处理消息的窗口句柄
// Msg 用户自定义消息
// nWorkMode 接口工作方式, 应等于 RCV_WORK_SENDMSG
// 返回参数:
//  1 成功
// -1 失败
int WINAPI Stock_Init(HWND hWnd,UINT Msg,int nWorkMode);// 退出,停止发送消息
// 入口参数:
// hWnd 处理消息的窗口句柄,同 Stock_Init 的调用入口参数
// 返回参数:
//  1 成功
// -1 失败
int WINAPI  Stock_Quit(HWND hWnd);//////////////////////////////////////////////////////////////////////////////////
// 行情接口       
      
// 取已接收到的股票总数
int WINAPI  GetTotalNumber(); // 由序号取股票数据(扩展)
// 入口参数:
// nNo 序号
// pBuf 存放股票数据的缓冲区
// 返回参数:
//     NoStockData 无股票数据
// 注:
// 该函数提供股票数据的主要数据;分析软件刚运行时,可以快速建立数据框架
int WINAPI  GetStockByNoEx(int nNo,RCV_REPORT_STRUCTEx * pBuf); // 由股号取股票数据(扩展)
// 入口参数:
// pszStockCode股票代号
// nMarket 证券市场
// pBuf 存放股票数据的缓冲区
// 返回参数:
//     NoStockData 无股票数据
// 注:
// 该函数提供股票数据的主要数据;分析软件刚运行时,可以快速建立数据框架
//倚天规范暂时没有实现，都是返回-1
int WINAPI  GetStockByCodeEx(char * pszStockCode,int nMarket,RCV_REPORT_STRUCTEx * pBuf);// 激活接收程序,进行设置
// 入口参数:
// bShowWindow TRUE 显示窗口,进行设置
// FALSE 隐含窗口
// 返回参数:
//  1 成功
// -1 失败
int WINAPI  SetupReceiver(BOOL bShowWindow);// 取得股票驱动信息
// 入口参数:
// nInfo 索引
// pBuf 缓冲区
// 出口参数:
// nInfo == RI_IDSTRING, 返回特征字符串长度, pBuf 为特征字符串
// 如: "TongShi_StockDrv_1.00"
// nInfo == RI_IDCODE, 返回信息卡 ID 号, pBuf 为字符串形式的 ID 号
// 如: 0x78001234   "78001234"
// nInfo == RI_VERSION, 返回信息卡版本号, pBuf 为字符串版本
// 如:  1.00   "1.00"
// nInfo == RI_ERRRATE, 取信道误码,
// nInfo == RI_STKNUM, 取上市股票总家数
DWORD WINAPI  GetStockDrvInfo(int nInfo,void * pBuf);#ifdef __cplusplus
}
#endif#pragma pack(pop)
#endif // __STOCKDRV_H__

Answer 2

不会很复杂 都差不多的 
比如
1。#define RCV_REPORT 0x3f001234
－>
const RCV_REPORT = $3f0012342。
{$IFNDEF __STOCKDRV_H__}
{$DEFINE __STOCKDRV_H__} // 当然delphi下面就没有头文件只说了{$ENDIF}3。 
typedef struct GzLxBINData {
WORD m_wMarket; // 股票市场类型
char m_szLabel[STKLABEL_LEN]; // 股票代码,以'\0'结尾
DWORD m_LiXiDate; //开始计算利息的日期
double m_fMoney100; //每100元的利息
DWORD m_DayNum;; //利息计算天数
float m_fShowPrice; //票面价格
}GZLXBINDATA,*PGZLXBINDATA;-> 
type GzLxBINData = record
  m_wMarket: WORD; // m_* 这是VC里面的定义 你也可以改成符合自己习惯的
  m_szLabel: array[0..STKLABEL_LEN] of char;
  m_LiXiDate: DWORD;
  m_fMoney100: double;
  m_DayNum: DWORD;
  m_fShowPrice: double;
end;
   PGZLXBINDATA = ^GZLXBINDATA;.....

Answer 3

int WINAPI  GetStockByNoEx(int nNo,RCV_REPORT_STRUCTEx * pBuf); ->
type PRCV_REPORT_STRUCTEx = ^RCV_REPORT_STRUCTEx;function GetStockByNoEx(nNo: Integer; pBuf: PRCV_REPORT_STRUCTEx): Integer; stdcall;typedef struct tagRCV_DATA
{
int m_wDataType; // 文件类型
int m_nPacketNum; // 记录数,参见注一
RCV_FILE_HEADEx m_File; // 文件接口
BOOL m_bDISK; // 文件是否已存盘的文件
union
{
RCV_REPORT_STRUCTEx  * m_pReport;
RCV_HISTORY_STRUCTEx * m_pDay;
RCV_MINUTE_STRUCTEx  * m_pMinute;
RCV_POWER_STRUCTEx  * m_pPower;
void  * m_pData; // 参见注二
};
} RCV_DATA,*PRCV_DATA;->type RCV_DATA = record
  m_wDataType: Integer;
  m_nPacketNum: Integer;
  m_File: RCV_FILE_HEADEx;
  m_bDISK: LONGBOOL;
  case Integer of
  0: (m_pReport: PRCV_REPORT_STRUCTEx); // 注意是PRCV_REPORT_STRUCTEx 需要type PRCV_REPORT_STRUCTEx = ^RCV_REPORT_STRUCTEx;
  1: (m_pDay: PRCV_HISTORY_STRUCTEx); // 同上
  2: (m_pMinute: PRCV_MINUTE_STRUCTEx);
  3: (m_pPower: PRCV_POWER_STRUCTEx);
  4: (m_pData: Pointer);
end;// 基本上每种类型都给你实例了一下。

Answer 4

type RCV_DATA = record
  m_wDataType: Integer;
  m_nPacketNum: Integer;
  m_File: RCV_FILE_HEADEx;
  m_bDISK: LONGBOOL;
  case Integer of
  0: (m_pReport: PRCV_REPORT_STRUCTEx); // 注意是PRCV_REPORT_STRUCTEx 需要type PRCV_REPORT_STRUCTEx = ^RCV_REPORT_STRUCTEx;
  1: (m_pDay: PRCV_HISTORY_STRUCTEx); // 同上
  2: (m_pMinute: PRCV_MINUTE_STRUCTEx);
  3: (m_pPower: PRCV_POWER_STRUCTEx);
  4: (m_pData: Pointer);
end;
PRCV_DATA = ^RCV_DATA ; // 忘了 sr.

Answer 5

上面的朋友，你有qq吗？我的是156840268，
怎么样接受数据啊？有个文件（倚天金融快车）安装后有个skystock.dll，只要按照这个格式调用他就可以接收数据了的，他是udp广播，倚天金融快车的地址是：http://ytqh.com/Item.aspx?ClassId=147
，我们首先调用他的dll，然后再用udp来接收数据，但是我很迷糊，不知道高手可以指教吗？或者按照这个做个例程，真的太感谢了，我会让我我所有的分！！
感谢上面朋友的回复！！