Firemonkey iPad & iPhone in einer App

[Mavarik]

Hallo Zusammen...

Hab es jetzt endlich geschaft mir ein Mac-Book zu leihen und alles zu installieren um mal mit XE2 eine iOS App zu compilieren.

Wie kann ich erkennen ob ich auf einen iPad oder iPhone gestartet wurde?

Mavarik

[Mavarik]

*PUSH* :oops:

[user0815]

Xcode [[UIDevice currentDevice] localizedModel];

Soll das beste (deutsche) OS X Forum sein. Ist aber bei weitem nicht so 'nett' wie hier...

[Mavarik]

Zitat:

Zitat von user0815 (Beitrag 1186658)

Xcode [[UIDevice currentDevice] localizedModel];

Soll das beste (deutsche) OS X Forum sein. Ist aber bei weitem nicht so 'nett' wie hier...

Danke... Aber in anbetracht der Tatsache, das Mobil-Studio kein XCode mehr braucht, wollte ich micht eigentlich damit nicht mehr beschäftigen...

Trotzdem Danke...

Mavarik

[Darlo]

Hi,

ich mache das so:

Mainform mit Layout alClient.
Folgender Code wird im Resize des Layouts und im Create der Form ausgeführt:

Delphi-Quellcode:

procedure TfrmMain.FormResize(Sender: TObject);
begin
    if frmPhoneQuer = nil then exit;
    if frmPadHoch = nil then exit;
    if frmPadQuer = nil then exit;

    loadView(sender);

end;

Delphi-Quellcode:

function TfrmMain.loadView(Sender: TObject): boolean;
begin

  try
    if frmMain.Width+frmMain.Height > 1010 then
      begin
        mydevice := 'iPad';
        laHilfe.Visible := false;
        laInfo.Visible := false;
      end
    else
      mydevice := 'iPhone';

    if frmMain.layoutContent.Width > frmMain.layoutContent.Height then
      format := 'Querformat'
    else
      format := 'Hochformat';


    if myDevice = 'iPhone' then
      if format = 'Hochformat' then
        begin
          frmMain.layoutMain.Parent := frmMain.layoutContent;

          frmMain.layoutMain.Visible := true;
          frmPhoneQuer.layoutPhoneQuer.Visible := false;
          frmPadHoch.layoutPadHoch.Visible := false;
          frmPadQuer.layoutPadQuer.Visible := false;
          laHilfe.Visible := true;
          laInfo.Visible := true;
        end
      else
        begin
          frmPhoneQuer.layoutPhoneQuer.Parent := frmMain.layoutContent;
          laHilfe.Visible := false;
          laInfo.Visible := false;

          frmMain.layoutMain.Visible := false;
          frmPhoneQuer.layoutPhoneQuer.Visible := true;
          frmPadHoch.layoutPadHoch.Visible := false;
          frmPadQuer.layoutPadQuer.Visible := false;
        end;

    if myDevice = 'iPad' then
      if format = 'Hochformat' then
        begin
          frmPadHoch.layoutPadHoch.Parent := frmMain.layoutContent;

          frmMain.layoutMain.Visible := false;
          frmPhoneQuer.layoutPhoneQuer.Visible := false;
          frmPadHoch.layoutPadHoch.Visible := true;
          frmPadQuer.layoutPadQuer.Visible := false;

          frmPadHoch.swSwitch(frmPadHoch.swTarif);
          frmPadHoch.swSwitch(frmPadHoch.swKstPflicht);
          frmPadHoch.swSwitch(frmPadHoch.swKstSatz);
        end
      else
        begin
          frmPadQuer.layoutPadQuer.Parent := frmMain.layoutContent;

          frmMain.layoutMain.Visible := false;
          frmPhoneQuer.layoutPhoneQuer.Visible := false;
          frmPadHoch.layoutPadHoch.Visible := false;
          frmPadQuer.layoutPadQuer.Visible := true;

          frmPadQuer.swSwitch(frmPadQuer.swTarif);
          frmPadQuer.swSwitch(frmPadQuer.swKstPflicht);
          frmPadQuer.swSwitch(frmPadQuer.swKstSatz);
        end;

      frmMain.Height := TRUNC(frmMain.layoutHead.Height+
                        frmMain.layoutContent.Height+
                        frmMain.layoutBottom.Height);
      frmMain.Width :=  TRUNC(frmMain.layoutHead.Width);
      //Nur für PC
      frmMain.ClientHeight := TRUNC(frmMain.layoutHead.Height+
                        frmMain.layoutContent.Height+
                        frmMain.layoutBottom.Height);
      frmMain.ClientWidth :=  TRUNC(frmMain.layoutHead.Width);




      result := true;
  except
      result := false;
  end;
end;

Habe es noch nicht mit dem iPhone 5 getestet.

Gruß

Philip

[greenmile]

Zitat:

Zitat von Mavarik (Beitrag 1186699)

... Aber in anbetracht der Tatsache, das Mobil-Studio kein XCode mehr braucht...

Habe ich was verpasst?

[Hansa]

Jo, die Delphi-Tage. Da wurde das mehrfach gesagt.

[greenmile]

Ahhhh, da war ich nicht. Also brauche ich kein XCode mehr? Na das wäre ja endlich mal was geiles!
Allerdings, moment, ohne XCode kommt mein Projekt doch nicht auf den Simulator bzw. auf's Gerät ...

[mkinzler]

Die Ausführung im Simulator wurde vorgeführt. Wie EMBT hier technisch vorgeht wurde natürlich nicht gesagt.
DragonFire und OpenPlug ( lider eingestellt) können das ja uach.

[Darlo]

Wann soll den die Beta starten? Ist die dann für jeden registrierten XE3 Inhaber zugänglich?

[USchuster]

Natürlich wird Mobile Studio für iOS ein installiertes Xcode voraussetzen, denn wo sonst kommt z.B. der iOS Simulator her? Das "no Xcode!!!" von David I bezog sich sicher darauf das keine manuellen Schritte mit Xcode nötig sind wie bei XE2.

Zum Start der Mobile Studio Beta gibt es nichts genaueres als "est Late 2012". Diese Beta ist zugänglich für Kunden mit XE3. Informationen dazu, was dann genau zu tun ist um Zugang zu erhalten, wird Embarcadero sicher zu gegebener Zeit veröffentlichen.

[Mavarik]

Das habe ich anders verstanden...

Da kein FPC mehr benötigt wird...

Gib es keine Möglichkeit Simulator ohne Xcode?

Mavarik

[USchuster]

Warum ist ein installiertes Xcode ein Problem?

Kein Xcode nötig = Kein Mac nötig? Falsch - an einem Mac und einem Apple Developer Account wird kein Weg dran vorbeiführen.