幫忙c轉delphi
請幫忙，轉為delphi語言代碼。
#ifndef THINKGEAR_STREAM_PARSER_H_
#define THINKGEAR_STREAM_PARSER_H_
#define PARSER_TYPE_NULL 0x00
#define PARSER_TYPE_PACKETS 0x01
#define PARSER_TYPE_2BYTERAW 0x02
#define PARSER_CODE_BATTERY 0x01
#define PARSER_CODE_POOR_QUALITY 0x02
#define PARSER_CODE_ATTENTION 0x04
#define PARSER_CODE_MEDITATION 0x05
#define PARSER_CODE_8BITRAW_SIGNAL 0x06
#define PARSER_CODE_RAW_MARKER 0x07
#define PARSER_CODE_RAW_SIGNAL 0x80
#define PARSER_CODE_EEG_POWERS 0x81
#define PARSER_CODE_ASIC_EEG_POWER_INT 0x83
typedef struct _ThinkGearStreamParser {
unsigned char type;
unsigned char state;
unsigned char lastByte;
unsigned char payloadLength;
unsigned char payloadBytesReceived;
unsigned char payload[256];
unsigned char payloadSum;
unsigned char chksum;
void (*handleDataValue)( unsigned char extendedCodeLevel,
unsigned char code, unsigned char numBytes,
const unsigned char *value, void *customData );
void *customData;
} ThinkGearStreamParser;
int
THINKGEAR_initParser( ThinkGearStreamParser *parser, unsigned char parserType,
void (*handleDataValueFunc)(
unsigned char extendedCodeLevel,
unsigned char code, unsigned char numBytes,
const unsigned char *value, void *customData),
void *customData );
void
exampleHandleDataValueFunc( unsigned char extendedCodeLevel,
unsigned char code,
unsigned char numBytes,
const unsigned char *value,
void *customData );
int
THINKGEAR_parseByte( ThinkGearStreamParser *parser, unsigned char byte );
uj5u.com熱心網友回復：
{$ifndef THINKGEAR_STREAM_PARSER_H_}
{$define THINKGEAR_STREAM_PARSER_H_}
{$endif}
const
PARSER_TYPE_NULL = $00;
PARSER_TYPE_PACKETS = $01;
PARSER_TYPE_2BYTERAW = $02;
PARSER_CODE_BATTERY = $01;
PARSER_CODE_POOR_QUALITY = $02;
PARSER_CODE_ATTENTION = $04;
PARSER_CODE_MEDITATION = $05;
PARSER_CODE_8BITRAW_SIGNAL = $06;
PARSER_CODE_RAW_MARKER = $07;
PARSER_CODE_RAW_SIGNAL = $80;
PARSER_CODE_EEG_POWERS = $81;
PARSER_CODE_ASIC_EEG_POWER_INT = $83;
type
ThandleDataValue = procedure(extendedCodeLevel, code, numBytes: char;
const value: PChar; customData: Pointer);
PThandleDataValue = ^ThandleDataValue;
_ThinkGearStreamParser = record
_type: char;
state: char;
lastByte: char;
payloadLength: char;
payloadBytesReceived: char;
payload: array[0..255] of char;
payloadSum: char;
chksum: char;
handleDataValue: PThandleDataValue;
customData: Pointer;
end;
ThinkGearStreamParser = _ThinkGearStreamParser;
PThinkGearStreamParser = ^ThinkGearStreamParser;
function THINKGEAR_initParser(parser: PThinkGearStreamParser;
parserType: char;
handleDataValueFunc: PThandleDataValue;
customData: Pointer): integer;
procedure exampleHandleDataValueFunc(extendedCodeLevel, code, numBytes: char;
const value: PChar; customData: Pointer);
function THINKGEAR_parseByte(parser: PThinkGearStreamParser; _byte: char): integer;
uj5u.com熱心網友回復：
照著翻就是了嘛。。uj5u.com熱心網友回復：
謝謝。我是一點都不懂C，再次謝謝。uj5u.com熱心網友回復：
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/154511.html
標籤：語言基礎/算法/系統設計
上一篇：軟體安裝界面與音樂是怎么弄的。