小弟想請問無from的.dll檔若是在.dll檔function中寫上如要show from 的指令如showmessage('hi');通常會delay很久且show不出message來 是否無form的.dll檔無法用一些delphi中的方法,那大概.dll檔能容忍那一類型的方法或元件create或執行? 堅持從洗馬桶做起 Eric 發表人 - huangeider 於 2004/04/19 00:12:40

huangeider您好.. showmessage這個函數..必須引用於DAILOGS..也會間接USES FORMS.. 如果您的DLL沒有FORM..那您使用SHOWMESSAGE這個函數..很浪費DLL空間 還有效能的..因為只要一USES FORMS..您的DLL至少就暴增至350KB.. 所以建議您使用MESSAGEBOX..他只需要uses windows這個unit就夠了.. 原型如下..

int MessageBox(        HWND hWnd,        // handle of owner window
    LPCTSTR lpText,        // address of text in message box
    LPCTSTR lpCaption,        // address of title of message box  
    UINT uType         // style of message box
   );

詳細用法請看HELP的WINDOWS SDK 查詢MessageBox 即可.. 相信效能會提升很多的..GOOD LUCK

int MessageBox(        HWND hWnd,        // handle of owner window
    LPCTSTR lpText,        // address of text in message box
    LPCTSTR lpCaption,        // address of title of message box  
    UINT uType         // style of message box
   );

能告知這四個參數的值嗎? help內全是寫flag的值 而且沒有sample 堅持從洗馬桶做起 Eric

MessageBox( 0, 'Hi world' , 'ok' , MB_OK ) ; MessageBox( 0, 'Hi world' , 'ok' , MB_OKCANCEL ) ; MessageBox( 0, 'Hi world' , 'ok' , MB_YESNO ) ; 試試看就知道....

請教dll檔是否無法show出以下的message library Project1; uses ShareMem, windows, SysUtils, Classes; {$R *.res} function test:boolean; stdcall; begin result := False; MessageBox( 100, 'Hi world' , 'ok' , MB_YESNO ) ; result := True; end; exports test; end. //把dll存在c:\test\project1.dll --執行sql --可通過但沒show 出MessageBox( 100, 'Hi world' , 'ok' , MB_YESNO ) ; execute sp_dropextendedproc 'test' go execute sp_addextendedproc 'test', 'c:\test\Project1.dll' go begin declare @c int execute @c=_test select @c end go 堅持從洗馬桶做起 Eric

把 100 改成 0 試試看

不知為何改成0或100,sql都一直在run,停在當下 堅持從洗馬桶做起 Eric

看來我弄錯你的問題了, 感覺上你應該 1. Messagebox 的第一個參數你應該要傳 0 是沒有錯 2. 你的 DLL 是要拿去給 SQL 呼叫的 . 所以你應要寫一個符合 Open Data Services 格式的 DLL , 而不是一般的 DLL 3. 請參考 SQL Server Book on line 中有關於 "Creating Extended Stored Procedures" 的說明