±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
ÀÚ·á½Ç ÀÚ·á½Ç ÀÔ´Ï´Ù.
±Û³»¿ë - ÀÚ·á½Ç
 XE7 iOS App without Firemonkey / FMX ¾øÀÌ ¾ÆÀÌÆù ¾Û ¸¸µé±â
ÃÖ¿ø½Ä
(ÃÖ¿ø½Ä)
2014-10-12 ¿ÀÀü 1:19:33
3107ȸ Á¶È¸


÷ºÎÆÄÀÏ ´Ù¿î·Îµå
XE7_HelloWorld.zip
Firemonkey ¾øÀÌ iOS ¾ÛÀ» ¸¸µå´Â ¿¹Á¦ÀÔ´Ï´Ù.

ÄÚµå ÀÚü´Â °£´ÜÇѵ¥, ¹®¹ýÀÌ Àͼ÷ÇÏÁö ¾Ê¾Æ¼­, ÀÛ¼ºÇϴµ¥, À̹ø ¿¬ÈÞ¸¦ ¸ðµÎ ½á¹ö·È½À´Ï´Ù. :)

°¡Àå Å« ÀåÁ¡Àº Native¸¦ »ç¿ëÇÏ°Ô µÇ¸é, Å©±â°¡ 1/3~1/4·Î ÁÙ¾îµé°í, ¼Óµµµµ XCode·Î ÀÛ¼ºÇßÀ»¶§¿Í µ¿ÀÏÇÏ°Ô µÈ´Ù´Â Á¡ÀÔ´Ï´Ù.


Âü°í : Android Native ¹öÀüÀº ¿©±â ÀÚ·á½Ç¿¡ ¾çº´±Ô´Ô²²¼­ ¿Ã·ÁÁֽŠÀڷḦ »ç¿ëÇϽø頵˴ϴÙ.
       "XE5 Android Application without Firemonkey  (FMX ¾øÀÌ ¾Èµå·ÎÀ̵堾۠¸¸µé±â)"


//
//  iOS Hello World for Delphi XE7 without FMX
//
//  ---------------------------------------------
//   Test Results ( Simple App with Label )
//  ---------------------------------------------
//                   Simulator        Device
//     Firemonkey       9MB             15MB
//     Native         1.5MB            4.3MB
//  ---------------------------------------------
//
//  http://blog.naver.com/simonsayz
//  Simon,Choi
//
//  References
//  ----------------------------------------------------------------------------
//  http://blog.blong.com/2013/05/delphi-for-ios-some-notes.html
//  http://ridingdelphi.blogspot.kr/2014/01/the-quest-to-migrate-ios-squarecam-app_3169.html
//
program XE7_HelloWorld;

uses
  Macapi.ObjectiveC,
  iOSapi.CocoaTypes, iOSapi.Foundation, iOSapi.UIKit, iOSapi.CoreGraphics;

Type
  // Ref. UIApplicationDelegate
  UIAppDelegate = interface(IObjectiveC)
   function application_didFinishLaunchingWithOptions(Sender: UIApplication;
                  didFinishLaunchingWithOptions: NSDictionary): Boolean; cdecl; overload;
  end;

  TUIAppDelegate = class(TOCLocal,UIAppDelegate)
  private
   Win : UIWindow;
  public
   [MethodName('application:didFinishLaunchingWithOptions:')]
   function application_didFinishLaunchingWithOptions(Sender: UIApplication;
                  didFinishLaunchingWithOptions: NSDictionary): Boolean; cdecl;
  end;

Var
 _gAppDel : TUIAppDelegate;

//
Function TUIAppDelegate.application_didFinishLaunchingWithOptions(Sender: UIApplication;
                  didFinishLaunchingWithOptions: NSDictionary): Boolean;
Var
 bounds         : NSRect;
 viewController : UIViewController;
 TextField      : UITextField;
begin
 bounds         := TUIScreen.Wrap( TUIScreen.OCClass.mainScreen ).bounds;
 _gAppDel.Win   := TUIWindow.Wrap( TUIWindow.alloc.initWithFrame( bounds ) );
 viewController := TUIViewController.Wrap( TUIViewController.alloc.init );
   // Add iOS Control
   textField := TUITextField.Wrap( TUITextField.alloc.init );
   textField.setBackgroundColor ( TUIColor.Wrap( TUIColor.OCClass.whiteColor) );
   textField.setText(NSStr('XE7, Hello Wor