RAD Studio XE6 Yardımmm

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
dagger147
Üye
Mesajlar: 1
Kayıt: 16 Eyl 2016 07:28

RAD Studio XE6 Yardımmm

Mesaj gönderen 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
Üye
Mesajlar: 1070
Kayıt: 15 Eki 2006 04:33
Konum: Çorlu

Re: RAD Studio XE6 Yardımmm

Mesaj gönderen 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
Kıdemli Üye
Mesajlar: 1716
Kayıt: 12 Eyl 2015 12:45

Re: RAD Studio XE6 Yardımmm

Mesaj gönderen ertank »

dagger147 yazdı: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.
Cevapla