Hallo,
seit dem ich "Windows XP Service-Pack 2" instaliert habe, funktioniert die folgende
procedure auch dann nicht mehr, wenn ich die Firewall deaktiviere:<BR>
<BR>
<PRE>procedure TfrmDBEinst.SuchSQLServer;
var
DMOAPP,
SrvLst : Variant;
i : integer;
begin
CBServerName.Items.Clear;
DMOApp := CreateOleObject('SQLDMO.Application');
SrvLst := DMOApp.ListAvailableSQLServers;
for i:= 1 to SrvLst.Count do
CBServerName.Items.Add(SrvLst.Item(i));
CBServerName.ItemIndex := 0;
if CBServerName.Items.Count <= 0 then
begin
if MessageDlg('Es wurde kein MSSQL-Server oder eine MSDE gefunden,'+#13#10 +
'möchten Sie die "MSDE" von Microsoft jetzt installieren?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
//Shellexecute();
end;
end;
end;</PRE><BR>
<BR>
Was muß ich ändern?
Jürgen
seit dem ich "Windows XP Service-Pack 2" instaliert habe, funktioniert die folgende
procedure auch dann nicht mehr, wenn ich die Firewall deaktiviere:<BR>
<BR>
<PRE>procedure TfrmDBEinst.SuchSQLServer;
var
DMOAPP,
SrvLst : Variant;
i : integer;
begin
CBServerName.Items.Clear;
DMOApp := CreateOleObject('SQLDMO.Application');
SrvLst := DMOApp.ListAvailableSQLServers;
for i:= 1 to SrvLst.Count do
CBServerName.Items.Add(SrvLst.Item(i));
CBServerName.ItemIndex := 0;
if CBServerName.Items.Count <= 0 then
begin
if MessageDlg('Es wurde kein MSSQL-Server oder eine MSDE gefunden,'+#13#10 +
'möchten Sie die "MSDE" von Microsoft jetzt installieren?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
//Shellexecute();
end;
end;
end;</PRE><BR>
<BR>
Was muß ich ändern?
Jürgen
Comment