安卓ios移動程序通用功能框架使用說明

使用說明（1.1版本）（，2015年12月14日星期一） 有項目合作需要這個框架的請與我聯(lián)英文名稱，再將client文件夾下的以YiDongTongYongKuangJiaAPP開頭的文件刪除。不要在非allconfigurations開頭的目標平臺設置，一但設allconfigurations開-AllXf>rojectOptionsforv Com兇HinandWarningsOu膽I-vResourceCom呻DirectoriesandConditionalsBuildEven七Enti廿ementList知

—平臺虳release和debug版本對應的|:「Slonc麟巨；如蘆韻，壓32與iu363也荽對應信 Donotcom,5ohull0，襖一,,v?Runbmev-DebuggeSymbol

Environment＿＿

installloca廿 T廿eBa |。|。 ||Cance|| -AllconXf>rojectOptionsforv Com兇HinandWarningsOu膽I-vResourceCom呻Directoriesand

Moduleversion琶己jor

M屯ver亙

I || 且亙BuildEven七UsesPe

Buildnumber

亙

知

Orien岱Ve心on一,,一,,v?Runbmev?DebuggeSymbol

com,sohe110，馱 esmenameesmenameopyNer8nge3erpaIQeDeeldelneveesBBBBBBCFCFCFCFCFCFCF?架Environment＿＿

ee CFBundleResourceS蘆呻ca廿 Thereasonforacssing怕elocaboninformabonoftheuserNSLocabonWhenlnUseUsageDesaip廿onTheeasonfossing忱elocaboninformabonof柏euse|。 ||。 ||Cance|| 安卓程序的要求如下。注意目標平臺要是allconfigurations-androidplatform，否則你要設置 ；窗口了，Unit0.pas的窗口被銷毀掉了；GYunits\data.s3db為一個數據庫，你可以打開建立你需要的表格。里面默認只有一張保存app所需要設置的各種參數的表格sz。如下表：GYunits\GY.pas，GYunits\MYSJGY.pas為私藏貨，寫了一些很有用函數，后面有專門GYunits\UErWeiMaScan.pas，GYunits\DelphiZXIngQRCode.pas為安卓調用掃描功能的單元，GYunits\BarcodeScanner.txt為打包進程序的安卓掃描apk，如果沒有安裝這個，當調7）GYunits\NetworkState.Android.pas，GYunits\NetworkState.iOS.pas，GYunits\NetworkState.pasGYunits\libReachability32.aGYunits\libReachability64.aGYunits\CaptiveNetwork.pas，GYunits\SCNetworkReachability.pas為判斷是否有網絡和網絡類型的單元，已經修改到支持安卓和ios。1librariesadd加入以下兩個文件。這些也不用再設置了，框架已經搞定 主窗口的通用處理（如果你不用form1的話，否則不用處理：procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);Action:=TCloseAction.caNone;增加函數（要單元usesMYSJDM;//ifAssigned(self.Focused)then//如果你的該頁面有編輯控件，一定要加上這個，按返回鍵if((self.Focused.GetObjectisTEdit)or(self.Focused.GetObjectisTMemo))thenself.Focusednil .Visibletruethen//HidePopup;//隱藏右上角調用的快捷菜ifRectangle_form.Position.X10then (true{$IFDEFANDROID}//如 if(CanUse=true)and(Timer_erweima.Enabled)then//if(CanUse=true)thenifSJDM.SJGY.FWantExit=falsethenSJDM.SJGY.FWantExit:=true;locs.Active:=false;

result:=procedureTForm1.FormKeyUp(Sender:TObject;varKey:Word;varKeyChar:Char;Shift:CanUse:Boolean;if(Key=vkHardwareBack)thenCanUse:=KeyGoBack(CanUseargs:array[0..2]ofVariant;baidux,baiduy:string;ifSJDM.SJGY.GetNetworkState='0'thenifSJDM.TiShiCiShu=0then ',self);//顯示等待窗SJDM.TiShiCiShu:=SJDM.TiShiCiShu+1;//begin////ifAssigned(SJDM.mLocClient)thenSJDM.mLocClient.stop;//停止定位SJDM.locs.Activetrue;//打開gps //Timer_erweima.Enabledfalse;//關閉timer//Timer_erweima.Enabledfalse;//關閉timer//);////開始輪//打開}//Timer1openGPS.Enabled:=true;//打開GPS。如果有網絡，第一次得到gps時用定{$IFDEFINED(IOS)orifSJDM.SJGY.GetNetworkState='0'thenprocedureTForm1.Image_0201Click(SenderTObject左上角返回按鈕事件GoBack(true TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動//{$IFDEFINED(IOS)orifSJDM.SJGY.GetNetworkState='0'then//ifnotAssigned(Formweb)thenFormweb.homeurl:='http 當前 TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動//showmessage('當前的經度：'+SJDM.MyLongitude+' 緯度：'+SJDM.MyLatitude);SJDM.SJGY.ToastConfirm('當前的經度：'+SJDM.MyLongitude+ 緯度：'//打開}//Timer1openGPS.Enabled:=true;//打開GPS。如果有網絡，第一次得到gps時用定{$IFDEFINED(IOS)orifSJDM.SJGY.GetNetworkState='0'thenargs:array[0..2]ofVariant;baidux,baiduy:string;ifSJDM.SJGY.GetNetworkState='0'then ',self);//顯示等待窗SJDM.TiShiCiShu:=SJDM.TiShiCiShu+1;//begin////ifAssigned(SJDM.mLocClient)thenSJDM.mLocClient.stop;//停止定位SJDM.locs.Activetrue;//打開gps TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動{$IFDEFINED(IOS)orifSJDM.SJGY.GetNetworkState='0'thenifSJDM.SJGY.GetNetworkState='2'then TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動SJDM.SJGY.ToastConfirm('GUID為：SJDM.SJGY.GetGUID,self1.5);//得到一個GUID字符串，GUID是一個128位整數（16字節(jié) TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動'+,, TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動 TObject;Button: TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動

//'+'),調用掃描窗口（ios下的掃描，要在Delphi中安裝一個控件TMSFMXZBarReader） TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動{$IFDEFINED(IOS)or //Timer_erweima.Enabledfalse;//關閉timer//Timer_erweima.Enabledfalse;//關閉timer//);// TObject;Button: TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動// ',self);//顯示等待提示動TThread.CreateAnonymousThread(ATaskbegin線程里的代碼寫這里（確保不要有對界面元素的操作//;// TObject;Button: TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1Sqr(abs(YY1))5then//防止鼠標單擊時與滑動//第一個參數為顯示內容，第二個參數為顯示在哪個窗口中，第三個為顯示時間，單位常用的功用，你可以慢慢的體會。',self,5); TObject;Button: TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動//Formpaizhao:=TFormpaizhao.Create(Application);Formpaizhao.Fill.Bitmap.WrapMode:=TWrapMode.TileStretch;Formpaizhao.Fill.Kind:=TBrushKind.Bitmap; 要將banbenhao.html內的數字修改為X.apk的真實版本號，否則程序無法識別。procedureTForm1.Rectangle20MouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Single);LDetails,apkfileurl,banbenfileurl,code:string;ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動{$IFDEFINED(IOS)orifSJDM.SJGY.GetNetworkState='0'thenifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動 TObject;Button: TShiftState;X,Y:Single);ifSqrt(Sqr(abs(XX1)Sqr(abs(YY15then//防止鼠標單擊時與滑動showmessage(SJDM.SJGY.GetHuanCunPath('tupian'));/