Pegar Informações do Subversion(SVN)
Enviado: 25 Abr 2011 19:16
Para quem usa Subversion + TortoiseSVN para gerenciamento de codigo fonte de projetos, e quer pegar dados do SVN para colocar no sistema.
Código: Selecionar todos
FUNCTION PEGA_VER_SVN
LOCAL oREV, oSVN
TRY
oSVN := GetActiveObject( "Scripting.FileSystemObject" )
CATCH
TRY
oSVN := CreateObject( "Scripting.FileSystemObject" )
CATCH
MsgStop("Não foi Possivel Achar o TortoiseSVN Instalado","Aviso do Sistema")
RETURN
END
END
TRY
oREV := GetActiveObject( "SubWCRev.object" )
CATCH
TRY
oREV := CreateObject( "SubWCRev.object" )
CATCH
MsgStop("Não foi Possivel Achar o TortoiseSVN Instalado","Aviso do Sistema")
RETURN
END
END
oREV:GetWCInfo(oSVN:GetAbsolutePathName("."), 1, 1) // direciona o path para pasta padrão
//oREV:GetWCInfo(oSVN:GetAbsolutePathName("arquivo.prg"), 1, 1) // direciona o path para um arquivo
MsgInfo( 'Revisão: ' + ALLTRIM(STR(oREV:Revision)) + ' Ultima alteração feita por: ' + oREV:Author +' no dia: ' + oREV:Date )
oREV=nil
oSVN=nil
/*
Outras propriedades:
"Revision = " + oREV:Revision
"Min Revision = " + oREV:MinRev
"Max Revision = " + oREV:MaxRev
"Date = " + oREV:Date
"URL = " + oREV:Url
"Author = " + oREV:Author
*/
RETURN