자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey Ios에서는 파일 다운로드가 안되나요?
2016.11.03 09:52
* 사용 개발툴 버전 : 베를린
* 테스트 단말기 모델명 : 아이폰7
* 테스트 단말기 O/S 버전 : iOS 10.1
* 질문 내용 :
안드로이드 노트7을 사용하다가 아이폰7으로 바꿨습니다.
외근시 휴대폰으로 서버에 있는 업무용 데이터베이스 조작과 데이타백업용으로 개발,사용하였는데
ios에서는 데이타백업용 파일이 다운로드가 안되네요.
Tpath.GetDocumentsPath로 ini file은 read/write가 잘 되고 다운로드의 위치는 제대로 설정이 되었는데 ...
-------------------------------------------------------------------------------
IdFTP1.Disconnect;
file_Name := 'XXX.XXX.XXX.XXX_' + FormatDateTime('YYYYMMDD',Date) + '_DB.tar.gz';
file_Name_MM := Backup_Time + '_' + 'XXX.XXX' + '.tar.gz';
Label_Info.fontColor := TAlphaColors.blue;
Label_Info.Text := 'Backup file DOWNLOADING';
//---------------- DownRoad ----------------------------------------------------
Label40.Text := Comma_make(IdFTP1.Size(file_Name)) + ' Byte';
ProgressBar1.Max := IdFTP1.Size(file_Name);
try
if IdFTP1.Connected then IdFTP1.GetTPath.GetDocumentsPath + PathDelim + 'files/' + file_Name_MM,True);
Except;
IdFTP1.Disconnect;
DB_Down_IS := False;
Label_Info.fontColor := TAlphaColors.Red;
Label_Info.Text := 'XXX.XXX.XXX.XXX DOWN ERROR';
abort;
end;
//-------------------------------------------------------------------------------
if DB_Down_IS = True then
Begin
IdFTP1.Disconnect;
Label_Info.fontColor := TAlphaColors.Blue;
Label_Info.Text := 'XXX.XXX.XXX.XXX DOWN OK';
Mediaplayer1.FileName := TPath.GetDocumentsPath + PathDelim + 'files/aaa.mp3';
Mediaplayer1.Play;
End;
//------------------------------------------------------------------------------
앱이 뻗어버리거나 Create 할 수 없다는 메세지가 나옵니다.
방법이 없을까요?
Firemonkey Ios에서는 파일 다운로드가 안되나요?
2016.11.03 09:52
* 사용 개발툴 버전 : 베를린
* 테스트 단말기 모델명 : 아이폰7
* 테스트 단말기 O/S 버전 : iOS 10.1
* 질문 내용 :
안드로이드 노트7을 사용하다가 아이폰7으로 바꿨습니다.
외근시 휴대폰으로 서버에 있는 업무용 데이터베이스 조작과 데이타백업용으로 개발,사용하였는데
ios에서는 데이타백업용 파일이 다운로드가 안되네요.
Tpath.GetDocumentsPath로 ini file은 read/write가 잘 되고 다운로드의 위치는 제대로 설정이 되었는데 ...
-------------------------------------------------------------------------------
IdFTP1.Disconnect;
file_Name := 'XXX.XXX.XXX.XXX_' + FormatDateTime('YYYYMMDD',Date) + '_DB.tar.gz';
file_Name_MM := Backup_Time + '_' + 'XXX.XXX' + '.tar.gz';
Label_Info.fontColor := TAlphaColors.blue;
Label_Info.Text := 'Backup file DOWNLOADING';
//---------------- DownRoad ----------------------------------------------------
Label40.Text := Comma_make(IdFTP1.Size(file_Name)) + ' Byte';
ProgressBar1.Max := IdFTP1.Size(file_Name);
try
if IdFTP1.Connected then IdFTP1.GetTPath.GetDocumentsPath + PathDelim + 'files/' + file_Name_MM,True);
Except;
IdFTP1.Disconnect;
DB_Down_IS := False;
Label_Info.fontColor := TAlphaColors.Red;
Label_Info.Text := 'XXX.XXX.XXX.XXX DOWN ERROR';
abort;
end;
//-------------------------------------------------------------------------------
if DB_Down_IS = True then
Begin
IdFTP1.Disconnect;
Label_Info.fontColor := TAlphaColors.Blue;
Label_Info.Text := 'XXX.XXX.XXX.XXX DOWN OK';
Mediaplayer1.FileName := TPath.GetDocumentsPath + PathDelim + 'files/aaa.mp3';
Mediaplayer1.Play;
End;
//------------------------------------------------------------------------------
앱이 뻗어버리거나 Create 할 수 없다는 메세지가 나옵니다.
방법이 없을까요?
FTP는 제가 안해봐서 잘 모르겠는데요.
HTTP를 이용해서 다운로드 하는 내용은 다음 링크를 참고하실 수 있습니다.
http://tech.devgear.co.kr/delphi_news/344499