我手里有一段用Delphi寫的原始碼，好像是用來生成一個DLL檔案的。
我想把它里面的函式內容轉化為C語言或者C++撰寫的，不知道哪位大佬能幫我看一看，不勝感激~
library PSIdll;
const
Pkg8400Len = 4120;
Pkg8400ChNum = 1024;
type
Byte69 = array[0..68] of Byte;
Single16 = array[0..15] of Single;
Byte8400 = array[0..Pkg8400Len-1] of Byte;
Single8400 = array[0..Pkg8400ChNum-1] of Single;
DataPkgType =packed record
st: Byte;
SN: integer;
ChData: Single16;
end;
//以下是PSI掃描器資料包解碼函式
//單個4位元組格式7->單精度浮點數
Function ToSingle(s1,s2,s3,s4:byte): Single; stdcall;
Var spt:^single;
sary:array[0..3] of byte;
begin
sary[0]:=s4;
sary[1]:=s3;
sary[2]:=s2;
sary[3]:=s1;
spt:=@sary;
ToSingle:=spt^;
end;
//單個4位元組格式8->單精度浮點數
Function ToSingle8(s1,s2,s3,s4:byte): Single; stdcall;
Var spt:^single;
sary:array[0..3] of byte;
begin
sary[0]:=s1;
sary[1]:=s2;
sary[2]:=s3;
sary[3]:=s4;
spt:=@sary;
ToSingle8:=spt^;
end;
//單個69位元組資料包->16個單精度浮點數
Function Decode9000(var rBuff: Byte69; psiFormat:integer;var SN:Longint; var ChData:Single16): integer;stdcall;
var
myData: ^DataPkgType;
byteAry: Byte69;
i: integer;
Begin
if (rBuff[0]>3) or (rBuff[0]<1) then
begin
Decode9000:=1;
for i:=0 to 15 do
begin
ChData[i] := 0.0;
end;
SN:= 0;
exit;
end;
case psiFormat of
7:
begin
byteAry[0]:= rBuff[0];
for i:=0 to 16 do
begin //交換位元組順序，格式7->格式8
byteAry[i*4+1]:= rBuff[i*4+4];
byteAry[i*4+2]:= rBuff[i*4+3];
byteAry[i*4+3]:= rBuff[i*4+2];
byteAry[i*4+4]:= rBuff[i*4+1];
end;
myData:=@byteAry;
end;
8:
myData:=@rBuff;
else
Decode9000:=1;
exit;
end;
Decode9000:=0;
ChData :=myData^.ChData;
SN:= myData^.SN;
End;
//==============================
//Decode DTCInitium 和8400資料包
Function DecodeDTC8400(var rBuff: Byte8400; var SN:Longint; var ChData:Single8400): integer;stdcall;
Var spt:^single;
sary:array[0..3] of byte;
DataNum: integer;
i: integer;
Begin
DecodeDTC8400:=1;
//報頭決議：應答包
case rBuff[1] of
4,8,9,128: //簡單應答包
begin
DecodeDTC8400:=1;
for i:=0 to 63 do
begin
ChData[i] := 0.0;
end;
SN:= 0;
end;
19: //資料流包
if rBuff[0] = 250 then
begin
DecodeDTC8400:=0;
SN := rBuff[4];
SN := SN *256 + rBuff[5];
DataNum := rBuff[6];
DataNum := DataNum *256 + rBuff[7]; //得到資料點數
//位元組倒序，8400總是使用格式7，大頭格式
for i:=0 to DataNum-1 do //DataNum-1
begin //交換位元組順序，格式7->格式8
sary[0]:= rBuff[i*4+24+3];
sary[01]:= rBuff[i*4+24+2];
sary[02]:= rBuff[i*4+24+1];
sary[03]:= rBuff[i*4+24];
spt:=@sary;
ChData[i] := spt^;
end;
end;
else //其它不解碼
begin
DecodeDTC8400:=1;
for i:=0 to 63 do
begin
ChData[i] := 0.0;
end;
SN:= 0;
end;
end;
End;
exports
ToSingle ,
ToSingle name 'Tosingle',
ToSingle name 'ToSingle7',
ToSingle8,
DecodeDTC8400,
Decode9000;
begin
end.
uj5u.com熱心網友回復：
如果方法可行，另有報酬，感謝感謝uj5u.com熱心網友回復：
編譯一下直接用就可以了非要翻譯，也很容易
// PSIdll.cpp
#include <windows.h>
const int Pkg8400Len = 4120;
const int Pkg8400ChNum = 1024;
typedef unsigned char byte;
typedef byte Byte69[69];
typedef float Single16[16];
typedef byte Byte8400[Pkg8400Len];
typedef float Single8400[Pkg8400ChNum];
#pragma pack(push, 1)
typedef struct tagDataPkgType
{
byte st;
int SN;
Single16 ChData;
} DataPkgType;
#pragma pack(pop)
__declspec(dllexport) __stdcall float ToSingle(byte s1, byte s2, byte s3, byte s4)
{
int result = (int)s4 + ((int)s3 << 8) + ((int)s2 << 16) + ((int)s1 << 24);
return *(float *)&result;
}
// 剩下的你自己轉吧
BOOL APIENTRY DllMain(HANDLE hModule, DWORD dwReason, void *lpReserved)
{
switch(dwReason)
{
case DLL_PROCESS_ATTACH:
// ...
break;
case DLL_PROCESS_DETACH:
// ...
break;
}
return true;
}
uj5u.com熱心網友回復：
感謝大佬的回復。我是想要在Labview的RT系統中使用，但是Delphi編譯出來的DLL它用不了。。。NI的工程師說用C語言編譯的應該可以。。。所以才會來問這么一個問題
另外關于代碼的部分，由于我很少使用C和Delphi所以十分的小白………… 您應該是轉換了資料型別定義的那些吧？剩下的4個函式我如果要轉換應該放在代碼的哪個地方呢，還請指教一下，蟹蟹蟹蟹~~~
uj5u.com熱心網友回復：
不可能Delphi編譯出來的DLL它用不了，C語言編譯的可以，估計是32位還是64位DLL的問題uj5u.com熱心網友回復：
這個DLL的位數問題取決于編譯器所在的系統是32位還是64位嗎
uj5u.com熱心網友回復：
不是的哦, xe一下只有32的
xe以上可以選擇平臺(32,64,phone,linux,etc..)的
uj5u.com熱心網友回復：
意思是如果我是在XP下使用Delphi7編譯出來的應該就是32位的了吧？
uj5u.com熱心網友回復：
我編譯了32位和64位兩種，你試一下：https://www14.zippyshare.com/v/LyRQVrvk/file.htmluj5u.com熱心網友回復：
感謝~~我讓人試一下
uj5u.com熱心網友回復：
Delphi本來就可以編譯原生代碼（綠色且不要任何運行庫）的dll，為什么還非得要轉成c/c++呢？而且只要你按照Windows標準動態庫構建代碼就可以編譯出給任何語言呼叫的動態庫的。uj5u.com熱心網友回復：
大佬，您的兩個DLL我這還是用不了。。。
我聯系了NI 的工程師，他們說如果使用他們旗下的Labview/CVI來生成DLL檔案的話肯定可以用，但是這個編譯器是只支持C語言生成DLL的，所以可能還是需要重構成C…… 為什么會有這樣的問題啊……
uj5u.com熱心網友回復：
可以明確的說，沒有C語言生成的DLL可以用，Delphi生成的DLL不能用這種事，要么是呼叫約定的問題，你把stdcall改成cdecl再編譯試一下（只限于32位DLL，64位DLL只有一種呼叫約定），要么是你們的開發人員對函式原型沒有正確宣告，或者他沒有從DLL匯出.lib，可以用EMB的工具implib（32位）/mkexp.exe或者VS中的dumpbin和lib建立匯入庫檔案。uj5u.com熱心網友回復：
感謝您的回復，我讓人去試試~
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/31034.html
標籤：語言基礎/算法/系統設計
下一篇：4.3堆疊學習筆記