Revisão | 9 (tree) |
---|---|
Hora | 2019-11-13 12:15:59 |
Autor | derekwildstar |
Incluída programação para incluir novas mídias ao se atualizar um usuário
Considerado o temporizador ao seguir os usuários
@@ -1155,6 +1155,8 @@ | ||
1155 | 1155 | end; |
1156 | 1156 | |
1157 | 1157 | procedure TDAMOPrincipal.UpdateUser(const AInstagramUser: TInstagramUser); |
1158 | +var | |
1159 | + ME: TMedia; | |
1158 | 1160 | begin |
1159 | 1161 | if FDCO.ExecSQLScalar('select count(id) from user where id = :id',[AInstagramUser.id],[ftString]) = 1 then |
1160 | 1162 | begin |
@@ -1170,6 +1172,17 @@ | ||
1170 | 1172 | FDTAUserfollowing.AsInteger := AInstagramUser.Following; |
1171 | 1173 | FDTAUsermedias.AsInteger := AInstagramUser.MediasTotal; |
1172 | 1174 | FDTAUser.Post; |
1175 | + | |
1176 | + for ME in AInstagramUser.LastestMedia do | |
1177 | + begin | |
1178 | + FDTAMedias.Append; | |
1179 | + FDTAMediasid.AsString := ME.Id; | |
1180 | + FDTAMediasshortcode.AsString := ME.ShortCode; | |
1181 | + FDTAMediaswidth.AsInteger := Me.Width; | |
1182 | + FDTAMediasheight.AsInteger := ME.Height; | |
1183 | + FDTAMediasuserid.AsString := AInstagramUser.id; | |
1184 | + FDTAMedias.Post; | |
1185 | + end; | |
1173 | 1186 | end; |
1174 | 1187 | end; |
1175 | 1188 |
@@ -1605,6 +1618,8 @@ | ||
1605 | 1618 | begin |
1606 | 1619 | if AKRKDBGridUser.SelectedRows.CurrentRowSelected then |
1607 | 1620 | begin |
1621 | + Wait; | |
1622 | + | |
1608 | 1623 | if Follow(FDTAUserid.AsString) in [frRequested,frFollowing] then |
1609 | 1624 | Inc(Followed); |
1610 | 1625 |