Passa ai contenuti principali

TFS2010 Object Model: Scaricare tutti i file sorgente di tutte le project collection in un colpo solo e senza workspace

In questo post vorrei mostrarvi come sia possibile scaricare tutti i files presenti nel controllo di codice sorgente di TFS senza utilizzare un workspace.

Per fare questo utilizzeremo un istanza della classe VersionControlService (namespace Microsoft.TeamFoundation.VersionControl.Client).

Prima di tutto abbiamo la necessità di referenziare gli assembly:

  • Microsoft.TeamFoundation.Client.dll;
  • Microsoft.TeamFoundation.VersionControl.Client.dll;
  • Microsoft.TeamFoundation.Common.dll

SNAGHTML5c4377

Le dll sono già presenti nelle macchine che hanno installato Team Explorer.

L’algoritmo che utilizzeremo sarà:

  • recuperare l’elenco delle project collection presenti sul server TFS (e a cui abbiamo accesso);
  • iterare su ogni collection e recuperare l’elenco di tutti i file sotto controllo di codice sorgente ad una certa data
  • salvare i file in una cartella definita dall’utente mantenendo la struttura gerarchica delle cartelle sul server.

Abbiamo già visto in un precedente post come recuperare l’elenco delle collection e, riportiamo, quindi solo il codice necessario:

  1. Private Sub CreateTFSServer(ByVal serverUrl As String)
  2.     Contracts.Contract.Requires(Not String.IsNullOrWhiteSpace(serverUrl), "Url Server non pu? essere vuoto")
  3.     If TFSServer IsNot Nothing Then TFSServer.Dispose()
  4.     Try
  5.         TFSServer = TfsConfigurationServerFactory.GetConfigurationServer(New Uri(serverUrl), New UICredentialsProvider())
  6.     Catch ex As Exception
  7.         Throw
  8.     End Try
  9. End Sub
  10.  
  11. Public Function GetCollectionUris() As IEnumerable(Of String)
  12.     Contracts.Contract.Requires(Me.TFSServer IsNot Nothing, "Server non connesso")
  13.     Dim retList As IEnumerable(Of String) = Nothing
  14.     Try
  15.         Dim collections = Me.TFSServer.CatalogNode().QueryChildren({CatalogResourceTypes.ProjectCollection},
  16.                                                                    False,
  17.                                                                    CatalogQueryOptions.None)
  18.         retList = From o In collections
  19.                   Select String.Format("{0}/{1}", Me.TFSServer.Uri.AbsoluteUri, o.Resource.DisplayName)
  20.     Catch ex As Exception
  21.         Throw
  22.     End Try
  23.     Return retList
  24. End Function

Il metodo CreateTFSServer istanzia un oggetto di classe TfsConfigurationServer utile per accedere ai dati delle collection che sono, invece, recuperati dal metodo GetCollectionUris. Questo metodo restituisce una collezione di stringhe che rappresentano gli uri delle singole collezioni nella forma:

http://mioserver:8080/tfs/miacollezione

Il seguente metodo permette di recuperare l’elenco dei file sotto controllo di codice sorgente per una collezione:

  1. Public Function GetVersionedItems(ByVal collectionUri As String,
  2.                                   ByVal projectName As String,
  3.                                   ByVal filter As String,
  4.                                   ByVal versionDate As DateTime) As IEnumerable(Of Item)
  5.     Contracts.Contract.Requires(Not String.IsNullOrWhiteSpace(collectionUri), "CollectionUri non pu? essere nullo")
  6.     Dim retList As IEnumerable(Of Item) = Nothing
  7.     Try
  8.         Dim tpc = TfsTeamProjectCollectionFactory.GetTeamProjectCollection(New Uri(collectionUri))
  9.         Dim versionControlServer = CType(tpc.GetService(Of VersionControlServer)(), VersionControlServer)
  10.         Dim pathStr = String.Format("$/{0}/{1}", projectName, filter)
  11.         Dim dateVerSpec = New DateVersionSpec(versionDate)
  12.         retList = versionControlServer.GetItems(pathStr, dateVerSpec, RecursionType.Full).Items
  13.     Catch ex As Exception
  14.         Throw
  15.     End Try
  16.     Return retList
  17. End Function

Per prima cosa otteniamo l’istanza della classe TfsTeamProjectCollection necessaria per ricavare l’oggetto VersionControlServer il quale ci permette, tramite il metodo GetItems, di recuperare l’elenco degli Items sotto controllo di codice sorgente. Da notare che l’argomento stringa filter può servire per recuperare tutti e soli gli item di un certo tipo (ad esempio “*.vb”).

