SQL-Serversuche funktioniert nicht mehr

[Jürgen Bukoitz]

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

[Andreas Kosch]

Hallo,

Microsoft hat dazu den Beitrag <i>How to configure Windows XP Service Pack 2 for use with SQL Server</i> in seiner Knowlegde Base (<i>http://support.microsoft.com/default.aspx?kbid=841249</i>)

Außerdem würde ich im Tool <i>SQL Server-Netzwerkkonfiguration</i> nachsehen, ob dort bei <i>Aktivierte Protokolle | Eigenschaften</i> die Checkbox <b>Server ausblenden</b> angekreuzt ist.
&#10

[Bernhard Geyer]

Also die Lösung mit <a href="http://www.entwickler-forum.de/webx?13@@.ee8e10e/7">NetServerEnum</a> funktioniert immer noch.

Man sollte halt nicht zuviel COM verwenden :-

[Jürgen Bukoitz]

Hallo Andreas, hallo Bernhard,

also ehrlich gesagt finde ich es eine Zumutung,
wenn ein Kunde bei der installation eines Programms erst gemäß der "Microsoft-Anleitung"
eine Firewall einstellen soll(kriegt der nie hin).
Ich habe mal Bernhards Methode probiert und
sieheda sie funktioniert sogar um das um einiges schneller.

Aber wo um Himmelswillen muß ich
"DYNAMIC_LINK" einschalten.

m.f.g

jürge

[Bernhard Geyer]

Menu Projekt/Optionen, Reiter "Verzeichnisse/Bedingungen", Abschnitt Bedingungen, Eintrag Definition

[Jürgen Bukoitz]

DANKE