• R/O
  • SSH
  • HTTPS

facebooktools: Commit


Commit MetaInfo

Revision11 (tree)
Time2020-05-01 08:03:17
Authorderekwildstar

Log Message

Utilizados ProcessMessages

Change Summary

Incremental Difference

--- trunk/src/UDAMOPrincipal.pas (revision 10)
+++ trunk/src/UDAMOPrincipal.pas (revision 11)
@@ -49,7 +49,7 @@
4949 procedure ProgramToConfig;
5050 function GetGroupInfo(AGroupUrl: String; out AGroupInfo: TGroupInfo): Boolean;
5151 function ShareToGroup(AGroupInfo: TGroupInfo; APublicationParameters: TPublicationParameters): Boolean;
52- procedure Wait5Seconds;
52+ procedure Wait10Seconds;
5353 public
5454 { Public declarations }
5555 constructor Create(AOwner: TComponent); override;
@@ -244,13 +244,13 @@
244244 begin
245245 if not FirstIteration then
246246 begin
247- TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Add('Waiting 5 seconds...');
248- TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Repaint;
249- Wait5Seconds;
247+ TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Add('Waiting 10 seconds...');
248+ Application.ProcessMessages;
249+ Wait10Seconds;
250250 end;
251251
252252 TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Add('Sharing to group "' + GR.Name + '"...');
253- TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Repaint;
253+ Application.ProcessMessages;
254254
255255 if ShareToGroup(GR.GroupInfo,PP) then
256256 TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines[Pred(TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Count)] := TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines[Pred(TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Count)] + 'Successful!'
@@ -257,7 +257,7 @@
257257 else
258258 TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines[Pred(TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Count)] := TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines[Pred(TFORMBatchGroupSharingProgress(FB.InternalFormInstance).MEMOLog.Lines.Count)] + 'Failed :(';
259259
260- TFORMBatchGroupSharingProgress(FB.InternalFormInstance).Repaint;
260+ Application.ProcessMessages;
261261
262262 FirstIteration := False;
263263 end;
@@ -284,11 +284,11 @@
284284 DeleteCookie('@facebook.com');
285285 end;
286286
287-procedure TDAMOPrincipal.Wait5Seconds;
287+procedure TDAMOPrincipal.Wait10Seconds;
288288 var
289289 TimeOut: Cardinal;
290290 begin
291- TimeOut := GetTickCount + 5000;
291+ TimeOut := GetTickCount + 10000;
292292 while GetTickCount < TimeOut do;
293293 end;
294294
Show on old repository browser