C++結構體與Delphi結構體相互傳參，結構體中包含結構體的嵌套，數組指針

//結構體的聲明
 typedef struct Mwinddirectbaseline { char* p; int s; int i; }Mwinddirectbaseline; typedef struct F { char* p; int s; int i; }F; typedef struct H { char* p; int s; int i; }H; typedef struct Coordinate1 { char* p; int s; int i; }Coordinate1; typedef struct Mwinddirectbar { F f; H h; }Mwinddirectbar; typedef struct Huxianarray { float* Params; }Huxianarray; typedef struct Hengxianarray { float* Params; }Hengxianarray; typedef struct Windspeedline { char* types; Coordinate1** coordinates; }Windspeedline; typedef struct Resultwindspeedgrid { int HuxianShu; int HengxianShu; Huxianarray* HuxianArrays; Hengxianarray* HengxianArrays; }Resultwindspeedgrid; typedef struct Coordinate { Mwinddirectbaseline *mWindDirectBaseLine; Mwinddirectbar *mWindDirectBars; }Coordinate; typedef struct Winddirectline { Coordinate* coordinates; }Winddirectline; //typedef struct Structtest { // int a; // int b; // int* arr; //}Structtest;
 typedef struct Rootobject { char* gridStartTime; char* gridEndTime; char* resultStartTime; char* resultEndTime; int gridMethod; char* WindDirectBorder; Winddirectline WindDirectLine; char* WindSpeedBorder; Windspeedline WindSpeedLine; /*void* LineDateTimeRelations; void* RatioConverts;*/
    //void* 不肯定類型
    char* resultWindDirectGrid; Resultwindspeedgrid resultWindSpeedGrid; }Rootobject;

C++結構體的聲明

__declspec(dllexport) Rootobject __stdcall RefRootobjectValues(char* path) { ifstream t(path); Rootobject Root; string str((istreambuf_iterator<char>(t)), istreambuf_iterator<char>()); CJsonObject Objson = CJsonObject(str); string strsss; Objson.Get("gridStartTime", strsss); Root.gridStartTime = ReturnCharArr(strsss); Objson.Get("gridEndTime", strsss); Root.gridEndTime = ReturnCharArr(strsss); Objson.Get("resultStartTime", strsss); Root.resultStartTime = ReturnCharArr(strsss); Objson.Get("resultEndTime", strsss); Root.resultEndTime = ReturnCharArr(strsss); Objson.Get("WindSpeedBorder", strsss); Root.WindSpeedBorder = ReturnCharArr(strsss); Objson.Get("WindDirectBorder", strsss); Root.WindDirectBorder = ReturnCharArr(strsss); Objson.Get("resultWindDirectGrid", strsss); Root.resultWindDirectGrid = ReturnCharArr(strsss); int nums = Objson["WindDirectLine"]["coordinates"].GetArraySize(); Root.WindDirectLine.coordinates = (struct Coordinate *)malloc(nums * sizeof(struct Coordinate)); /*Coordinate* coor=new Coordinate [nums];*/
    /*因爲School_T中定義的student是一個結構體指針，必需要對其進行分配內存*/
    //Root.WindDirectLine->coordinates = (coordinates *)malloc(sizeof(Student_T));

    for (int i = 0; i < nums; i++) { int mWindDirectBaseLine_Length = Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBaseLine"].GetArraySize(); Root.WindDirectLine.coordinates[i].mWindDirectBaseLine = (struct Mwinddirectbaseline *)malloc(nums * sizeof(struct Mwinddirectbaseline)); for (int j = 0; j < mWindDirectBaseLine_Length; j++) { string Str1; Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBaseLine"][j].Get("p", Str1); Root.WindDirectLine.coordinates[i].mWindDirectBaseLine[j].p = ReturnCharArr(Str1); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBaseLine"][j].Get("i", Root.WindDirectLine.coordinates[i].mWindDirectBaseLine[j].i); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBaseLine"][j].Get("s", Root.WindDirectLine.coordinates[i].mWindDirectBaseLine[j].s); Root.WindDirectLine.coordinates[i].mWindDirectBaseLine++; } int mWindDirectBars_Length = Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"].GetArraySize(); Root.WindDirectLine.coordinates[i].mWindDirectBars = (struct Mwinddirectbar *)malloc(nums * sizeof(struct Mwinddirectbar)); for (int k = 0; k < mWindDirectBars_Length; k++) { string Str2; F f; H h; Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["f"].Get("p", Str2); f.p = ReturnCharArr(Str2); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["f"].Get("s", f.s); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["f"].Get("i", f.i); Str2 = ""; Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["h"].Get("p", Str2); h.p = ReturnCharArr(Str2); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["h"].Get("s", h.s); Objson["WindDirectLine"]["coordinates"][i]["mWindDirectBars"][k]["h"].Get("i", h.i); Root.WindDirectLine.coordinates[i].mWindDirectBars[k].f = f; Root.WindDirectLine.coordinates[i].mWindDirectBars[k].h = h; Root.WindDirectLine.coordinates[i].mWindDirectBars++; } Root.WindDirectLine.coordinates++; } return Root; //strs->WindDirectLine.coordinates = coor; //strs->WindDirectLine->coordinates = coor; //strs->gridMethod = 50;
 }

