全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:4259
推到 Plurk!
推到 Facebook!

Dll調用問題,INPUTDAT要放哪

答題得分者是:aftcast
helsing
一般會員


發表:7
回覆:15
積分:4
註冊:2004-07-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-05-09 21:39:58 IP:114.25.xxx.xxx 訂閱
請問各位大大,我如果調用dll涵數
long __declspec(dllexport) Senddata(unsigned char InputData[],unsigned char OutputData[]);

HINSTANCE hDll = LoadLibrary("TEST_Lib.dll");
GetRegisterBasic = (LP2)GetProcAddress(hDll," Senddata"); //運用 Senddata涵式
result = GetRegisterBasic(pBuffer, &iBufferLen); // 回傳值

但是要放一個INPUT data,不太懂要放再哪,可以請大大指點一 下嗎??謝謝
aftcast
站務副站長


發表:81
回覆:1485
積分:1763
註冊:2002-11-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-05-09 21:56:11 IP:122.126.xxx.xxx 訂閱
result = GetRegisterBasic(pBuffer 就是!

或是我誤會你的意思?



===================引 用 helsing 文 章===================
請問各位大大,我如果調用dll涵數
long __declspec(dllexport) Senddata(unsigned char InputData[],unsigned char OutputData[]);

HINSTANCE hDll = LoadLibrary("TEST_Lib.dll");
GetRegisterBasic = (LP2)GetProcAddress(hDll," Senddata"); //運用 Senddata涵式
result = GetRegisterBasic(pBuffer, &iBufferLen); // 回傳值

但是要放一個INPUT data,不太懂要放再哪,可以請大大指點一 下嗎??謝謝
------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan
helsing
一般會員


發表:7
回覆:15
積分:4
註冊:2004-07-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2012-05-09 22:12:38 IP:114.25.xxx.xxx 訂閱
大大,GetRegisterBasic(pBuffer, &iBufferLen);裡面的 pBuffer 是回傳OutputData的值和OutputData(iBufferLen)長度
那我的inputData[]是要放哪,還是寫法哪裡要變??謝謝

aftcast
站務副站長


發表:81
回覆:1485
積分:1763
註冊:2002-11-21

發送簡訊給我
#4 引用回覆 回覆 發表時間:2012-05-09 22:22:52 IP:122.126.xxx.xxx 訂閱
嗯,我剛是有眼勿 @@ 工作太忙嗎我?!



HINSTANCE hDll = LoadLibrary("TEST_Lib.dll");
SenddataPtrresult = // 回傳值

是這樣嗎?!


===================引 用 helsing 文 章===================
大大,GetRegisterBasic(pBuffer, &iBufferLen);裡面的 pBuffer 是回傳OutputData的值和OutputData(iBufferLen)長度
那我的inputData[]是要放哪,還是寫法哪裡要變??謝謝

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan
helsing
一般會員


發表:7
回覆:15
積分:4
註冊:2004-07-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2012-05-10 12:32:32 IP:210.80.xxx.xxx 訂閱
大大,感謝您的幫忙,沒錯,應該是SenddataPtr(這裡in, 這裡out);回傳長度是不需要的,
再請問一個問題
我要如將BYTE pbSendBuffer[]怎麼轉換寫成活的啊要如何將Ansistring 轉到unsigned char??感謝您的幫忙

Edit1->Text="A6B3AB4F80CE1550000001"
//BYTE pbSendBuffer[] = { 0xA6, 0xB3, 0xAB, 0x4F, 0x80, 0xCE, 0x15 ,0x50,0x00, 0x00 ,0x01}; / /可以運做
BYTE pbSendBuffer[]=Edit1->Text; //請問要怎麼轉換啊????
result = WriteData(pbSendBuffer,pBuffer);

aftcast
站務副站長


發表:81
回覆:1485
積分:1763
註冊:2002-11-21

發送簡訊給我
#6 引用回覆 回覆 發表時間:2012-05-10 12:57:16 IP:114.32.xxx.xxx 訂閱
,pBuffer);

===================引 用 helsing 文 章===================
大大,感謝您的幫忙,沒錯,應該是SenddataPtr(這裡in, 這裡out);回傳長度是不需要的,
再請問一個問題
我要如將BYTE pbSendBuffer[]怎麼轉換寫成活的啊要如何將Ansistring 轉到unsigned char??感謝您的幫忙

Edit1->Text="A6B3AB4F80CE1550000001"
//BYTE pbSendBuffer[] = { 0xA6, 0xB3, 0xAB, 0x4F, 0x80, 0xCE, 0x15 ,0x50,0x00, 0x00 ,0x01}; / /可以運做
BYTE pbSendBuffer[]=Edit1->Text; //請問要怎麼轉換啊????
result = WriteData(pbSendBuffer,pBuffer);

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan
helsing
一般會員


發表:7
回覆:15
積分:4
註冊:2004-07-06

發送簡訊給我
#7 引用回覆 回覆 發表時間:2012-05-10 15:22:05 IP:210.80.xxx.xxx 訂閱
大大,那樣是可以執行,不過send出去的格式又不對了,要把那個hex值轉成 BIN才行,
因為是 0x80 = €
// char hex[]="80279F4F0006C84F00000180"; // 可以
char hex[]=Edit1->Text// ;請問這個部份要怎麼轉換啊?
char bin[11];
int digit, binSize=11;
digit = HexToBin(hex, bin, binSize);
ShowMessage(bin);
aftcast
站務副站長


發表:81
回覆:1485
積分:1763
註冊:2002-11-21

發送簡訊給我
#8 引用回覆 回覆 發表時間:2012-05-10 15:31:28 IP:114.32.xxx.xxx 訂閱
希望不會沒完沒了才好 :p


int binSize = Edit1->Text.Lenght()/2;
char *bin = new char[binSize];

digit = HexToBin(result = WriteData(bin);

delete [] bin;


===================引 用 helsing 文 章===================
大大,那樣是可以執行,不過send出去的格式又不對了,要把那個hex值轉成 BIN才行,
因為是 0x80 =€
// char hex[]="80279F4F0006C84F00000180"; // 可以
char hex[]=Edit1->Text// ;請問這個部份要怎麼轉換啊?
char bin[11];
int digit, binSize=11;
digit = HexToBin(hex, bin, binSize);
ShowMessage(bin);
------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan
helsing
一般會員


發表:7
回覆:15
積分:4
註冊:2004-07-06

發送簡訊給我
#9 引用回覆 回覆 發表時間:2012-05-10 16:15:12 IP:210.80.xxx.xxx 訂閱
謝謝大大的指點,沒問題了
系統時間:2024-04-26 7:43:29
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!