델파이 초보중에 왕 초보입니다..
할려는 마음만 급하고..아는건 없고..답답한 마음에 고수님들의
도움을 청합니다.. 월욜까지 꼭 해가야 하는거라..고수님들의 빠른 답변
부탁드리겠습니다..
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);
프로시저와 함수에 Begin..end;
레코드선어부에
recordname = record
record : xx
end;
시작과 끝이 틀린것같네요...
이게 아니라면...
소스를 그대로 올려놓고 틀린곳찾아서
고쳐주세요하는것과 다름이 없는거 같네요...
아님 어디서 에러가 나요라던지 그런말을 좀 주시던가요...
답변은 그냥 조언이라고 생각하시는게 좋을듯...^^
그럼...