unigui mobil/masaüstü yönlendirme

[masteryoda]

Merhaba,

unigui ile bir proje hazırladım diyelim bunu bir internet sitesinde göstereceğim hem masüstünde hemde mobilde ekran tasarımları için iki ayrı projemi yapmam gerekiyor?
iki ayrı proje yaptım diyelim kullanıcı sayfaya girdiğinde masaüstümü mobilmi duruma göre yönlendirmesini nasıl yapabilirim?

[pro_imaj]

(06-02-2017, Saat: 16:12)masteryoda Adlı Kullanıcıdan Alıntı: Merhaba,

unigui ile bir proje hazırladım diyelim bunu bir internet sitesinde göstereceğim hem masüstünde hemde mobilde ekran tasarımları için iki ayrı projemi yapmam gerekiyor?
iki ayrı proje yaptım diyelim kullanıcı sayfaya girdiğinde masaüstümü mobilmi duruma göre yönlendirmesini nasıl yapabilirim?

Merhaba;
S1-unigui ile bir proje hazırladım diyelim bunu bir internet sitesinde göstereceğim hem masüstünde hemde mobilde ekran tasarımları için iki ayrı projemi yapmam gerekiyor?
C1-Evet 2 ayrı proje yapmalısınız.

Unigui tarafında proje olarak;
Application Wizard = Normal Web uygulaması
Mobile Aplication   = Mobil (HTML5) proje oluşturarak yapabilirsiniz.

S2-iki ayrı proje yaptım diyelim kullanıcı sayfaya girdiğinde masaüstümü mobilmi duruma göre yönlendirmesini nasıl yapabilirim?
C2-Aşağıdaki gibi işletim sistemi bilgisinden hareketle ilgili projeye yönlendirme yapabilirsiniz.

[Ars=delphi]var
 C : TUniClientInfoRec;
begin
C:=UniApplication.ClientInfoRec;
UniLabel.Caption:=C.OSType;
end;[/ars]

Siz projeye başlayın, takıldığınız yerde hemen devreye gireriz. 


İyi çalışmalar.

[masteryoda]

Demosunda gördüm çalıştırdığımda ki sonuçlar.
Bilgisayardan çalıştırdığımda

Mobil Mozilla


Mobil Chrome

Mobil Dolphine

ubuntu desktop

Mobil mozilla da işletim sistemini görmedi ayrıca google chromeda ip adresi de diğerlerinden farklı çıktı acaba ekran çözünürlüğü alsak daha mı mantıklı?

[pro_imaj]

Aşağıdaki script işinizi görecektir.

MainForm=>Script içine kodu eklemeniz yeterli.

[Ars=js]<script type="text/javascript"> // <![CDATA[
  if ((navigator.userAgent.match(/iPhone/i)) || (navigator.userAgent.match(/iPod/i)) || (navigator.userAgent.match(/Android/i)) || (navigator.userAgent.match(/android/i)))  {
       location.replace("http://mobilip/m")}
  else {
       location.replace("http://webip:8077")    
   } // ]]>
</script>[/ars]

[masteryoda]

Bu işimi gördü.

var
IsPhone:Boolean;
begin
IsPhone:=(upPhone in UniSession.UniPlatform);
if IsPhone then
 begin
   ShowMessage('Telefon');
   // tel url git
 end
 else
 ShowMessage('PC');
end;

[yhackup]

(06-02-2017, Saat: 22:19)pro_imaj Adlı Kullanıcıdan Alıntı: [Ars=delphi]var
 C : TUniClientInfoRec;
begin
C:=UniApplication.ClientInfoRec;
UniLabel.Caption:=C.OSType;
end;[/ars]

Hocam bu blog bende çalışmıyor bilgiler boş geliyor

Örnek http://yakupulutas.xyz:8077/

procedure TMainForm.UniFormCreate(Sender: TObject);
var
 C : TUniClientInfoRec;
begin
 C:=UniApplication.ClientInfoRec;
 ip.Caption:='ip: '+UniApplication.RemoteAddress+ '    Browser : '+C.BrowserType+ '(v:'+IntToStr(C.BrowserVersion)+')'+
  '   Os: ' +C.OSType;
end;

---

(15-02-2017, Saat: 05:27)masteryoda Adlı Kullanıcıdan Alıntı: Bu işimi gördü.

var
IsPhone:Boolean;
begin
IsPhone:=(upPhone in UniSession.UniPlatform);
if IsPhone then
 begin
   ShowMessage('Telefon');
   // tel url git
 end
 else
 ShowMessage('PC');
end;

mobil url'ye nasıl yönlendirdiniz ?

[masteryoda]

(21-04-2017, Saat: 09:27)yhackup Adlı Kullanıcıdan Alıntı:

---

mobil url'ye nasıl yönlendirdiniz ?

 if IsPhone then
  begin
   UniSession.BrowserWindow('http://185...../muygulamam', 0, 0, '_self');
 end

[yhackup]

(21-04-2017, Saat: 10:38)masteryoda Adlı Kullanıcıdan Alıntı:

(21-04-2017, Saat: 09:27)yhackup Adlı Kullanıcıdan Alıntı:

---

mobil url'ye nasıl yönlendirdiniz ?

 if IsPhone then
  begin
   UniSession.BrowserWindow('http://185...../muygulamam', 0, 0, '_self');
 end

Harika teşekkür ederim.