C++賦值並返回

 type Huxianarray = record Params:^ double; end; type Hengxianarray = record Params:^ double; end; type Resultwindspeedgrid = record HuxianShu:Integer; HuxianArrays:^ Huxianarray; HengxianShu:Integer; HengxianArrays:^ Hengxianarray; end; type Coordinate1 = record p:pansiChar; s:Integer; i:Integer; end; type Windspeedline =  record types:pansiChar; coordinates:^ Coordinate1; end; type H = record p:pansiChar; s:Integer; i:Integer; end; type F =  record p:pansiChar; s:Integer; i:Integer; end; type Mwinddirectbar = record f:F; h:H; end; TMyArraybar = array of Mwinddirectbar; PMyArraybar = ^TMyArraybar; type Mwinddirectbaseline = record p:pansiChar; s:Integer; i:Integer; end; type Coordinate = record
// TCoordinate = record
 mWindDirectBaseLine: ^Mwinddirectbaseline; mWindDirectBars: ^Mwinddirectbar; end; type Winddirectline = record coordinates: ^Coordinate; end; type Rootobject = record gridStartTime:pansiChar; gridEndTime:pansiChar; resultStartTime:pansiChar; resultEndTime:pansiChar; gridMethod:Integer; WindDirectBorder:pansiChar; WindDirectLine:Winddirectline; WindSpeedBorder:pansiChar; WindSpeedLine:Windspeedline; // LineDateTimeRelations:pointer; // RatioConverts:pointer;
 resultWindDirectGrid:pansiChar; resultWindSpeedGrid:Resultwindspeedgrid; end;

Delphi結構體的聲明

function RetRootobjectValues(b:pansiChar;var n1:pansiChar;var mu:Integer):Rootobject;stdcall;external 'F:\資料文檔\20190227\測試文件夾\Win32DLL\Debug\Win32DLL.dll'; procedure TForm5.Button4Click(Sender: TObject); var root:Rootobject; path,res:pansiChar; mu,I,hsf,hsh:Integer; nums:Mwinddirectbaseline; resd:Coordinate; Mwind: Mwinddirectbaseline; Mwbar:Mwinddirectbar; bol,bolbar:boolean; fs:F; hs:H; begin root.gridMethod:=0; path:=  pansiChar(AnsiString('E:\123.txt')); root:= RetRootobjectValues(path,res,mu); // resd:= root.WindDirectLine.coordinates^ ; // Mwind:= root.WindDirectLine.coordinates^.mWindDirectBaseLine^; // Inc(root.WindDirectLine.coordinates);
         bol:=true; while(bol) do
            begin resd:= root.WindDirectLine.coordinates^ ; try Mwind:= root.WindDirectLine.coordinates^.mWindDirectBaseLine^; Mwbar:= root.WindDirectLine.coordinates^.mWindDirectBars^; fs:=Mwbar.f; hs:=Mwbar.h; hsf:= fs.s; hsh:=hs.s; bolbar:=true; mu:= Mwind.s; while((mu<>-1414812757)) do
                 begin Inc(root.WindDirectLine.coordinates^.mWindDirectBaseLine); {到下一個} Mwind:= root.WindDirectLine.coordinates^.mWindDirectBaseLine^; mu:= Mwind.s; end; while((hsf<>-1414812757) and (hsh<>-1414812757) ) do
                 begin Inc(root.WindDirectLine.coordinates^.mWindDirectBars); {到下一個} Mwbar:= root.WindDirectLine.coordinates^.mWindDirectBars^; fs:=Mwbar.f; hs:=Mwbar.h; hsf:= fs.s; hsh:=hs.s; end; except
               begin bol:=false; end; end; Inc(root.WindDirectLine.coordinates); {到下一個}
            end; // resd^:=root.WindDirectLine.coordinates; // Mwind[0]:= resd.mWindDirectBaseLine; // Mwbar:= resd.mWindDirectBars; // for I := 0 to 3 do // begin // resd:= root.WindDirectLine.coordinates; // // end;
 ShowMessage(root.gridStartTime); end;

Delphi調用方法

 其中Json文件的讀取運用了C++ Json解析CJsonObject的詳細使用

代碼中只展現了部分參數的賦值。

若是出現讀取內存地址報錯的狀況，在C++的ReturnRootobject方法中添加 __stdcall。