Merhaba mobilde kullanılan arama motoru haritaların açılmasına izin vermiyor. Attığım kodda ise uygulama içinde anlık sanal bir html web sitesi oluşturup haritaları o html kodunun içinde çalıştırırarak hatayı çözüyoruz.
var MainForm: TCLForm; OpenWebBtn: TclProButton; WebContainerPnl: TclProPanel; MyWebBrowser: TclProWebBrowser; // BUTONA TIKLANINCA ÇALIŞACAK İŞLEM void OnOpenWebClick; var LHtml: String; { WebContainerPnl.Visible = True;
LHtml = 'data:text/html;charset=utf-8,' + '<html>' + '<head><meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no"></head>' + '<body style="margin:0;padding:0;overflow:hidden;">' + '<iframe width="100%" height="100%" frameborder="0" style="border:0" src=" https://maps.google.com/maps?hl=tr&output=embed" rel="nofollow - https://maps.google.com/maps?hl=tr&output=embed" ></iframe>' + '</body>' + '</html>'; MyWebBrowser.Navigate(LHtml); } // ANA KURULUM { MainForm = TCLForm.Create(Self); // -- AÇMA BUTONU -- OpenWebBtn = MainForm.AddNewProButton(MainForm, 'OpenWebBtn', 'Web Sayfasını Aç'); OpenWebBtn.Align = alTop; OpenWebBtn.Height = 50; OpenWebBtn.Margins.Top = 20; OpenWebBtn.Margins.Left = 20; OpenWebBtn.Margins.Right = 20; OpenWebBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#16A64B'); OpenWebBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); OpenWebBtn.clProSettings.TextSettings.Font.Style = [fsBold]; OpenWebBtn.clProSettings.RoundHeight = 10; OpenWebBtn.clProSettings.RoundWidth = 10; OpenWebBtn.SetclProSettings(OpenWebBtn.clProSettings); MainForm.AddNewEvent(OpenWebBtn, tbeOnClick, 'OnOpenWebClick');
WebContainerPnl = MainForm.AddNewProPanel(MainForm, 'WebContainerPnl'); WebContainerPnl.Align = alClient; WebContainerPnl.Margins.Top = 10; WebContainerPnl.Margins.Left = 10; WebContainerPnl.Margins.Right = 10; WebContainerPnl.Margins.Bottom = 10; WebContainerPnl.Visible = False; // Başlangıçta gizli // -- WEB BROWSER -- MyWebBrowser = MainForm.AddNewProWebBrowser(WebContainerPnl, 'MyWebBrowser'); MyWebBrowser.Align = alClient; MainForm.Run; }
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
|