Q&A

  • INI파일에서 값읽어오기
델파이 초보중에 왕 초보입니다..
할려는 마음만 급하고..아는건 없고..답답한 마음에 고수님들의
도움을 청합니다.. 월욜까지 꼭 해가야 하는거라..고수님들의 빠른 답변
부탁드리겠습니다..

ini파일에서 그값들을 읽어오는건데여..
(책을 찾아서 보긴 했지만..잘 이해가 되지 않네여..ㅠ.ㅠ)
ini파일 안에는 아래의 내용들이 있습니다..
SVR_IPADDR=jjlee
SVR_PORT=1077
SVR_DBNAME=FDINET
SVR_DBACCOUNT=fdinet
SVR_DBPASSWD=fdinet
BULLETIN01PATH=.bulletin01data

아래의 내용들은.. 저의 사수가 저에게 준 소스입니다..이걸 응용해서 하면
쉬울거라면서..주긴 했지만..이걸 응용해서 할려고 하니..자꾸 에러만 나구
답답합니다..이번에 어렵게 들어간 자리이니 만큼 열시미 해서 할려구 하는데..잘 안되네여..고수님들!! 도와주십시요~

const Picturepath = 'd:FDIPICTURE';
    SYSTEMINI = 'C:FDINET_STUDIO.INI';

    
    stationset = record
       AREA : String[10];
       STATION_CODE : String[6];
       STATION_NAME : String[50];
       REPRESENTATIVE : String[30];
       PASSWORD : String[10];
       ADDR : String[150];
       IPADDR : String[15];
       PORT : integer;
       TEL : String[20];
       EMAILADDR : String[50];      
    

    sysenvset = record
      SVR_IPADDR : string[20];
      SVR_DBname : string[30];
      SVR_DBaccount : String[10];      
      SVR_DBpasswd : string[10];
      SVR_PORT : integer;
      SERVICE_PORT : longint;
      DB_LOCALPATH : string[255];
      PICTUREPATH : string[255];
      stationinfo : stationset;
  

function get_sysenv : sysenvset;
     var cfgfile : Tinifile;
     begin
        cfgfile := Tinifile.Create(SYSTEMINI);

          result.SVR_IPADDR := cfgfile.readString('SERVER','SVR_IPADDR',DEFAULT_SVRIPADDR);
          result.SVR_DBname := cfgfile.readString('SERVER', 'SVR_DBNAME',DEFAULT_SVRDBNAME);
          result.SVR_DBaccount := cfgfile.readString('SERVER', 'SVR_DBACCOUNT',DEFAULT_SVRACCOUNT);
          result.SVR_DBpasswd := cfgfile.readstring('SERVER', 'SVR_DBPASSWD', DEFAULT_SVRDBPASSWD);
          result.SVR_PORT := cfgfile.readinteger('SERVER', 'SVR_PORT', DEFAULT_SVRPORT);

procedure write_sysenv(systemenvinfo : sysenvset);
     var cfgfile : Tinifile;
     begin

        cfgfile := Tinifile.Create(SYSTEMINI);
        cfgfile.WriteString('SERVER','SVR_IPADDR',systemenvinfo.SVR_IPADDR);
        cfgfile.WriteString('SERVER', 'SVR_DBNAME',systemenvinfo.SVR_DBname);
        cfgfile.writeString('SERVER', 'SVR_DBACCOUNT', systemenvinfo.SVR_DBaccount);
        cfgfile.WriteString('SERVER', 'SVR_DBPASSWD', systemenvinfo.SVR_DBpasswd);
