Yorumları: 22
Konuları: 7
Kayıt Tarihi: 08-03-2022
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.4
- Delphi XE Serisi
Rep Puanı: 49 Başlangıç
Merhaba;
Geliştirmekte olduğum uygulamada iletişim bilgileri formuna bir harita ekleyip şirketin konumunun göstermek ve yol tarifi butonuna basınca da şirketin konumuna kullanıcının yol tarifi alması için haritalara yada yandexe göndermek istemekteyim. Aynı whatsapda paylaşılan konuma tıklayınca konuma gitmek için yandexin açıldığı gibi. Forumda arama yaptım ama benzer bir yapı bulamadım.
Konu hakkında fikri olan yada örnek bir yapı iletebilecek arkadaşlara şimdiden teşekkürler.
Yorumları: 1.516
Konuları: 83
Kayıt Tarihi: 20-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.3
- Delphi 10.2
- Delphi 7
- Lazarus / FPC
Rep Puanı: 4.275 Uzman
// Bilgi paylaştıkça çoğalır..
Yorumları: 22
Konuları: 7
Kayıt Tarihi: 08-03-2022
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.4
- Delphi XE Serisi
Rep Puanı: 49 Başlangıç
(20-11-2022, Saat: 00:17)mcuyan Adlı Kullanıcıdan Alıntı: Daha önceden kullandığım bı procedur..
https://stackoverflow.com/questions/2387...-firemonke
Teşekkür ederim. Kodları inceledim ancak kordinatları hangi function ile göndereceğimi çözemedim ? kusura bakmayın belkide çok basttir ancak haritalar konusunda hiç bir fikrim yok size zahmet birde nasıl kullanacağımı hangi fonksiyonu nasıl çağıracağımıda paylaşırsanız sevinirim kolay gelsin.
Yorumları: 1.516
Konuları: 83
Kayıt Tarihi: 20-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.3
- Delphi 10.2
- Delphi 7
- Lazarus / FPC
Rep Puanı: 4.275 Uzman
20-11-2022, Saat: 16:58
(Son Düzenleme: 20-11-2022, Saat: 17:01, Düzenleyen: mcuyan.)
Ksuruaa bakmayın şehir dışındaydım anca bilgiayar başına geçebildim. Size kendi yazdığım open map kodlarını yolluyayım. IOS ve android de test edildi çalışıyor.
En üstte public kısmında ;
var
mapCenter: TMapCoordinate;
//bu kısmında map açılsın dediğiniz butonun click kısmına yazın. mapcenter.Latitude:=açmak istediğiniz adresin lat değeri; mapcenter.Longitude:=açmak istediğiniz adresin long değeri; vermeniz gerekiyor
var
a: string;
{$IFDEF ANDROID}
Intent: JIntent;
{$ENDIF ANDROID}
{$IFDEF IOS}
NSU: NSUrl;
{$ENDIF IOS}
begin
mapCenter.Latitude:= lat koordinatı;
mapCenter.Longitude:= long koordinatı;
{$IFDEF ANDROID}
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setData(StrToJURI('https://maps.google.com/?q=' + stringreplace(floattostr(mapCenter.Latitude), ',', '.', [rfReplaceAll]) + ',' + stringreplace(floattostr(mapCenter.Longitude), ',', '.', [rfReplaceAll])));
TAndroidHelper.Activity.startActivity(Intent);
{$ENDIF ANDROID}
{$IFDEF IOS}
NSU := StrToNSUrl(TIdURI.URLEncode('https://maps.google.com/?q=' + stringreplace(floattostr(mapCenter.Latitude), ',', '.', [rfReplaceAll]) + ',' + stringreplace(floattostr(mapCenter.Longitude), ',', '.', [rfReplaceAll])));
if SharedApplication.canOpenURL(NSU) then
begin
SharedApplication.openUrl(NSU);
end;
{$ENDIF IOS}
end;
// Bilgi paylaştıkça çoğalır..
Yorumları: 22
Konuları: 7
Kayıt Tarihi: 08-03-2022
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.4
- Delphi XE Serisi
Rep Puanı: 49 Başlangıç
(20-11-2022, Saat: 16:58)mcuyan Adlı Kullanıcıdan Alıntı: Ksuruaa bakmayın şehir dışındaydım anca bilgiayar başına geçebildim. Size kendi yazdığım open map kodlarını yolluyayım. IOS ve android de test edildi çalışıyor.
En üstte public kısmında ;
var
mapCenter: TMapCoordinate;
//bu kısmında map açılsın dediğiniz butonun click kısmına yazın. mapcenter.Latitude:=açmak istediğiniz adresin lat değeri; mapcenter.Longitude:=açmak istediğiniz adresin long değeri; vermeniz gerekiyor
var
a: string;
{$IFDEF ANDROID}
Intent: JIntent;
{$ENDIF ANDROID}
{$IFDEF IOS}
NSU: NSUrl;
{$ENDIF IOS}
begin
mapCenter.Latitude:= lat koordinatı;
mapCenter.Longitude:= long koordinatı;
{$IFDEF ANDROID}
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setData(StrToJURI('https://maps.google.com/?q=' + stringreplace(floattostr(mapCenter.Latitude), ',', '.', [rfReplaceAll]) + ',' + stringreplace(floattostr(mapCenter.Longitude), ',', '.', [rfReplaceAll])));
TAndroidHelper.Activity.startActivity(Intent);
{$ENDIF ANDROID}
{$IFDEF IOS}
NSU := StrToNSUrl(TIdURI.URLEncode('https://maps.google.com/?q=' + stringreplace(floattostr(mapCenter.Latitude), ',', '.', [rfReplaceAll]) + ',' + stringreplace(floattostr(mapCenter.Longitude), ',', '.', [rfReplaceAll])));
if SharedApplication.canOpenURL(NSU) then
begin
SharedApplication.openUrl(NSU);
end;
{$ENDIF IOS}
end;
Çok teşekkür ederim nokta atış olmuş. Emeğinize sağlık kolay gelsin..
Yorumları: 1.516
Konuları: 83
Kayıt Tarihi: 20-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.3
- Delphi 10.2
- Delphi 7
- Lazarus / FPC
Rep Puanı: 4.275 Uzman
Google aleminde arama sonrası bu kodları bulup kullanicilar oldukça daha bı şevkleniyor insan. Eminim dünyanın bir çok dilinde insanlar arama yaparken sizi kod başlığınıž ve bu kod parçacıkları ile işlerini çözecekler.
Bilgi paylaştıkca çoğalır.
// Bilgi paylaştıkça çoğalır..
Yorumları: 22
Konuları: 7
Kayıt Tarihi: 08-03-2022
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.4
- Delphi XE Serisi
Rep Puanı: 49 Başlangıç
(20-11-2022, Saat: 16:58)mcuyan Adlı Kullanıcıdan Alıntı: Ksuruaa bakmayın şehir dışındaydım anca bilgiayar başına geçebildim. Size kendi yazdığım open map kodlarını yolluyayım. IOS ve android de test edildi çalışıyor.
En üstte public kısmında ;
var
mapCenter: TMapCoordinate;
//bu kısmında map açılsın dediğiniz butonun click kısmına yazın. mapcenter.Latitude:=açmak istediğiniz adresin lat değeri; mapcenter.Longitude:=açmak istediğiniz adresin long değeri; vermeniz gerekiyor
var
a: string;
{$IFDEF ANDROID}
Intent: JIntent;
{$ENDIF ANDROID}
{$IFDEF IOS}
NSU: NSUrl;
{$ENDIF IOS}
begin
mapCenter.Latitude:= lat koordinatı;
mapCenter.Longitude:= long koordinatı;
{$IFDEF ANDROID}
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setData(StrToJURI('https://maps.google.com/?q=' + stringreplace(floattostr(mapCenter.Latitude), ',', '.', [rfReplaceAll]) + ',' + stringreplace(floattostr(mapCenter.Longitude), ',', '.', [rfReplaceAll])));
TAndroidHelper.Activity.startActivity(Intent);
{$ENDIF ANDROID}
{$IFDEF IOS}
NSU := StrToNSUrl(TIdURI.URLEncode('https://maps.google.com/?q=' + stringreplace(floattostr(mapCenter.Latitude), ',', '.', [rfReplaceAll]) + ',' + stringreplace(floattostr(mapCenter.Longitude), ',', '.', [rfReplaceAll])));
if SharedApplication.canOpenURL(NSU) then
begin
SharedApplication.openUrl(NSU);
end;
{$ENDIF IOS}
end;
Merhaba kod android platformunda sorunsuz çalıştı ancak ios iphone cihaz için derlemeye çalıştığımda NSU: NSUrl; bulunamadı hatası veriyor bunun için bir uses falan eklemem mi gerekiyor ?
Yorumları: 1.516
Konuları: 83
Kayıt Tarihi: 20-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.3
- Delphi 10.2
- Delphi 7
- Lazarus / FPC
Rep Puanı: 4.275 Uzman
11-05-2023, Saat: 17:00
(Son Düzenleme: 11-05-2023, Saat: 17:03, Düzenleyen: mcuyan.)
You can find SharedApplication and openURL in iOSapi.UIKit, you will also need iOSapi.foundation, Macapi.Helpers
And to use it, you will need a SharedApplication Object and a NSURL object that contains the address you would like to navigate to
object that contains the address you would like to navigate to
https://stackoverflow.com/questions/35065089/delphi-10-openurl-on-ios
yani üstteki uses kısmına:
{$IFDEF IOS}
, iOSapi.Foundation, FMX.Helpers.iOS, Macapi.Helpers;
{$ELSE};
Eklemniz gerkeiyor
// Bilgi paylaştıkça çoğalır..
Yorumları: 22
Konuları: 7
Kayıt Tarihi: 08-03-2022
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.4
- Delphi XE Serisi
Rep Puanı: 49 Başlangıç
(11-05-2023, Saat: 17:00)mcuyan Adlı Kullanıcıdan Alıntı: You can find SharedApplication and openURL in iOSapi.UIKit, you will also need iOSapi.foundation, Macapi.Helpers
And to use it, you will need a SharedApplication Object and a NSURL object that contains the address you would like to navigate to
object that contains the address you would like to navigate to
https://stackoverflow.com/questions/35065089/delphi-10-openurl-on-ios
yani üstteki uses kısmına:
{$IFDEF IOS}
, iOSapi.Foundation, FMX.Helpers.iOS, Macapi.Helpers;
{$ELSE};
Eklemniz gerkeiyor
Tamamdır vakit ayırıp ilgilendiğin için teşekkür ederim.
Yorumları: 1.516
Konuları: 83
Kayıt Tarihi: 20-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.3
- Delphi 10.2
- Delphi 7
- Lazarus / FPC
Rep Puanı: 4.275 Uzman
Rca ederim kolay gelsin..
// Bilgi paylaştıkça çoğalır..
|