RAD Studio XE6 Yardımmm

[dagger147]

Arkadaşlar Proje Yapıyorum Telefon İçin Ama Daha Yeniyim İşin İçinden Çıkamadım

Button Koydum BEn Butona Tıklayınca Yazdığım Link'e Gitmesini İstiyorum Örnegğin:

button 1 tıklayınca google açılsın telefondan veya youtube gibisinden

yardımlarınız İçin şimdiden tesekkürler

[Lord_Ares]

Sanırım delphiyle ilk tanışma aşamalarındasın, bu yüzden tavsiyem başlangıç konularına göz atıp (kodlama yapısı, değişkenler , bileşenler nedir) incelemelisin. Yapmak istediğin şeye gelirsek bir webbrowser , bir button ekleyip buttonun onclick eventına webbrowser1.navigate ( ' http://www.google.com' ) şeklinde yazmalısın. Kolay gelsin

[ertank]

Arkadaşlar Proje Yapıyorum Telefon İçin Ama Daha Yeniyim İşin İçinden Çıkamadım

Button Koydum BEn Butona Tıklayınca Yazdığım Link'e Gitmesini İstiyorum Örnegğin:

button 1 tıklayınca google açılsın telefondan veya youtube gibisinden

yardımlarınız İçin şimdiden tesekkürler

Merhaba,

Telefon için hazırlanan projeler FMX framework ile yazılır.

Telefonun işletim sistemine göre standart browser'a link açtırma işlemi değişiyor. Aşağıda Windows 32bit ve 64bit, OSX üzerinde çalıştığı teyit edilmiş örnek kod var.
Kaynak: http://stackoverflow.com/questions/7443 ... form-appli

Buton tıklamasına gelmeden önce form içinde bazı düzenlemeler yapılması gerekli. USES kısmına aşağıdakileri eklemek gerekiyor.

Kod: Tümünü seç

uses
{$IFDEF MSWINDOWS}
  Winapi.ShellAPI, Winapi.Windows;
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
  Posix.Stdlib;
{$ENDIF POSIX}

İlk type yazan yerin üzerine (bu ilk type ifadesinin dışında kalacak şekilde) aşağıdakileri eklemek gerekiyor.

Kod: Tümünü seç

type
  TMisc = class
    class procedure Open(sCommand: string);
  end;

implementation yazan satırın altında uygun bir yere (tavsiye olarak hemen altına) aşağıdakileri eklemek gerekiyor.

Kod: Tümünü seç

class procedure TMisc.Open(sCommand: string);
begin
{$IFDEF MSWINDOWS}
  ShellExecute(0, 'OPEN', PChar(sCommand), '', '', SW_SHOWNORMAL);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
  _system(PAnsiChar('open ' + AnsiString(sCommand)));
{$ENDIF POSIX}
end;

Bunları yaptıktan sonra buton tıklama altına aşağıdaki gib bir kod yazıp test edebilirsiniz.

Kod: Tümünü seç

TMisc.Open('http://stackoverflow.com/questions/7443264/how-to-open-an-url-with-the-default-browser-with-firemonkey-cross-platform-applic');

Test platformunu ve sonucunu bildirebilirseniz seviniriz.