ADOConnection Servernamen ermitteln...

[p80286]

Delphi-Quellcode:

procedure TFMain.ServerNamen(const Con: TADOConnection);
var Verbindung: string;
    i: Integer;
    Start: Integer;

begin
  ServerName := '';
  Verbindung := Con.ConnectionString;

  start := Pos('Data Source=', Verbindung);
  start := start+12;

  ServerName := '';

  for i := start to length(verbindung) do {--auch das letzte Zeichen sollte mitgenommen werden!}
  begin
    if Verbindung[i] = ';' then
    begin
      Break;
    end
    else begin
      Servername := Servername + Verbindung[i];
    end;
  end;
end;

Gruß
K-H