ADOConnection Servernamen ermitteln...

[DeddyH]

Wie schon gesagt: such doch einfach im ConnectionString nach der Zeichenfolge (mit Pos/PosEx). Ab der Position kopierst Du dann.

[p80286]

Nein das mußt Du nicht.
suche einfach nach "Data Source=" und Du hast den Startpunkt für den gesuchten Namen.
Übrigens könnte der Servername ganz am Ende Deines ConnStrings stehen.

Gruß
K-H
edith:
zu spät!!

[Panschi]

Es klappt und es ist mit DeddyHs Idee sogar kürzer und einfacher
Vielen dank

Hier mein Quelltext:

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)-1 do
  begin
    if Verbindung[i] = ';' then
    begin
      Break;
    end
    else begin
      Servername := Servername + Verbindung[i];
    end;
  end;
end;

[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

[Panschi]

aber ein string ist doch nullterminiert, von daher wäre das letzte Zeichen eines 10-Zeichen langen strings das Zeichen mit dem Index 9!

[DeddyH]

Nein, Strings gehen von 1 bis Length. Ich habe da auch noch einen Vorschlag (getippt und nicht getestet):

Delphi-Quellcode:

procedure TFMain.ServerNamen(const Con: TADOConnection);
const
  SUCHSTRING = 'Data Source=';
var Verbindung: string;
    i: Integer;
    Start: Integer;

begin
  Verbindung := Con.ConnectionString;
  ServerName := '';
  
  Start := Pos(SUCHSTRING, Verbindung);
  if Start > 0 then
    begin
      Delete(Verbindung, 1, Start + Length(SUCHSTRING));
      Start := Pos(';', Verbindung);
      if Start > 0 then
        Delete(Verbindung, Start, Length(Verbindung));
      Servername := Verbindung;
    end;  
end;

[Panschi]

Funktionert soweit einwandfrei, jedoch fängt er ein Zeichen weiter an als er soll!

[DeddyH]

Wie meinen? Zeig doch mal das Original und dann das Ergebnis, dann sieht man wohl eher, wo der Fehler liegt.

[Panschi]

das Orginal is "WS-200-02\SQLEXPRESS"
Bei meiner Methode erscheint:"WS-200-02\SQLEXPRESS"
Bei deiner Methode erscheint:"S-200-02\SQLEXPRESS"

[DeddyH]

Dann löschen wir ein Zeichen weniger:
Delete(Verbindung, 1, Start + Length(SUCHSTRING) - 1);