首先聲明,本文的讀者該賣是:具有相當的易言語基礎的、能較熟練地把常用的的API從VB/C聲明轉換到易言語DLL命令的易言語喜歡者。
1,使用指針
易言語中出于安定、方便考慮,沒有直接提供指針,這正在進行一些高級 縱時不是很方便,固然有一些第三方支撐庫可以取出變量指針(比如我的eLib++ 注:該支撐庫系Delphi開發,本人已開放源代 ,你可以到易言語下載區瞧瞧)但是僅僅為了這個 縱就帶上一個支撐庫不太值得。實在用一個API,加上一些技術就可以欺騙Windows和易言語,讓它們報告你一個變量的指針。
這個API是lstrcpyn。用過C開發Windows下的步驟的朋友可能對這個API相比熟識,就是字符串拷貝。正在windows下取代C準則庫函數strncpy的。字符串拷貝怎樣能獲得變量指針呢?秘密就正在這個API的返回值:
瞧瞧MSDN:“If the function succeeds, the return value is a pointer to the buffer”
該函數把第二個參數指定的字符串雙制到第一個參數指定的字符串,第三個參數指定雙制的長度。假如雙制成功,返回第一個參數(緩沖區buffer)的地點。瞧到了嗎?它返回第一個參數的地點?。∧敲次覀儼研枨笕〉攸c的變量給它的第一個參數,然后想要領讓它雙制成功,它不就返回了那個變量的地點了嗎?
界說一個DLL命令如下:
Dll命令:取文本指針
返回值類型:整數型
正在Dll庫中的命令名:lstrcpyn
參數:欲取其指針的文本 數據類型:文本型 <傳址>
參數:欲取其指針的文本 數據類型:文本型 <傳址>
參數:保存 數據類型:整數型 備注:0
這樣挪用:
文本1 = “abcdefg”
指針1 = 取文本指針 (文本1, 文本1, 0)
把文本1雙制到自己,雙制長度為0字節(也就是什么都不雙制),然后返回文本1的指針。就這么簡略。先報告Windows我要雙制一個文本到某個內存地點,但同時報告它我什么都不雙制,它實踐上幫你取出了這個文本的指針。
上面的例子是取文本的指針,其他類型的變量也一樣的,由于正在API內部(實在是正在內存中)什么類型的變量都體現為一塊內存區域,原理是一樣的。但是易言語是強制類型的言語,所以這次要騙騙易言語了,呵呵,再界說這個API的一個新版本,把它的參數界說成你想要的類型就可以了。
Dll命令:取整數指針
返回值類型:整數型
正在Dll庫中的命令名:lstrcpyn
參數:欲取其指針的整數 數據類型:整數型 <傳址> 備注:一定要傳址
參數:欲取其指針的整數 數據類型:整數型 <傳址> 備注:一定要傳址.重雙一次
參數:保存 數據類型:整數型 備注:0
2,非凡的結構用字節集代替
Window98及其后的 縱零碎提供了一個非常棒的API :GradientFill,利用這個API可以方便地畫出漸變的效果。
這個API倒不是很麻煩,參考MSDN我們很快就可以正在易言語中界說出這個DLL命令:(以漸變填充矩形為例)
Dll命令:GradientFill
返回值類型:邏輯型
Dll庫文件名:Msimg32.dll
正在Dll庫中的命令名:GradientFill
參數:hDC 數據類型:整數型
參數:pVertex 數據類型:TRIVERTEX
參數:dwNumVertex 數據類型:整數型
參數:pMesh 數據類型:GRADIENT_RECT
參數:dwNumMesh 數據類型:整數型
參數:dwMode 數據類型:整數型
其中TRIVERTEX 和GRADIENT_RECT時自界說的數據類型:
自界說數據類型:TRIVERTEX
成員:x 數據類型:整數型
成員:y 數據類型:整數型
成員:Red 數據類型:短整數型
成員:Green 數據類型:短整數型
成員:Blue 數據類型:短整數型
成員:Alpha 數據類型:短整數型
自界說數據類型:GRADIENT_RECT
成員:UpperLeft 數據類型:整數型
成員:LowerRight 數據類型:整數型
憑據MSDN的闡明,基礎沒有標題,但是假如你挪用這個函數,你不會成功的。為什么?我報告你緣由正在TRIVERTEX的界說上。你或許會說,這個沒有標題啊,MSDN上界說如下:
typedef struct _TRIVERTEX {
LONG x;
Long y;
COLOR16 Red;
COLOR16 Green;
COLOR16 Blue;
COLOR16 Alpha;
}TRIVERTEX, *PTRIVERTEX;
C言語的LONG 和Long正在Windows 32位下是32位,對應于易言語“整數型”,COLOR16為十六位,對應于易言語的“短整數型”沒有標題?。∧羌偃缥以賵蟾婺?,易言語中的自界說數據類型的成員均是四字節對齊的,你該理解了吧。是的,易言語中的自界說數據類型的成員均是四字節對齊的,假如不敷四字節,會主動對齊到四字節的。具體到上面的界說,Red,Green,Blue,Alpha固然被界說為“短整數型”但是正在易言語內部,它們均被擴充為“整數型”了。這就是題手法泉源。解決的要領就是用字節集代替自界說數據結構。易言語的字節集不存正在四字節對齊的標題。
Dll命令:GradientFill
返回值類型:邏輯型
Dll庫文件名:Msimg32.dll
正在Dll庫中的命令名:GradientFill
參數:hDC 數據類型:整數型
參數:pVertex 數據類型:字節集
…… ………………..
這樣界說就可以了。為了方便地生產所需求的字節集數據,我有界說了一個子步驟:
子步驟:TRIVERTEX到字節集
返回值類型:字節集
備注:由于內存對齊的緣由,務必把TRIVERTEX類型轉換為字節集才可以挪用API成功
參數:VertEX 數據類型:TRIVERTEX <數組>
局部變量:元素個數 數據類型:整數型
局部變量:變量 數據類型:整數型
局部變量:數據 數據類型:字節集
元素個數 = 取數組成員數 (VertEX)
計次循環首 (元素個數, 變量)
數據 = 數據 + 到字節集 (VertEX [變量].x)
數據 = 數據 + 到字節集 (VertEX [變量].y)
數據 = 數據 + 到字節集 (VertEX [變量].Red)
數據 = 數據 + 到字節集 (VertEX [變量].Green)
數據 = 數據 + 到字節集 (VertEX [變量].Blue)
數據 = 數據 + 到字節集 (VertEX [變量].Alpha)
計次循環尾 ()
返回 (數據)
具體的請瞧附帶的例程
其他具有類似特 (參數或結構中有非四字節的)的API都可以用上述的要領來變通解決。
原文鏈接:https://blog.csdn.net/bylost/article/details/62216878