بکارگیری حافظه storage در اندروید

[mahmood]

سلام
سوال: بک image در برنامه داریم ک میخواهیم عکس را از حافظه SD card بخواند و در image نشان دهد. یا محتویات یک memo را در حافظه SD ذخیره کرد

دوستان کمک بفرمایند.

[mkarimpour]

با سلام. با استفاده از کامپوننت ActionList و اکشن
Media Library -> TTakePhotoFromLibraryAction. در ایونت OnDidFinishTaking محتوای عکس در پارامتر Image در دسترس شماست.
معمولا جواب اینگونه سوالات در سایتهای زیر در قالب یک پروژه کوچک موجود است.
fmxfeeds.com
fmxexpress.com
fmxuniversity.com

[mahmood]

در جایی که برنامه نصب شده میشه فایل هایی را ذخیره و یا لود کرد.



procedure TFormMain.save(s: string; index: integer);
var
TextFile: TStringList;
FileName: string;
begin
TextFile := TStringList.Create;
try
FileName := Format('%s/File'+IntToStr(index)+'.txt', [GetHomePath]);
TextFile.Text := s;
TextFile.SaveToFile(FileName);
finally
TextFile.Free;
end;
end;


function TFormMain.load(index: integer): string;
var
TextFile: TStringList;
FileName,ss: string;
begin
TextFile := TStringList.Create;
try
FileName := Format('%s/File'+IntToStr(index)+'.txt', [GetHomePath]);
if FileExists(FileName) then
begin
TextFile.LoadFromFile(FileName);
ss := TextFile.Text
end
else
ShowMessage('File not exists!');
finally
TextFile.Free;
end;
result := ss;
end;

[mahmood]

اگر عکس توی حافضه نوشته شده باشه هم کد زیر



mainFilename := '/storage/sdcard0/gpsPic/sample.png';
if (FileExists(mainFilename))then
begin
Image.Bitmap.LoadFromFile(mainFilename);
end;

البته بسته نوع گوشی کد آدرس تغییر میکنه. گوشی من هواوی بود.

[tajasom]

ممنون از اطلاعات خوبتون