procedure TForm1.FormCreate(Sender: TObject);
var
I:Integer;
DBNames:OleVariant;
begin
DCOMConnection1.Connected :=true;
DBNames:= DCOMConnection1.AppServer.GetDatabaseNames;
if VarIsArray(DBNames) then
for I:=0 to VarArrayHighBound(DBNames,1) do
DatabaseName.Items.Add(DBNames[i]);
DatabaseNameClick(Self);
end;
執行到“DBNames:= DCOMConnection1.AppServer.GetDatabaseNames;”這句就會出錯!
ProjectProject1.exe raised exception class EOleError with message 'Method 'GetDatabaseNames' not supported by automation object'.Process stopped.Use Step or Run to continue.