Einzelnen Beitrag anzeigen

Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#11

AW: MS SQL Server mit alternativen Ports nutzen

  Alt 14. Mär 2014, 11:05
Moin moin,

deine Frage zu FireDAC speziell kann ich dir nicht beantworten. Wenn du den SQL-Server-Browser aber selbst abfragen musst, dann kannst du per UDP ein Byte ($02) an den Dienst senden und erhälst die Antwort. Hier ein simples Bsp:
Code:
function RawQueryMSServerBrowser(const PaStrServer: String): String;
var
   Client: TIdUDPClient;
begin
   Client := TIdUDPClient.Create(nil);
   try
      Client.Send(PaStrServer, 1434, #$02);
      Result := Client.ReceiveString(1000);
   finally
      Client.Free;
   end;
end;
Ab dem 4. Byte steht dann wohl ein reiner String in der Antwort. Was genau die ersten 3 Bytes der Antwort aussagen, kann ich dir nicht sagen. Eine Info/Doku/API dazu habe ich leider nicht finden können - ich hatte das einfach nur mal mit gesnifft.

Eventuell hilfts dir ja weiter...
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat