typedef struct _EXT_FRAME_HEAD
{
unsigned long nStartFlag; //擴展幀頭起始標識
unsigned short nVer; //版本
unsigned short nLength; //擴展幀頭長度
EXT_FRAME_TYPE szFrameInfo;
unsigned long nTimestamp; //以毫秒為單位的時間戳
unsigned long nEndFlag; //擴展幀頭起始標識
bool CheckExtFlag()
{
return (HH_EXT_HEAD_FLAG == nStartFlag && HH_EXT_TAIL_FLAG == nEndFlag ) ? true:false;
}
}EXT_FRAME_HEAD;
typedef struct _HV_FRAME_HEAD
{
unsigned short zeroFlag; // 0
unsigned char oneFlag; // 1
unsigned char streamFlag; // 資料幀標志 FRAME_FLAG_VP，FRAME_FLAG_VI，FRAME_FLAG_A
unsigned long nByteNum; //資料幀大小
unsigned long nTimestamp; //時間戳
}HV_FRAME_HEAD;
上面2個結構體
下面這句 要轉 delphi, 折騰了好久 怎么編譯器都過不了
EXT_FRAME_HEAD *pExtFrameHead = (EXT_FRAME_HEAD *)((char*)pFrameHead + sizeof(HV_FRAME_HEAD));
這句意思應該是 定義一個EXT_FRAME_HEAD型別的指標變數, 然后賦值, 但在delphi中如何轉呢?
type
EXT_FRAME_HEAD = record
nStartFlag: LongInt; //擴展幀頭起始標識
nVer: Word; //版本
nLength: Word; //擴展幀頭長度
szFrameInfo: EXT_FRAME_TYPE;
nTimestamp: LongInt; //以毫秒為單位的時間戳
nEndFlag: LongInt; //擴展幀頭起始標識
//這里不會翻譯, 但跟本次無關, 不過有知道怎么翻的前輩指點下, 不勝感激
// public bool CheckExtFlag()
// {
// return (HH_EXT_HEAD_FLAG == nStartFlag && HH_EXT_TAIL_FLAG == nEndFlag ) ? true:false;
// }
end;
pEXT_FRAME_HEAD = ^EXT_FRAME_HEAD;
type
HV_FRAME_HEAD = record
zeroFlag: Word; // 0
oneFlag: Byte; // 1
streamFlag: Byte; // 資料幀標志 FRAME_FLAG_VP，FRAME_FLAG_VI，FRAME_FLAG_A
nByteNum: LongInt; //資料幀大小
nTimestamp: LongInt; //時間戳
end;
pHV_FRAME_HEAD = ^HV_FRAME_HEAD;
var
pFrameHead : pHV_FRAME_HEAD;
pExtFrameHead: pEXT_FRAME_HEAD;
然后呢 .....
uj5u.com熱心網友回復：
結構體轉換后要先檢測占用位元組數與C++一致,然后再運行看具體內容.uj5u.com熱心網友回復：
結構體定義時用 packed record 讓它的成員向前靠緊.uj5u.com熱心網友回復：
bool CheckExtFlag(){
return (HH_EXT_HEAD_FLAG == nStartFlag && HH_EXT_TAIL_FLAG == nEndFlag ) ? true:false;
}
function CheckExtFlag():boolean;
begin
result := (HH_EXT_HEAD_FLAG =(nStartFlag and HH_EXT_TAIL_FLAG=nEndFlag ));
end;
uj5u.com熱心網友回復：
這句 可是在c++定義的結構體里面呀, 像你這么寫在結構體里, 還沒編譯, delphi就給出錯誤提示了uj5u.com熱心網友回復：
var
pFrameHead : pHV_FRAME_HEAD;
pExtFrameHead: pEXT_FRAME_HEAD;
pExtFrameHead := @(pFrameHead^);
這么寫可以編譯通過, 但顯然跟c++的陳述句還差好多
uj5u.com熱心網友回復：
pExtFrameHead:= pEXT_FRAME_HEAD(LongWord(pFrameHead) + SizeOf(HV_FRAME_HEAD));
轉成這樣 , 可以嗎?, 編譯可以通過, 但實際有沒有效果, 現在無法判斷
uj5u.com熱心網友回復：
typeEXT_FRAME_HEAD = record
nStartFlag: LongInt; //擴展幀頭起始標識
nVer: Word; //版本
nLength: Word; //擴展幀頭長度
szFrameInfo: EXT_FRAME_TYPE;
nTimestamp: LongInt; //以毫秒為單位的時間戳
nEndFlag: LongInt; //擴展幀頭起始標識
function CheckExtFlag: boolean;
end;
function EXT_FRAME_HEAD.CheckExtFlag: boolean;
begin
result := (HH_EXT_HEAD_FLAG = nStartFlag) and (HH_EXT_TAIL_FLAG = nEndFlag);
end;
uj5u.com熱心網友回復：
EXT_FRAME_HEAD *pExtFrameHead = (EXT_FRAME_HEAD *)((char*)pFrameHead + sizeof(HV_FRAME_HEAD));var
pExtFrameHead: ^EXT_FRAME_HEAD;
pExtFrameHead := pointer(NativeInt(pFrameHead) + sizeof(HV_FRAME_HEAD));
uj5u.com熱心網友回復：
delphi 結構體里也可放函式啊！！！！！！！！！！
uj5u.com熱心網友回復：
d7以后的版本，結構和類類似了，除了幾點區別：（引自幫助）
Records (advanced) In addition to the traditional record types, the Delphi language allows more complex and "class-like" record types. In addition to fields, records may have properties and methods (including constructors), class properties, class methods, class fields, and nested types. For more information on these subjects, see the documentation on Classes and Objects. Here is a sample record type definition with some "class-like" functionality.
type
TMyRecord = record
type
TInnerColorType = Integer;
var
Red: Integer;
class var
Blue: Integer;
procedure printRed();
constructor Create(val: Integer);
property RedProperty: TInnerColorType read Red write Red;
class property BlueProp: TInnerColorType read Blue write Blue;
end;
constructor TMyRecord.Create(val: Integer);
begin
Red := val;
end;
procedure TMyRecord.printRed;
begin
Writeln('Red: ', Red);
end;Though records can now share much of the functionality of classes, there are some important differences between classes and records.
1，Records do not support inheritance.
2，Records can contain variant parts; classes cannot.
3，Records are value types, so they are copied on assignment, passed by value, and allocated on the stack unless they are declared globally or explicitly allocated using the New and Dispose function. Classes are reference types, so they are not copied on assignment, they are passed by reference, and they are allocated on the heap.
4，Records allow operator overloading on the Win32 platform; classes, however, do not allow operator overloading.
5，Records are constructed automatically, using a default no-argument constructor, but classes must be explicitly constructed. Because records have a default no-argument constructor, any user-defined record constructor must have one or more parameters.
6，Record types cannot have destructors.
7，Virtual methods (those specified with the virtual, dynamic, and message keywords) cannot be used in record types.
8，Unlike classes, record types on the Win32 platform cannot implement interfaces.
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/76040.html
標籤：語言基礎/算法/系統設計
上一篇：delphi7 如何安裝 Report Machine
下一篇：delphi中的word開發