Opendialog
Opendialog
Opendialog VLC mobil uygulama için yerine ne kullana bilirim resim veya excel gibi seçmek için...
Re: Opendialog
(Forma image ve actionlist ekleyin)
Seçme işlemini ne için kullanacaksın bilmiyorum ama resim seçmek için aşağıdaki yolu kullanabilirsin.
procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);
begin
imagecontrol.Bitmap.Assign(Image);
end;
aşağıdaki kodla paylaşabilirsin
procedure TForm1.ShowShareSheetAction1BeforeExecute(Sender: TObject);
begin
ShowShareSheetAction1.Bitmap.Assign(image2.Bitmap);
end;
Ya da istediğin yere kopyalayabilirsin.
Image1.Bitmap.SaveToFile(TPath.GetSharedCameraPath + PathDelim + x.jpg');
TPath.GetDocumentsPath + PathDelim
GetDownloadsPath; - /storage/emulated/0/Android/data/com.myapp.app1/files/Download
GetHomePath; - /data/data/com.myapp.app1/files
GetSharedDocumentsPath; - /storage/emulated/0/Android/data/com.myapp.app1/files
GetLibraryPath; - /data/data/com.myapp.app1/files
GetPublicPath; - /storage/emulated/0/Android/data/com.myapp.app1/files
GetPicturesPath; - /storage/emulated/0/Android/data/com.myapp.app1/files/Pictures
Excel dosyasını seçmek infopower bileşenini kullanabilirsin. Ya da aşağıdaki yolu excele göre düzenleyip deneyeceksin
procedure TForm1.Button1Click(Sender: TObject);
var
TextFile : TStringList;
FileName : string;
begin
try
textFile := TStringList.Create;
try
{$IFDEF ANDROID}//if the operative system is Android
FileName := Format('%smyFile.txt',[GetHomePath]);
{$ENDIF ANDROID}
{$IFDEF WIN32}
FileName := Format('%smyFile.txt',[ExtractFilePath(ParamStr(0))]);
{$ENDIF WIN32}
if FileExists(FileName) then begin
textFile.LoadFromFile(FileName); //load the file in TStringList
showmessage(textfile.Text);//there is the text
end
else begin showMessage('File not exists, Create New File');
TextFile.Text := 'There is a new File (Here the contents)';
TextFile.SaveToFile(FileName);//create a new file from a TStringList
end;
finally
textFile.Free;
end;
except
on E : Exception do ShowMessage('ClassError: '+e.ClassName+#13#13+'Message: '+e.Message);
end;
end;
Saygılarımla;
Seçme işlemini ne için kullanacaksın bilmiyorum ama resim seçmek için aşağıdaki yolu kullanabilirsin.
procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);
begin
imagecontrol.Bitmap.Assign(Image);
end;
aşağıdaki kodla paylaşabilirsin
procedure TForm1.ShowShareSheetAction1BeforeExecute(Sender: TObject);
begin
ShowShareSheetAction1.Bitmap.Assign(image2.Bitmap);
end;
Ya da istediğin yere kopyalayabilirsin.
Image1.Bitmap.SaveToFile(TPath.GetSharedCameraPath + PathDelim + x.jpg');
TPath.GetDocumentsPath + PathDelim
GetDownloadsPath; - /storage/emulated/0/Android/data/com.myapp.app1/files/Download
GetHomePath; - /data/data/com.myapp.app1/files
GetSharedDocumentsPath; - /storage/emulated/0/Android/data/com.myapp.app1/files
GetLibraryPath; - /data/data/com.myapp.app1/files
GetPublicPath; - /storage/emulated/0/Android/data/com.myapp.app1/files
GetPicturesPath; - /storage/emulated/0/Android/data/com.myapp.app1/files/Pictures
Excel dosyasını seçmek infopower bileşenini kullanabilirsin. Ya da aşağıdaki yolu excele göre düzenleyip deneyeceksin
procedure TForm1.Button1Click(Sender: TObject);
var
TextFile : TStringList;
FileName : string;
begin
try
textFile := TStringList.Create;
try
{$IFDEF ANDROID}//if the operative system is Android
FileName := Format('%smyFile.txt',[GetHomePath]);
{$ENDIF ANDROID}
{$IFDEF WIN32}
FileName := Format('%smyFile.txt',[ExtractFilePath(ParamStr(0))]);
{$ENDIF WIN32}
if FileExists(FileName) then begin
textFile.LoadFromFile(FileName); //load the file in TStringList
showmessage(textfile.Text);//there is the text
end
else begin showMessage('File not exists, Create New File');
TextFile.Text := 'There is a new File (Here the contents)';
TextFile.SaveToFile(FileName);//create a new file from a TStringList
end;
finally
textFile.Free;
end;
except
on E : Exception do ShowMessage('ClassError: '+e.ClassName+#13#13+'Message: '+e.Message);
end;
end;
Saygılarımla;
- fesiharslan
- Üye
- Mesajlar: 591
- Kayıt: 20 Eki 2006 11:37
- Konum: Erzurum
- İletişim:
Re: Opendialog
Merhaba;jakarta2 yazdı: Seçme işlemini ne için kullanacaksın bilmiyorum ama resim seçmek için aşağıdaki yolu kullanabilirsin.
@Dogan, Tahminimce VCL uygulamalarda kullanılan ve bir pencere açılmasını sağlayan OpenDialog benzeri bir yapı istiyor.
FMX kütüphanesinde OpenDialog nesnesi yok. Harici yazılım veya uygulamaların birçoğu kendi uygulamalarına özgü diyalog pencereleri geliştirmişlerdir.
En mantıklısı;
Mobil cihaz üzerinde yer alan tüm klasör ve dosyaları listeleyecek bir pencere yapabilirsiniz. (Kullanıcı seçimine göre, seçtiği klasörde yeniden arama ve listeleme yapılabilir.) Oluşturduğunuz bu arama penceresi ( Diyalog penceresi)'nı tüm uygulamalarınız da kullanabilirsiniz.
Bunun için Uses bölümüne IOUtils referansını eklemelisiniz.
Daha önce paket programlar bölümünde paylaştığım bir müzik player uygulaması var. Bu uygulama anladığım mantıkla çalışıyor. Uygulamada, müzik dosyaları bir ListView'e alınmakta (Klasör ve alt klasörler de dahil arama fonksiyonları kullanılmıştır) ve seçilen müzik dosyası çalınmaktadır.
Link:
viewtopic.php?f=12&t=35733&p=192629&hilit=Dosya#p192629
İyi çalışmalar...
Re: Opendialog
Aynı durumdan bende şikayetçiyim aslında android apilerini kullanarak cihazın kendi dosya managerini kullanmaya çalıştım ama bununla ilgili örnek bulamadım. Araştırmalarım sonucu bir arkadaş delphide dosya manager tasarlamış linkini altta paylaştım bu örnek projedeki kodlar yardımcı olacaktır. İyi çalışmalar.
http://www.fmxexpress.com/file-manager- ... r-android/
http://www.fmxexpress.com/file-manager- ... r-android/