1  COMMENTS
  • Profile
    그냥 2003.01.13 05:40
    코드를 바로 작성하신것이 맞는지 모르겠군요..
    프로시저와 함수에  Begin..end;
    레코드선어부에
    recordname = record
      record : xx
    end;
    시작과 끝이 틀린것같네요...
    이게 아니라면...
    소스를 그대로 올려놓고 틀린곳찾아서
    고쳐주세요하는것과 다름이 없는거 같네요...
    아님 어디서 에러가 나요라던지 그런말을 좀 주시던가요...

    답변은 그냥 조언이라고 생각하시는게 좋을듯...^^
    그럼...

    • 최은하
    • 2003.01.13 18:46
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 하얀까마귀
      2003.01.13 22:06
      안녕하세요 하얀까마귀 입니다. 아마 Indy TCPServer 의 Connect,DisConnect, Execute를 말씀하시는것 ...
    • 한휘
    • 2003.01.13 18:45
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 한휘
      2003.01.13 19:00
      procedure TForm1.Button1Click(Sender: TObject);   var TFS , RTFS1, RTFS2 : TFileStream; ...
    • 윤승환
      2003.01.13 18:10
         재귀(再歸)호출을 말씀하시는 거겠죠? 다시 자신을 호출한다는 뜻이니 함수내에서 자신을 ...
    • 김진호
    • 2003.01.13 03:49
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 그냥
      2003.03.22 23:45
      도움이 되시려는 지는 모르겠습니다만 우연히 소리에 대한 자료를 구하던중 라이브라리가 담긴 압축파일...
    • 작스
    • 2003.01.12 21:38
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 박성훈
      2003.01.18 10:01
      안녕하세요? 전 복잡한거는 모르겠구요. 기냥 쿼리하난 더 붙여서 담 번호 구해오시면 될 것 같은데요.
    • 호롱불
      2003.01.21 20:59
      입력 버튼누르기전의 레코드 카운터를 기억해 두었다가 입력 버튼을 누르면 그 레코드 값에서 + 1 한 값...
    • 이준억
      2003.01.13 02:25
      시퀀스를 이용하는 방법이 있죠. 시퀀스의 메소드 중에 nextval이라는 것이 잇는데 이것은 시퀀스중에서 ...
    • 여시
    • 2003.01.12 13:02
    • 1 COMMENTS
    • /
    • 1 LIKES
    • 그냥
      2003.01.13 05:40
      코드를 바로 작성하신것이 맞는지 모르겠군요.. 프로시저와 함수에  Begin..end; 레코드선어부...
    • 세라핌
      2003.01.15 20:12
      ocx에서 파일을 다운받게 하면 되지 않을까하는데..
    • 이정용
    • 2003.01.11 21:45
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 한만교
      2003.01.12 04:53
      전 델 5.0을 사용하는데 그런 종류의 경고는 나오지 않는군여.. 혹시 TStringList.Create하고 하셨는지?? ...
    • 이정용
      2003.01.13 18:13
      델 7.0을 쓰고 있구요, 사용은 아래와 같이 하였습니다. var   templist : TStringList; be...
    • 이준희
      2003.01.13 18:36
      create 문이 try 블럭 밖에 있어야 합니다. templist := TStringList.Create(); try finally  ...
    • 이정용
      2003.01.13 20:44
      답변해주셔서 감사합니다. 다시 컴파일 해보니 [경고]가 사라졌습니다. "이렇게 사용하는거구나~..."하고 ...
    • 엄화용
    • 2003.01.11 16:01
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 열심히
      2003.01.13 09:34
      일단 님 쿼리를 이런식으로 바꾸시는게 낫겠네요.. SELECT  A."ITEM_CODE", min(D."ITEM_NAME...
    • 박상윤
      2003.02.06 02:30
      winapi에는 그런 함수는 없습니다. FFT 를사용하시여 주파수를 분리 해서 사용하시거나 믹서 컴포를 사용...
    • 박성훈
      2003.01.11 22:56
      안녕하세요? 그런 옵션이 있는지는 정확이 모르겠습니다. 다만, 어플리케이션 차원에서 전역적으로 ...
    • 구창민
      2003.01.11 03:38
      안녕하세요~ 구창민입니다. OnChange 이벤트를 이용하시면 되겠군여.. 아래처럼 한번 해보세요.. ...
    • 한원희
      2003.01.12 09:41
      안녕하세요. 한원희입니다. TDatabase로 연결할 때, 파라미터 정보중에 Blob Size와 Blob Cache 값을 높...
    • 조승기
      2003.01.16 03:32
      안녕하세요. 조승깁니다. 음... 말씀하신 방법은 이미 시도를 해 봤습니다. 그런데 MySQL에서는 안되더군...
    • 박정훈
      2003.08.05 23:05
      안녕하세요. 좀 오래된 글이지만 혹시 다음에 어느분이라도 필요하실지 몰라 답글 올립니다. 저 역시 ...
    • 이명석
      2007.04.11 06:30
      정리하자면... 1. mysql 설정 : max_allowed_packet 값 설정 2. bde 설정 : bde admin(blob size,cache) ...
    • KDDG_sonic0
    • 2003.01.11 01:53
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      2003.01.11 03:28
      영민님 저 구창민입니다. 길드에 관련글들 올려두었어여.. 달려가보세여. 건투를 빌어여~~
    • 왕초보
    • 2003.01.11 01:06
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 홍성락
      2003.01.30 01:03
      일단 마우스 다운에서 컨트롤키를 인식시켜 멀티선택게함니다 또한 다른 컴포실행시엔 컨트롤 키를 해제...
    • 장석윤
      2003.02.04 21:46
      홍성락님 답변 감사드립니다. 더블클릭속도를 빠르게 설정해둔경우 문제가 되긴하지만.. ^^;; 작동 ...
    • 한원희
      2003.01.12 09:47
      안녕하세요. 한원희입니다. 도움이 될지는 모르겠지만, 윈도우즈 API 중에 키보드의 상태를 설정하는 Se...
    • 장석윤
      2003.01.13 21:30
      질문의 요지를 잘못이해하신듯하군요. pKeyboardState^[VK_Contro] := $80을 알고싶은게 아니라.. OnMo...