• R/O
  • SSH
  • HTTPS

instalikes: Commit


Commit MetaInfo

Revision8 (tree)
Zeit2019-11-12 11:48:39
Autorderekwildstar

Log Message

Correção no método que atualiza o usuário

Ändern Zusammenfassung

Diff

--- trunk/prj/InstaLikes.dproj (revision 7)
+++ trunk/prj/InstaLikes.dproj (revision 8)
@@ -1,7 +1,7 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
33 <ProjectGuid>{1A2D6B31-BE24-4483-B88E-35711462F427}</ProjectGuid>
4- <ProjectVersion>18.4</ProjectVersion>
4+ <ProjectVersion>18.7</ProjectVersion>
55 <FrameworkType>VCL</FrameworkType>
66 <MainSource>InstaLikes.dpr</MainSource>
77 <Base>True</Base>
@@ -60,7 +60,10 @@
6060 <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
6161 <SanitizedProjectName>InstaLikes</SanitizedProjectName>
6262 <VerInfo_Locale>1046</VerInfo_Locale>
63- <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
63+ <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=3.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
64+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
65+ <VerInfo_MajorVer>3</VerInfo_MajorVer>
66+ <VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
6467 </PropertyGroup>
6568 <PropertyGroup Condition="'$(Base_Win32)'!=''">
6669 <DCC_UsePackage>DBXSqliteDriver;DBXInterBaseDriver;vclactnband;vclFireDAC;tethering;svnui;dclRBDBE1925;FireDACADSDriver;rbRIDE1925;vcltouch;vcldb;bindcompfmx;svn;inetdb;KRKOTANotifiersR;rbTC1925;FmxTeeUI;rbIDE1925;fmx;fmxdae;dbexpress;IndyCore;vclx;dsnap;VCLRESTComponents;rbTCUI1925;rbFireDAC1925;PNGComponentsR;rbRTL1925;rbDB1925;vclie;bindengine;DBXMySQLDriver;dclRBFireDAC1925;FireDACMySQLDriver;FireDACCommonODBC;dclRBE1925;rbRCL1925;UIRibbonPackageDR;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;TBGWebCharts;IndySystem;dsnapcon;rbDBE1925;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;FireDACPgDriver;FMXTee;DbxCommonDriver;rbUSER1925;rbDIDE1925;rbADO1925;Tee;rbRest1925;xmlrtl;rbUSERDesign1925;fmxobj;vclwinx;rtl;DbxClientDriver;CustomIPTransport;vcldsnap;rbRAP1925;bindcomp;appanalytics;rbDAD1925;IndyIPClient;rbBDE1925;bindcompvcl;TeeUI;rbCIDE1925;dbxcds;VclSmp;adortl;FireDACConnR;UserControlR;dsnapxml;dclRBADO1925;dbrtl;IndyProtocols;inetdbxpress;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
@@ -81,7 +84,6 @@
8184 <DCC_MapFile>3</DCC_MapFile>
8285 </PropertyGroup>
8386 <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
84- <AppEnableHighDPI>true</AppEnableHighDPI>
8587 <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
8688 <VerInfo_Locale>1033</VerInfo_Locale>
8789 <Icon_MainIcon>..\res\icons8-heart-health-96.ico</Icon_MainIcon>
@@ -88,6 +90,7 @@
8890 <UWP_DelphiLogo44>..\res\icons8-heart-health-96.png</UWP_DelphiLogo44>
8991 <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
9092 <UWP_DelphiLogo150>..\res\icons8-heart-health-96.png</UWP_DelphiLogo150>
93+ <AppDPIAwarenessMode>PerMonitor</AppDPIAwarenessMode>
9194 </PropertyGroup>
9295 <PropertyGroup Condition="'$(Cfg_2)'!=''">
9396 <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -97,9 +100,9 @@
97100 </PropertyGroup>
98101 <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
99102 <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
100- <AppEnableHighDPI>true</AppEnableHighDPI>
101103 <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
102104 <VerInfo_Locale>1033</VerInfo_Locale>
105+ <AppDPIAwarenessMode>PerMonitor</AppDPIAwarenessMode>
103106 </PropertyGroup>
104107 <ItemGroup>
105108 <DelphiCompile Include="$(MainSource)">
@@ -139,8 +142,8 @@
139142 <Source Name="MainSource">InstaLikes.dpr</Source>
140143 </Source>
141144 <Excluded_Packages>
142- <Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
143- <Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
145+ <Excluded_Packages Name="$(BDSBIN)\dcloffice2k260.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
146+ <Excluded_Packages Name="$(BDSBIN)\dclofficexp260.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
144147 </Excluded_Packages>
145148 </Delphi.Personality>
146149 <Deployment Version="3">
@@ -166,7 +169,6 @@
166169 <Operation>1</Operation>
167170 </Platform>
168171 <Platform Name="Win32">
169- <RemoteDir>Contents\MacOS</RemoteDir>
170172 <Operation>0</Operation>
171173 </Platform>
172174 </DeployClass>
@@ -176,6 +178,12 @@
176178 <Operation>1</Operation>
177179 </Platform>
178180 </DeployClass>
181+ <DeployClass Name="AndroidFileProvider">
182+ <Platform Name="Android">
183+ <RemoteDir>res\xml</RemoteDir>
184+ <Operation>1</Operation>
185+ </Platform>
186+ </DeployClass>
179187 <DeployClass Name="AndroidGDBServer">
180188 <Platform Name="Android">
181189 <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
@@ -212,6 +220,18 @@
212220 <Operation>1</Operation>
213221 </Platform>
214222 </DeployClass>
223+ <DeployClass Name="AndroidSplashStylesV21">
224+ <Platform Name="Android">
225+ <RemoteDir>res\values-v21</RemoteDir>
226+ <Operation>1</Operation>
227+ </Platform>
228+ </DeployClass>
229+ <DeployClass Name="Android_Colors">
230+ <Platform Name="Android">
231+ <RemoteDir>res\values</RemoteDir>
232+ <Operation>1</Operation>
233+ </Platform>
234+ </DeployClass>
215235 <DeployClass Name="Android_DefaultAppIcon">
216236 <Platform Name="Android">
217237 <RemoteDir>res\drawable</RemoteDir>
@@ -248,6 +268,36 @@
248268 <Operation>1</Operation>
249269 </Platform>
250270 </DeployClass>
271+ <DeployClass Name="Android_NotificationIcon24">
272+ <Platform Name="Android">
273+ <RemoteDir>res\drawable-mdpi</RemoteDir>
274+ <Operation>1</Operation>
275+ </Platform>
276+ </DeployClass>
277+ <DeployClass Name="Android_NotificationIcon36">
278+ <Platform Name="Android">
279+ <RemoteDir>res\drawable-hdpi</RemoteDir>
280+ <Operation>1</Operation>
281+ </Platform>
282+ </DeployClass>
283+ <DeployClass Name="Android_NotificationIcon48">
284+ <Platform Name="Android">
285+ <RemoteDir>res\drawable-xhdpi</RemoteDir>
286+ <Operation>1</Operation>
287+ </Platform>
288+ </DeployClass>
289+ <DeployClass Name="Android_NotificationIcon72">
290+ <Platform Name="Android">
291+ <RemoteDir>res\drawable-xxhdpi</RemoteDir>
292+ <Operation>1</Operation>
293+ </Platform>
294+ </DeployClass>
295+ <DeployClass Name="Android_NotificationIcon96">
296+ <Platform Name="Android">
297+ <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
298+ <Operation>1</Operation>
299+ </Platform>
300+ </DeployClass>
251301 <DeployClass Name="Android_SplashImage426">
252302 <Platform Name="Android">
253303 <RemoteDir>res\drawable-small</RemoteDir>
@@ -272,6 +322,12 @@
272322 <Operation>1</Operation>
273323 </Platform>
274324 </DeployClass>
325+ <DeployClass Name="Android_Strings">
326+ <Platform Name="Android">
327+ <RemoteDir>res\values</RemoteDir>
328+ <Operation>1</Operation>
329+ </Platform>
330+ </DeployClass>
275331 <DeployClass Name="DebugSymbols">
276332 <Platform Name="iOSSimulator">
277333 <Operation>1</Operation>
@@ -290,6 +346,11 @@
290346 <Operation>1</Operation>
291347 <Extensions>.framework</Extensions>
292348 </Platform>
349+ <Platform Name="OSX64">
350+ <RemoteDir>Contents\MacOS</RemoteDir>
351+ <Operation>1</Operation>
352+ <Extensions>.framework</Extensions>
353+ </Platform>
293354 <Platform Name="Win32">
294355 <Operation>0</Operation>
295356 </Platform>
@@ -312,6 +373,11 @@
312373 <Operation>1</Operation>
313374 <Extensions>.dylib</Extensions>
314375 </Platform>
376+ <Platform Name="OSX64">
377+ <RemoteDir>Contents\MacOS</RemoteDir>
378+ <Operation>1</Operation>
379+ <Extensions>.dylib</Extensions>
380+ </Platform>
315381 <Platform Name="Win32">
316382 <Operation>0</Operation>
317383 <Extensions>.dll;.bpl</Extensions>
@@ -335,6 +401,11 @@
335401 <Operation>1</Operation>
336402 <Extensions>.dylib</Extensions>
337403 </Platform>
404+ <Platform Name="OSX64">
405+ <RemoteDir>Contents\MacOS</RemoteDir>
406+ <Operation>1</Operation>
407+ <Extensions>.dylib</Extensions>
408+ </Platform>
338409 <Platform Name="Win32">
339410 <Operation>0</Operation>
340411 <Extensions>.bpl</Extensions>
@@ -357,6 +428,10 @@
357428 <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
358429 <Operation>0</Operation>
359430 </Platform>
431+ <Platform Name="OSX64">
432+ <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
433+ <Operation>0</Operation>
434+ </Platform>
360435 <Platform Name="Win32">
361436 <Operation>0</Operation>
362437 </Platform>
@@ -372,6 +447,17 @@
372447 <Operation>1</Operation>
373448 </Platform>
374449 </DeployClass>
450+ <DeployClass Name="iPad_Launch1024x768">
451+ <Platform Name="iOSDevice32">
452+ <Operation>1</Operation>
453+ </Platform>
454+ <Platform Name="iOSDevice64">
455+ <Operation>1</Operation>
456+ </Platform>
457+ <Platform Name="iOSSimulator">
458+ <Operation>1</Operation>
459+ </Platform>
460+ </DeployClass>
375461 <DeployClass Name="iPad_Launch1536">
376462 <Platform Name="iOSDevice32">
377463 <Operation>1</Operation>
@@ -383,6 +469,39 @@
383469 <Operation>1</Operation>
384470 </Platform>
385471 </DeployClass>
472+ <DeployClass Name="iPad_Launch1536x2048">
473+ <Platform Name="iOSDevice32">
474+ <Operation>1</Operation>
475+ </Platform>
476+ <Platform Name="iOSDevice64">
477+ <Operation>1</Operation>
478+ </Platform>
479+ <Platform Name="iOSSimulator">
480+ <Operation>1</Operation>
481+ </Platform>
482+ </DeployClass>
483+ <DeployClass Name="iPad_Launch1668">
484+ <Platform Name="iOSDevice32">
485+ <Operation>1</Operation>
486+ </Platform>
487+ <Platform Name="iOSDevice64">
488+ <Operation>1</Operation>
489+ </Platform>
490+ <Platform Name="iOSSimulator">
491+ <Operation>1</Operation>
492+ </Platform>
493+ </DeployClass>
494+ <DeployClass Name="iPad_Launch1668x2388">
495+ <Platform Name="iOSDevice32">
496+ <Operation>1</Operation>
497+ </Platform>
498+ <Platform Name="iOSDevice64">
499+ <Operation>1</Operation>
500+ </Platform>
501+ <Platform Name="iOSSimulator">
502+ <Operation>1</Operation>
503+ </Platform>
504+ </DeployClass>
386505 <DeployClass Name="iPad_Launch2048">
387506 <Platform Name="iOSDevice32">
388507 <Operation>1</Operation>
@@ -394,6 +513,61 @@
394513 <Operation>1</Operation>
395514 </Platform>
396515 </DeployClass>
516+ <DeployClass Name="iPad_Launch2048x1536">
517+ <Platform Name="iOSDevice32">
518+ <Operation>1</Operation>
519+ </Platform>
520+ <Platform Name="iOSDevice64">
521+ <Operation>1</Operation>
522+ </Platform>
523+ <Platform Name="iOSSimulator">
524+ <Operation>1</Operation>
525+ </Platform>
526+ </DeployClass>
527+ <DeployClass Name="iPad_Launch2048x2732">
528+ <Platform Name="iOSDevice32">
529+ <Operation>1</Operation>
530+ </Platform>
531+ <Platform Name="iOSDevice64">
532+ <Operation>1</Operation>
533+ </Platform>
534+ <Platform Name="iOSSimulator">
535+ <Operation>1</Operation>
536+ </Platform>
537+ </DeployClass>
538+ <DeployClass Name="iPad_Launch2224">
539+ <Platform Name="iOSDevice32">
540+ <Operation>1</Operation>
541+ </Platform>
542+ <Platform Name="iOSDevice64">
543+ <Operation>1</Operation>
544+ </Platform>
545+ <Platform Name="iOSSimulator">
546+ <Operation>1</Operation>
547+ </Platform>
548+ </DeployClass>
549+ <DeployClass Name="iPad_Launch2388x1668">
550+ <Platform Name="iOSDevice32">
551+ <Operation>1</Operation>
552+ </Platform>
553+ <Platform Name="iOSDevice64">
554+ <Operation>1</Operation>
555+ </Platform>
556+ <Platform Name="iOSSimulator">
557+ <Operation>1</Operation>
558+ </Platform>
559+ </DeployClass>
560+ <DeployClass Name="iPad_Launch2732x2048">
561+ <Platform Name="iOSDevice32">
562+ <Operation>1</Operation>
563+ </Platform>
564+ <Platform Name="iOSDevice64">
565+ <Operation>1</Operation>
566+ </Platform>
567+ <Platform Name="iOSSimulator">
568+ <Operation>1</Operation>
569+ </Platform>
570+ </DeployClass>
397571 <DeployClass Name="iPad_Launch768">
398572 <Platform Name="iOSDevice32">
399573 <Operation>1</Operation>
@@ -405,6 +579,116 @@
405579 <Operation>1</Operation>
406580 </Platform>
407581 </DeployClass>
582+ <DeployClass Name="iPad_Launch768x1024">
583+ <Platform Name="iOSDevice32">
584+ <Operation>1</Operation>
585+ </Platform>
586+ <Platform Name="iOSDevice64">
587+ <Operation>1</Operation>
588+ </Platform>
589+ <Platform Name="iOSSimulator">
590+ <Operation>1</Operation>
591+ </Platform>
592+ </DeployClass>
593+ <DeployClass Name="iPhone_Launch1125">
594+ <Platform Name="iOSDevice32">
595+ <Operation>1</Operation>
596+ </Platform>
597+ <Platform Name="iOSDevice64">
598+ <Operation>1</Operation>
599+ </Platform>
600+ <Platform Name="iOSSimulator">
601+ <Operation>1</Operation>
602+ </Platform>
603+ </DeployClass>
604+ <DeployClass Name="iPhone_Launch1136x640">
605+ <Platform Name="iOSDevice32">
606+ <Operation>1</Operation>
607+ </Platform>
608+ <Platform Name="iOSDevice64">
609+ <Operation>1</Operation>
610+ </Platform>
611+ <Platform Name="iOSSimulator">
612+ <Operation>1</Operation>
613+ </Platform>
614+ </DeployClass>
615+ <DeployClass Name="iPhone_Launch1242">
616+ <Platform Name="iOSDevice32">
617+ <Operation>1</Operation>
618+ </Platform>
619+ <Platform Name="iOSDevice64">
620+ <Operation>1</Operation>
621+ </Platform>
622+ <Platform Name="iOSSimulator">
623+ <Operation>1</Operation>
624+ </Platform>
625+ </DeployClass>
626+ <DeployClass Name="iPhone_Launch1242x2688">
627+ <Platform Name="iOSDevice32">
628+ <Operation>1</Operation>
629+ </Platform>
630+ <Platform Name="iOSDevice64">
631+ <Operation>1</Operation>
632+ </Platform>
633+ <Platform Name="iOSSimulator">
634+ <Operation>1</Operation>
635+ </Platform>
636+ </DeployClass>
637+ <DeployClass Name="iPhone_Launch1334">
638+ <Platform Name="iOSDevice32">
639+ <Operation>1</Operation>
640+ </Platform>
641+ <Platform Name="iOSDevice64">
642+ <Operation>1</Operation>
643+ </Platform>
644+ <Platform Name="iOSSimulator">
645+ <Operation>1</Operation>
646+ </Platform>
647+ </DeployClass>
648+ <DeployClass Name="iPhone_Launch1792">
649+ <Platform Name="iOSDevice32">
650+ <Operation>1</Operation>
651+ </Platform>
652+ <Platform Name="iOSDevice64">
653+ <Operation>1</Operation>
654+ </Platform>
655+ <Platform Name="iOSSimulator">
656+ <Operation>1</Operation>
657+ </Platform>
658+ </DeployClass>
659+ <DeployClass Name="iPhone_Launch2208">
660+ <Platform Name="iOSDevice32">
661+ <Operation>1</Operation>
662+ </Platform>
663+ <Platform Name="iOSDevice64">
664+ <Operation>1</Operation>
665+ </Platform>
666+ <Platform Name="iOSSimulator">
667+ <Operation>1</Operation>
668+ </Platform>
669+ </DeployClass>
670+ <DeployClass Name="iPhone_Launch2436">
671+ <Platform Name="iOSDevice32">
672+ <Operation>1</Operation>
673+ </Platform>
674+ <Platform Name="iOSDevice64">
675+ <Operation>1</Operation>
676+ </Platform>
677+ <Platform Name="iOSSimulator">
678+ <Operation>1</Operation>
679+ </Platform>
680+ </DeployClass>
681+ <DeployClass Name="iPhone_Launch2688x1242">
682+ <Platform Name="iOSDevice32">
683+ <Operation>1</Operation>
684+ </Platform>
685+ <Platform Name="iOSDevice64">
686+ <Operation>1</Operation>
687+ </Platform>
688+ <Platform Name="iOSSimulator">
689+ <Operation>1</Operation>
690+ </Platform>
691+ </DeployClass>
408692 <DeployClass Name="iPhone_Launch320">
409693 <Platform Name="iOSDevice32">
410694 <Operation>1</Operation>
@@ -438,6 +722,28 @@
438722 <Operation>1</Operation>
439723 </Platform>
440724 </DeployClass>
725+ <DeployClass Name="iPhone_Launch750">
726+ <Platform Name="iOSDevice32">
727+ <Operation>1</Operation>
728+ </Platform>
729+ <Platform Name="iOSDevice64">
730+ <Operation>1</Operation>
731+ </Platform>
732+ <Platform Name="iOSSimulator">
733+ <Operation>1</Operation>
734+ </Platform>
735+ </DeployClass>
736+ <DeployClass Name="iPhone_Launch828">
737+ <Platform Name="iOSDevice32">
738+ <Operation>1</Operation>
739+ </Platform>
740+ <Platform Name="iOSDevice64">
741+ <Operation>1</Operation>
742+ </Platform>
743+ <Platform Name="iOSSimulator">
744+ <Operation>1</Operation>
745+ </Platform>
746+ </DeployClass>
441747 <DeployClass Name="ProjectAndroidManifest">
442748 <Platform Name="Android">
443749 <Operation>1</Operation>
@@ -493,11 +799,21 @@
493799 <Operation>1</Operation>
494800 </Platform>
495801 </DeployClass>
802+ <DeployClass Name="ProjectOSXDebug">
803+ <Platform Name="OSX64">
804+ <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
805+ <Operation>1</Operation>
806+ </Platform>
807+ </DeployClass>
496808 <DeployClass Name="ProjectOSXEntitlements">
497809 <Platform Name="OSX32">
498810 <RemoteDir>..\</RemoteDir>
499811 <Operation>1</Operation>
500812 </Platform>
813+ <Platform Name="OSX64">
814+ <RemoteDir>..\</RemoteDir>
815+ <Operation>1</Operation>
816+ </Platform>
501817 </DeployClass>
502818 <DeployClass Name="ProjectOSXInfoPList">
503819 <Platform Name="OSX32">
@@ -504,6 +820,10 @@
504820 <RemoteDir>Contents</RemoteDir>
505821 <Operation>1</Operation>
506822 </Platform>
823+ <Platform Name="OSX64">
824+ <RemoteDir>Contents</RemoteDir>
825+ <Operation>1</Operation>
826+ </Platform>
507827 </DeployClass>
508828 <DeployClass Name="ProjectOSXResource">
509829 <Platform Name="OSX32">
@@ -510,6 +830,10 @@
510830 <RemoteDir>Contents\Resources</RemoteDir>
511831 <Operation>1</Operation>
512832 </Platform>
833+ <Platform Name="OSX64">
834+ <RemoteDir>Contents\Resources</RemoteDir>
835+ <Operation>1</Operation>
836+ </Platform>
513837 </DeployClass>
514838 <DeployClass Required="true" Name="ProjectOutput">
515839 <Platform Name="Android">
@@ -532,6 +856,10 @@
532856 <RemoteDir>Contents\MacOS</RemoteDir>
533857 <Operation>1</Operation>
534858 </Platform>
859+ <Platform Name="OSX64">
860+ <RemoteDir>Contents\MacOS</RemoteDir>
861+ <Operation>1</Operation>
862+ </Platform>
535863 <Platform Name="Win32">
536864 <Operation>0</Operation>
537865 </Platform>
@@ -571,6 +899,7 @@
571899 <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
572900 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
573901 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
902+ <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
574903 <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
575904 </Deployment>
576905 <Platforms>
--- trunk/src/UDAMOPrincipal.pas (revision 7)
+++ trunk/src/UDAMOPrincipal.pas (revision 8)
@@ -149,9 +149,8 @@
149149 // sendo salvas na tabela medias. Este método NÃO adiciona os seguidores do
150150 // usuário
151151 procedure AddUser(const AUserName: String; const AFollowingId: String = ''); overload;
152- // Esta função adiciona ou atualiza o usuário informado. Ela retorna true
153- // apenas quando o usuário foi efetivamente registrado, mas retorna false
154- // quando o usuário é apenas atualizado
152+ // Esta função adiciona o usuário informado. Ela retorna true apenas quando
153+ // o usuário foi efetivamente registrado
155154 function AddUser(const AInstagramUser: TInstagramUser; const AFollowingId: String = ''): Boolean; overload;
156155 // function MediaInfo(AShortCode: String; out AMedia: TMedia): Boolean;
157156 procedure UpdateUser(const AInstagramUser: TInstagramUser); overload;
@@ -188,7 +187,7 @@
188187 KRK.Lib.Rtl.Win.WinInet.Utilities, Windows, WinInet,
189188 KRK.Lib.RegExp.Utils, NetEncoding, System.RegularExpressionsCore,
190189 UFORMPrincipal, jpeg, KRK.Lib.Vcl.Forms.FormBlender,
191- UFORMStatus, UFORMAddUserParams;
190+ UFORMStatus, UFORMAddUserParams, System.Generics.Collections;
192191
193192 {%CLASSGROUP 'Vcl.Controls.TControl'}
194193
@@ -200,6 +199,9 @@
200199 begin
201200 Result := FDCO.ExecSQLScalar('select count(id) from user where id = :id',[AInstagramUser.id],[ftString]) = 0;
202201
202+ if not Result then
203+ Exit;
204+
203205 FDTAUser.Append;
204206 FDTAUserid.AsString := AInstagramUser.id;
205207 FDTAUserusername.AsString := AInstagramUser.UserName;
@@ -1154,15 +1156,20 @@
11541156
11551157 procedure TDAMOPrincipal.UpdateUser(const AInstagramUser: TInstagramUser);
11561158 begin
1157- // Ao usar o AddUser para atualizar, o SQLite exclui o registro existete e
1158- // coloca outro no lugar e isso fazia a regra on delete cascade ser ativada.
1159- // Usando o pragma, desativa temporariamente as chaves estrangeiras evitando
1160- // o problema
1161- FDCO.ExecSQL('PRAGMA foreign_keys = 0;');
1162- try
1163- AddUser(AInstagramUser);
1164- finally
1165- FDCO.ExecSQL('PRAGMA foreign_keys = 1;');
1159+ if FDCO.ExecSQLScalar('select count(id) from user where id = :id',[AInstagramUser.id],[ftString]) = 1 then
1160+ begin
1161+ FDTAUser.Edit;
1162+ FDTAUserusername.AsString := AInstagramUser.UserName;
1163+ FDTAUserrealname.AsString := AInstagramUser.RealName;
1164+ FDTAUserpictureurl.AsString := AInstagramUser.PictureURL;
1165+ FDTAUserbiography.AsString := AInstagramUser.Biography;
1166+ FDTAUserisprivate.AsBoolean := AInstagramUser.IsPrivate;
1167+ FDTAUserisverified.AsBoolean := AInstagramUser.IsVerified;
1168+ FDTAUserisbusinessaccount.AsBoolean := AInstagramUser.IsBusinessAccount;
1169+ FDTAUserfollowers.AsInteger := AInstagramUser.Followers;
1170+ FDTAUserfollowing.AsInteger := AInstagramUser.Following;
1171+ FDTAUsermedias.AsInteger := AInstagramUser.MediasTotal;
1172+ FDTAUser.Post;
11661173 end;
11671174 end;
11681175
Show on old repository browser