listener.ora içerisindeki host eşitliğini delphi ile belirle

[Delhici]

Merhabalar

Oracle veritabanında listener.ora içeriğindeki host eşitliğindeki bilgisayar adını otomatik olarak nasıl değiştirebiliriz. listener.ora içeriği aşağıdaki gibidir.

Kod: Tümünü seç

SID_LIST_LISTENER =
  (SID_LIST =
    (SID_DESC =
      (SID_NAME = PLSExtProc)
      (ORACLE_HOME = oraclhome)
      (PROGRAM = extproc)
    )
    (SID_DESC =
      (SID_NAME = CLRExtProc)
      (ORACLE_HOME = oraclehome)
      (PROGRAM = extproc)
    )
  )

LISTENER =
  (DESCRIPTION_LIST =
    (DESCRIPTION =
      (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1))
      (ADDRESS = (PROTOCOL = TCP)(HOST = 

bilgisayardı)(PORT = 1521))
    )
  )

DEFAULT_SERVICE_LISTENER = (ssid)

[mehmetantalya]

Kod: Tümünü seç

StringReplace

ile host gordugun yere istedigin bir degeri attirabilirsin.

[Delhici]

amacım host yazısını değiştirmek değil bilgisayaradını değiştirmek.. Cevap için teşekkür ederim.

[xxxjedixxx]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    Str: TStrings;
    NHost: string;
begin
  NHost := 'New_Host';

  Str := TStringList.Create;
  Str.LoadFromFile('C:\...\listener.ora');
  for i := 0 to Str.Count - 1 do
  if Pos('(ADDRESS = (PROTOCOL = TCP)(HOST =', Str[i]) > 0 then
  begin
    Str[i] := '      (ADDRESS = (PROTOCOL = TCP)(HOST = ' + NHost + ')(PORT = 1521))';
    Str.SaveToFile('C:\...\listener.ora');
    break;
  end;
  Str.Free;
end;

[Delhici]

cok tsk ederim. isime yaradi. ellerine saglik.