Ultimo step dell’algoritmo è quello di salvare gli items di tipo file nella cartella decisa dall’utente e per fare ciò ci viene in aiuto il seguente codice:

  1. Private Function SaveItems(ByVal items As IEnumerable(Of Microsoft.TeamFoundation.VersionControl.Client.Item),
  2.                            ByVal destinationPath As String) As IEnumerable(Of String)
  3.     Dim retval = New List(Of String)
  4.     For Each Item In items
  5.         If Item.ItemType = ItemType.File Then
  6.             Dim origFileName = Item.ServerItem.Replace("$/", "")
  7.             origFileName = origFileName.Replace("/", "\")
  8.             Dim fileName = IO.Path.Combine(destinationPath, origFileName)
  9.             Try
  10.                 Item.DownloadFile(fileName)
  11.                 retval.Add(fileName)
  12.             Catch ex As Exception
  13.                 Throw
  14.             End Try
  15.         End If
  16.     Next
  17.     Return retval
  18. End Function

In questo caso iteriamo sugli items di tipo ItemType.File, per ognuno di questi creiamo il percorso in cui salvarlo a partire dal percorso originale all’interno della cartella di destinazione e salviamo il file.

Il metodo che esegue i tre passi precedenti è il seguente:

  1. Private Function DownloadAllItems(ByVal destinationPath As String, _
  2.                                   ByVal versionDate As DateTime) As IEnumerable(Of String)
  3.     Contracts.Contract.Requires(Not String.IsNullOrWhiteSpace(destinationPath), "destinationPath non pu? essere vuota")
  4.     Dim retval = New List(Of String)
  5.     Dim colls As IEnumerable(Of String) = Nothing
  6.     Try
  7.         colls = Me.GetCollectionUris()
  8.     Catch ex As Exception
  9.         Throw
  10.     End Try
  11.     If colls IsNot Nothing Then
  12.         For Each coll In colls
  13.             Dim items As IEnumerable(Of Item) = Nothing
  14.             Try
  15.                 items = GetVersionedItems(coll, Nothing, "*.*", versionDate)
  16.             Catch ex As Exception
  17.                 Throw
  18.             End Try
  19.             If items IsNot Nothing Then
  20.                 Dim collName = coll.Substring(coll.LastIndexOf("/") + 1)
  21.                 Dim destPath = IO.Path.Combine(destinationPath, collName)
  22.                 Try
  23.                     retval.AddRange(SaveItems(items, destPath))
  24.                 Catch ex As Exception
  25.                     Throw
  26.                 End Try
  27.             End If
  28.         Next
  29.     End If
  30.     Return retval
  31. End Function

Nella soluzione che trovate allegata al post, è presente anche una versione asincrona (l’operazione di autenticazione e recupero degli items da TFS può durare anche qualche secondo) che utilizza un algoritmo del tutto analogo.

La form dell’applicazione è la seguente:

SNAGHTML765a70



Commenti

Post popolari in questo blog

MVP Reconnect …… ovvero quando entri nella “famigghia” resti sempre nella “famigghia”!!!

Ma di che “famigghia” stiamo parlando!!!!

Fermi tutti, non si tratta di robe strane o sette segrete o affari malavitosi….stiamo parlando della grande famiglia dei Microsoft MVP.

Per chi non sapesse cosa sono i Microsoft MVP, vi consiglio di fare un giro sul sito ufficiale del programma (link), ma, volendolo spiegare in pochisime parole, si tratta di un riconoscimento che Microsoft da a persone che si distinguono per il loro impegno, aiutando gli altri ad ottenere il massimo grazie alle tecnologie Microsoft. Si tratta di persone, non dipendenti Microsoft, che mettono la loro passione, il loro tempo, la loro buona volontà per la divulgazione e la condivisione della conoscenza. Non necessariamente (come qualcuno erroneamente sostiene, evidentemente non conoscendo le basi del programma) si tratta di professionisti nel termine letterale del termine ma si tratta comunque di un gruppo di persone che sacrifica un pò del suo tempo (e, a volte, vi assicuro neanche pò!!!) per la sua passione.

Pe…

Nuova versione del Band SDK

E’ di ieri l’annuncio del rilascio della nuova versione dell’SDK per il Microsoft Band.
Si tratta della versione 1.3.10417 (la precedente e, prima della serie, era la 1.3.10219 preview).
Maggiori informazioni, download dell’SDK per le tre piattaforme Windows Phone, iOS e Android all’indirizzo http://developer.microsoftband.com/.
Allo stesso indirizzo potrete trovare anche la documentazione.
Nei mesi scorsi mi sono gia’ occupato della precedente versione e questi sono i post che ne parlano:
Microsoft Band SDK Preview - First LookMicrosoft Band SDK Preview - ”Hello Band”Microsoft Band SDK Preview - Accesso ai sensoriMicrosoft Band SDK Preview - TileMicrosoft Band SDK Preview - NotificheMicrosoft Band SDK Preview - Personalizzazione
Gli argomenti trattati e il codice proposto dovrebbe, ad una prima lettura delle nuove funzionalita’ inserite, essere ancora valido e funzionante ma nei prossimi giorni prendero’ in esame tutti gli argomenti dei precedenti post e vedremo cosa cambia e cosa e’ …

Template di progetto per sviluppare applicazioni WPF con Intel® RealSense™

E’ disponibile, nella gallery di Visual Studio, la prima versione del mio template di progetto per applicazioni WPF scritte in C# che permette di realizzare applicazioni con l’SDK di Intel® RealSense™.Il template si può scaricare direttamente all’interno Visual Studio utilizzando il tool “Extensions and Updates”oppure all’indirizzo https://visualstudiogallery.msdn.microsoft.com/1c36ecfd-8c00-4aee-b20c-a1726ab6424dIl template esegue le seguenti operazioni per voi:Aggiunge la reference all’assembly libpxcclr.cs.dll (nelle due distinte versioni per x86 e x64);Aggiunge lo script di post build per copiare la libreria libpxccpp2c.dll dalla cartella dell’SDK alla cartella bin del vostro progetto.Una volta creato il progetto dovete rimuovere la configurazione di compilazione AnyCPU (che non ha più senso) dalla vostra solution e sarete pronti per sviluppare con Intel® RealSense™.Ovviamente dovete installare l’SDK che potete scaricare all’indirizzo https://software.intel.com/en-us/intel-realsen…