請問，我現在將 LED 的程式由.pas轉為 DLL。 然後給 Visual Basic 去呼叫 但是在 DLL 中，我每次設定 TRect 為 128x16 但是每次的值都會變成 32x16， 怎麼會這樣，是 DLL 無法定義 TRect 嗎? 或是在 DLL 中最大只有 32x16。 我該如何做呢? Code： var r:TRect; begin r := Rect(0,0,128,16); -->不論給什麼值，r 永遠都是 32x16 end; 發表人 - alarddin 於 2003/09/15 15:21:04

How do you test r? and any VB codes in calling the dll?

我是在 Run-Time 的時候，直接用滑鼠去看那個 r 的值。 至於 VB 的 code ，因為這個問題還沒處理好， 所以我現在都只用 Delphi 去 Call。

引言: 我是在 Run-Time 的時候，直接用滑鼠去看那個 r 的值。 至於 VB 的 code ，因為這個問題還沒處理好， 所以我現在都只用 Delphi 去 Call。

Don't trust the debugger so much... try ShowMessage or similar function to show the value... Remember using the same calling convention in both exe and dll (e.g. stdcall).

謝謝 william，我知道問題所在了。 我沒在 Dll 的 .dpr 中加上 exports， 所以 Debug 的時候會怪怪的。 現在都好了，可是還剩下一個問題， 就是我一直沒辦法傳字串耶， 傳整數就可以，而且我已經有加 ShareMem 了， 可以再教我一下嗎??

ShareMem should be listed as the very FIRST unit in the uses clause for both dll and exe projects (.dpr files).

Oh~~~ ShareMem is used only when both dll and exe are written in Delphi.. For string passing between Delphi and VB, use PChar? or simply make your dll a COM object.

有耶，我有將 ShareMem 宣告在最前面， 我現在都只有 Delphi 去呼叫 Dll。 字串是有傳過去，但是每次關閉程式都會出現 'Run Time Error 217'，一直不知道為什麼， 而且我也不知道怎樣查 Run Time Error 耶

217? It is EControlC.. Or should it be 216? In Delphi help, search for 'fatal errors' in the index tab...

嗯，雖然不知道為什麼，但是就是出現 217 耶。 不過有時也會出現 216，但是比較少。 為什麼只有我用 Dll 傳字串會碰到問題呢~~

雖然那個問題還在，但是我現在換了個方法。 就是我在 DLL 中傳 PChar，呼叫 DLL 的 Delphi 或 Visual Basic 都用 String 的形態存放傳回的值，就可以了。