initfile로 데이터베이스 열기

Question

IniFile을 사용하여 로컬 또는 원격 데이터베이스를 여는 방법. 다음과 같습니다.

vBanco : String; 
    IniFileName : TIniFile; 
begin 
    IniFileName := TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName); 
    Try 
     if FileExists (remote+'db\ado.mdb') then 
     begin 

       vBanco := Trim(IniFileName.ReadString('acesso','BancoRemto','')); 
       Dirlocal := Trim(IniFileName.ReadString('acesso','PastasRemto','')); 
       frmPrincipal.Edit1.text := Dirlocal; 
       Dirtrabalho := (ExtractFilePath(Application.ExeName)); 

       Conection.ConnectionString := vBanco; 
     end 
     else 
     begin 
      Try 
       vBanco := Trim(IniFileName.ReadString('acesso','banco','')); 
       Dirlocal := Trim(IniFileName.ReadString('acesso','PastasLocais','')); 
       frmPrincipal.Edit1.text := Dirlocal; 
       Dirtrabalho := (ExtractFilePath(Application.ExeName)); 
      Finally 
      end; 
     end; 
    Finally 
     IniFileName.Free; 
    end; 
end; 

Answer 1

문제가 발생하면 올바른 코드가있는 것 같습니다. INI 연결 문자열의 값이 올바른지 확인하십시오. 유효한 연결 문자열을 얻는 좋은 방법은 디자인 타임에 연결을 설정 한 다음 복사하여 구성 파일에 붙여 넣는 것입니다.

Answer 2

FileExists에 문제가있는 경우 다음과 같이 추적합니다.

는 if FileExists 줄에 중단 점을 넣습니다. 디버거가 깨지면 CTRL-F7을 누르면 Evaluate/Modify 대화 상자가 나타납니다. 입력란에 remote+'db\ado.mdb'을 입력하고 입력 내용을 확인하십시오. 그것은 아마도 당신에게 나쁜 파일 이름을 줄 것입니다. remote 백 슬래시로 끝나지 않는 경우

예를 들어, 그것은 잘못된 경로를 얻을 것입니다. 이 문제는 IncludeTrailingPathDelimiter 함수를 사용하여 수정할 수 있습니다. 코드를 더 이상 보지 않아도 되기는 어려울 지 모르지만 내 경험에 따르면 그럴 것입니다.

Answer 3

내 실수를 발견했습니다. 글로벌 변수 remote에 기반한 디렉토리에서 "ado.mdb"라는 파일의 존재 여부를 확인하는 대신 INI에서 읽은 값에 의해 결정된 디렉토리에서 "base_dados.mdb"라는 파일을 찾아야했습니다 파일.

procedure TfrmDados.ConectionBeforeConnect(Sender: TObject); 
const 
    FileName = 'config.ini'; 
var 
    vBanco : String; 
    IniFileName : TIniFile; 
    LBasedados : String; 
begin 
    IniFileName := TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName); 

    vBanco := Trim(IniFileName.ReadString('acesso','BDtrabalho','')); 
    Dirlocal := Trim(IniFileName.ReadString('acesso','Pastrabalho','')); 
    LBasedados := Dirlocal+'db\base_dados.mdb'; 
    frmPrincipal.Edit1.text := Dirlocal; 
    Dirtrabalho := (ExtractFilePath(Application.ExeName)); 
    if FileExists(LBasedados) then 
    Conection.ConnectionString := vBanco 
    else 
    begin 
    Application.MessageBox('Bade dados do servidor não encontrada vai trabalhar neste Computador!','Ligação Remota FALHOU'); 
    vBanco := Trim(IniFileName.ReadString('acesso','BD_local','')); 
    Dirlocal := Trim(IniFileName.ReadString('acesso','Pasta_local','')); 
    frmPrincipal.Edit1.text := Dirlocal; 
    Dirtrabalho := (ExtractFilePath(Application.ExeName)); 
    Conection.ConnectionString := vBanco; 
    end; 

    IniFileName.Free; 
end;