자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey seatle에서 android ini 파일 생성?
2015.12.04 14:02
안녕하세요.
seatle에서 android ini 파일 생성이 안되어 문의합니다.
sPath := TPath.Combine(TPath.GetDocumentsPath, 'Env.ini');
iFile := TIniFile.Create(sPath);
try
iFile.WriteString('ENV' ,'User', '123');
finally
iFile.DisposeOf;
end;
감사합니다.
수고하세요.
댓글 5
-
-
열심히*^^*
2015.12.04 14:51
아~ 미안합니다.
PC에서는 되는데.
안드로이드 Tablet (버젼:4.4.4) 과 폰 (버전 5.1.1)에서는 안됩니다.
-
제가 폰에서도 확인했습니다..
혹시 폰에서 메시지가 공백으로 뜨나요?
ShowMessage(iFile.ReadString('Env', 'User', ''));
-
열심히*^^*
2015.12.04 15:22
답변 감사합니다.
파일 자체가 생성이 안됩니다.
예 공백으로 표시됩니다.
수고하세요.
-
희한한 일이네요. 전혀 문제가 되지 않는 코드인데요.
파일 생성이 안되는 건 어떻게 판단하셨나요?
혹시 모르니 권한(Project > Options > Uses permissions)에서 Write external storage 가 선택되어 있는지 확인해 보시기 바랍니다.
그리고 쓸때의 경로와 읽을때의 경로를 메시지 등으로 표시해 비교해보시기 바랍니다.
마지막으로는 프로젝트를 새로 만들어 다시 시도해 보세요.
분명 이상이 없는 기능이기 때문에 프로젝트 옵션 또는 소스 작성시의 실수등이 원인일 것같습니다.
한번 차근차근 검토해 보시기 바랍니다.(제가 더이상 도와드릴 수 있는게 없네요.^^)
Firemonkey seatle에서 android ini 파일 생성?
2015.12.04 14:02
안녕하세요.
seatle에서 android ini 파일 생성이 안되어 문의합니다.
sPath := TPath.Combine(TPath.GetDocumentsPath, 'Env.ini');
iFile := TIniFile.Create(sPath);
try
iFile.WriteString('ENV' ,'User', '123');
finally
iFile.DisposeOf;
end;
감사합니다.
수고하세요.
댓글 5
-
열심히*^^*
2015.12.04 14:51
아~ 미안합니다.
PC에서는 되는데.
안드로이드 Tablet (버젼:4.4.4) 과 폰 (버전 5.1.1)에서는 안됩니다.
-
제가 폰에서도 확인했습니다..
혹시 폰에서 메시지가 공백으로 뜨나요?
ShowMessage(iFile.ReadString('Env', 'User', ''));
-
열심히*^^*
2015.12.04 15:22
답변 감사합니다.
파일 자체가 생성이 안됩니다.
예 공백으로 표시됩니다.
수고하세요.
-
희한한 일이네요. 전혀 문제가 되지 않는 코드인데요.
파일 생성이 안되는 건 어떻게 판단하셨나요?
혹시 모르니 권한(Project > Options > Uses permissions)에서 Write external storage 가 선택되어 있는지 확인해 보시기 바랍니다.
그리고 쓸때의 경로와 읽을때의 경로를 메시지 등으로 표시해 비교해보시기 바랍니다.
마지막으로는 프로젝트를 새로 만들어 다시 시도해 보세요.
분명 이상이 없는 기능이기 때문에 프로젝트 옵션 또는 소스 작성시의 실수등이 원인일 것같습니다.
한번 차근차근 검토해 보시기 바랍니다.(제가 더이상 도와드릴 수 있는게 없네요.^^)
다음과 같은 코드로 정상 동작을 확인했습니다.
원하시는 내용이 아니라면 좀 더 구체적으로 질문주세요.
uses
System.IOUtils, System.IniFiles;
{$R *.fmx}
procedure TForm3.Button1Click(Sender: TObject);
var
sPath: string;
iFile: TIniFile;
begin
sPath := TPath.Combine(TPath.GetDocumentsPath, 'Env.ini');
iFile := TIniFile.Create(sPath);
try
iFile.WriteString('ENV' ,'User', '123');
finally
iFile.DisposeOf;
end;
end;
procedure TForm3.Button2Click(Sender: TObject);
var
sPath: string;
iFile: TIniFile;
begin
sPath := TPath.Combine(TPath.GetDocumentsPath, 'Env.ini');
iFile := TIniFile.Create(sPath);
try
ShowMessage(iFile.ReadString('Env', 'User', ''));
finally
iFile.DisposeOf;
end;
end;