delphi自定義控件調(diào)用動態(tài)庫，靜態(tài)網(wǎng)頁測試-創(chuàng)新互聯(lián)

折騰著，自己摸索著走，會的，不會的，自己查。一門沒學(xué)過的語言，雖然說很多的語法和用法和之前所學(xué)的很多的一樣，但是句型和基礎(chǔ)結(jié)構(gòu)都不一樣。會點，記點，防忘~~

連山ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應(yīng)用場景，ssl證書未來市場廣闊！成為創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！

摸索著做了個demo.ocx控件，步驟如下：

file -> new -> other -> ActiveForm ，為何用這個俺也不懂，從網(wǎng)上看到的。然后 edite -> add to interface 編寫function 或者procedure，自己做了個function函數(shù)Get_DeviceOpen(Port, BaudRate: Integer): WideString; 輸入兩個int參數(shù)，輸出的是WideString

但不知道為何，add to Interface這個菜單按鈕總是灰色的，使用不了，問了同事，在view -> type Library那里右鍵選擇 new -> method ，然后在 parameters那里編輯相應(yīng)的參數(shù)；如圖：使用的是function有返回的值，折磨了下將modify的值設(shè)置為圖的類型就可以了。

一直的在想著，pascal 沒有用return來返回值，到底在函數(shù)里面，返回的是哪個的值，昨天想到今天，網(wǎng)上查不到，弄了弄，早上無意中看到人家將函數(shù)的名稱進行賦值，才明白：

function TActiveFormX.Get_DeviceOpen(Port, BaudRate: Integer): WideString;
   var resulted: Integer;
begin
resulted := open_device(Port,BaudRate);
if(resulted <> 0) then
    begin
       Get_DeviceOpen := '打開端口失敗'         //函數(shù)返回值
    end                            //此沒有“;”
else
    begin
       Get_DeviceOpen := '打開端口成功,波特率為'+inttostr(BaudRate)   //函數(shù)返回值
end;

end;

在應(yīng)用層上調(diào)用底層動態(tài)庫接口函數(shù)，調(diào)用如下：

function open_device(const port:integer; const baud:integer):word; stdcall ;external 'mw_mt32.dll';
function get_version(const icdev:integer;const Ver,Verlen:PAnsiChar):word;stdcall ;external 'mw_mt32.dll';

其中接口文檔的說明如下：

打開通訊接口

HANDLE open_device(__int16 port,unsigned long baud);

功能：初始化通訊端口

參數(shù)：

Port：通訊端口號，0、1、2、3分別代表串口1、2、3、4；

對于USB口，該參數(shù)無效，可以設(shè)置為0.

baud：通訊口為串口時表示波特率，其值可為1200～115200。

對于USB口，該參數(shù)無效，可以設(shè)置為0.

返回值：

2.讀取硬件版本號

__int16 get_version(HANDLE icdev,unsigned char *Ver);

功能：讀硬件版本信息

參數(shù)：icdev：通訊設(shè)備標識符

len：硬件版本長度

data_buffer：硬件版本信息

返回值：

<>0 失敗

=0 成功

<=0 錯誤

>0 通訊設(shè)備標識符

使用靜態(tài)網(wǎng)頁調(diào)用我的中間ocx控件，在網(wǎng)頁中插入控件的內(nèi)容（如下）：

使用js腳本，在js腳本中調(diào)用控件的function如下： resulted = dtm.Get_DeviceOpen(port,BaudRate);

本文題目：delphi自定義控件調(diào)用動態(tài)庫，靜態(tài)網(wǎng)頁測試-創(chuàng)新互聯(lián)
本文路徑：http://aaarwkj.com/article32/cchisc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開發(fā)、做網(wǎng)站、小程序開發(fā)、云服務(wù)器、Google、App設(shè)計

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容

欧美一级特黄大片做受成人-亚洲成人一区二区电影-激情熟女一区二区三区-日韩专区欧美专区国产专区

delphi自定義控件調(diào)用動態(tài)庫，靜態(tài)網(wǎng)頁測試-創(chuàng)新互聯(lián)