MDaemon 是一套郵件伺服器軟體, 它提供了一些 API, 可供我們用程式呼叫, 以進行各項操作
網路上有一段呼叫 MDaemon API 以取得所有域名的程式, 是 ASP 寫的, 如下


[code vb]
DIM oMDUser
DIM Domains
DIM DomainNames()
SET oMDUser = CreateObject("MDUserCOM.MDUser")
IF oMDUser.LoadUserDll() = True THEN
Domains = oMDUser.GetDomainCount
response.Write "共有" & Domains & " 個域名."
oMDUser.GetDomainNames(DomainNames)
FOR i = 0 to Domains - 1
response.write DomainNames(i) &" "
next
ELSE
response.write "Error Loading MDUserCom"
END IF
Set oMDUser = NOTHING
[/code]

我想要將其改為用 Delphi 來寫, 但執行發生錯誤, 程式如下：

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
oMDUser : variant;
Domains:integer;
DomainNames:Variant; // 不知宣告為 Variant 是否正確 ?
i:integer;
begin
oMDUser:=CreateOleObject('MDUserCOM.MDUser');
if oMDUser.LoadUserDll then begin
Domains:=oMDUser.GetDomainCount;
ShowMessage('共有 ' IntToStr(Domains) ' 個域名');
DomainNames := VarArrayCreate([0, Domains-1], varOleStr); // 此處不知該如何建立 DomainNames
oMDUser.GetDomainNames(DomainNames);
for i:=1 to Domains do begin
end;
end;
end;

[/code]

程式在 oMDUser.GetDomainNames(DomainNames); 這一行, 出現【類型不相符】的錯誤訊息
可能是 GetDomainNames 所需要傳入的參數型態, 跟我所宣告的 DomainNames 不符
原來 ASP 程式的 DomainNames 宣告為 DIM DomainNames()
而在 Delphi 中, 我就不知道該如何宣告 DomainNames
有網友知道的嗎 ? 麻煩提點一下, 謝謝 !

using c#
http://lists.altn.com/WebX/.5985ff29


System.Array DomainNames = GetDomainNames (foreach (in DomainNames)
{
Console."\t" d);
}

about system.array in delphi
http://www.devsuperpage.com/search/Articles.asp?ArtID=138235

Which is the correct syntax for declaring an array of type System.Array?

一直搞不定, 後來我改用 import a type library , 將 MDUserCOM.dll 引入產生一個 _TLB 宣告檔
use 這個宣告檔, 就可以產生各個介面, 藉以控制 MDaemon 進行各種設定