Remodelações

Hoje a conselho de um amigo e depois de algum esforço, o blog foi remodelado de forma a incluir o sintaxhighlighter. Deu um bocadito de trabalho para se modificar tanta coisa, mas parece ter valido a pena o efeito

iTextSharp em Visual Basic Dot net

Recentemente utilizei um componente gratuito em Visual Basic Dot Net que me pareceu digno de ser dado a conhecer. Trata-se do iTextSharp. Esta simples biblioteca permite muito mais do que o nome sugere. Além de permitir gerar ficheiros Portable Document Format a partir de programas feitos em Visual Basic Dot Net.

Existem bons exemplos feitos em C#, e alguns em VB, mas são muito poucos. Gerar PDF’s a partir de VB sem recurso a ferramentas proprietárias não é complicado, desde que se conheçam os componentes correctos e se lhes dê uso.

O código que abaixo apresento gera um documento pdf e foi colocado num botão, para simplificar as coisas. Existem formas de fazer Reports, assinar digitalmente documentos, cifrar documentos, entre outras coisas com o iTextSharp. Eu apenas me concentrei em fazer um exemplo o mais simples possível. O limite é virtualmente a imaginação do programador.

Inicialmente indico ao VB que vou precisar dos seguintes componentes:

Nem todos os programadores escrevem bem Português! Mas isso não faz deles menores.
Agora num botão normal coloco o código que vai gerar o ficheiro .pdf em c:\ , o documento é formatado em A4, com margens, e apenas inclui alguns parágrafos e pedaços de código não formatados. Penso que para iniciar será melhor assim.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  'Cria uma class de objectos Documento e define o formato de página (A4), a margem esquerda, direita, superior e inferior  
  Dim doc As New Document(iTextSharp.text.PageSize.A4, 10, 10, 42, 35)  
  Try  
    Dim wri As PdfWriter = PdfWriter.GetInstance(doc, New FileStream("c:\PAP.pdf", FileMode.Create))  
    'Abre o documento para Escrita  
    doc.Open()  
    'Escreve algum conteudo no documento  
    Dim paragraph As New Paragraph("Esta é a Primeira linha do primeiro paragrafo deste exemplo.")  
    Dim pharse As New Phrase("Esta é a segunda linha usando uma fraze.")  
    Dim chunk As New Chunk(" Esta é a terceira linha usando um Chunk (pedaço desformatado).")  
    Dim blankline As New Paragraph(" ")  
    ' Agora adiciona o texto criado acima utilizadno diferentes objectos de class para o documento pdf  
    doc.Add(paragraph)  
    doc.Add(pharse)  
    doc.Add(chunk)  
    doc.Add(blankline)  
  Catch dex As DocumentException  
    'Trata das excepções de Documento  
  Catch ioex As IOException  
    'Trada das excepções de input/output  
  Catch ex As Exception  
    'trata das restantes excepções  
  Finally  
    'fecha o documento  
    doc.Close()  
  End Try  
 End Sub  
 End Class  

Acima deixo um exemplo basico de algo que eu pesquisei e não encontrei, dedicado a quem precisar e agora encontre. Porque partilhar Código e Know-How é mais do que uma simples "politica", é disponibilizar aos outros o que gostariamos que nos disponibilizassem a nós!

Se por algum acaso achares este How-To inutil, diz! Manda um mail! Diz o quão inutil ele é! Pois para um "Blog Estipido (Yet Another Stupid Blog)" é mesmo disto que ele precisa!

3DES VB Dot NET

Hoje escrevo um pedaço de codigo (duas funções) para utilização de Triple DES em VB Dot NET, pois passei algumas horas na net em busca de um exemplo de como fazer isto e não encontrei nada! :(

Espero que isto seja util para alguém ;) Afinal de contas TripleDES ainda é das formas seguras de guardar dados ;)

Dedicado a uma Anjo Tigre que me serviu de inspiração! 88 teclas, 9 anos, 7 dias e muita paciencia... para me servir de inspiração ainda nos dias que correm!

Recuperar uma BD de ACCESS MDB

Desta vez o How-to, vai ser sobre um "truque" já antigo mas ainda muito util: Como recuperar uma Base de dados em formato .MDB que tenha ficado ligeiramente corrompida:

1- Fazer uma cópia de segurança da base de dados (Italico porque muita gente não o faz, salta este paço importantissimo)

2- Abrir o Painel de Controlo no Menu iniciar do Microsoft Windows
3- Duplo click no icon Ferramentas administrativas

4- Dentro das ferramentas Administrativas Duplo-Click em Origem de dados (ODBC)
5- Abrir o Separador DSN de Sistema

6- Clicar no Botão Configurar

7- Clicar no botão Reparar

8- Navegar até ao ficheiro de base de dados que pertendemos reparar e seleciona-lo

9- Clicar no botão OK

10- Deve aparecer uma caixa de mensagem com a informação de que a base de dados foi reparada com sucesso. Assim a base de dados estará pronta a ser utilizara






Boa utilização!

(Conhecimento é puder, use-o com sabedoria)

Fazer o Windows Ver uma PEN/Unidade Flash como um disco local

Como fazer o Windows detectar memória flash como se fosse um disco rígido (testado
em XP e Vista)

Teoria: O Windows detecta as unidades usb como sendo unidades amovíveis, o truque
é fazer com que o Sistema Operativo (Windows) veja determinada pen (Marca e modelo
expecifico) como sendo um disco rígido, cada vez que a unidade seja ligada numa porta
USB da maquina onde o driver foi instalado

Pré-Requisitos:
· Dirver USB_Local_Disk
· Notepad ++ ou outro editor ASCII

Como fazer o Windows detectar a memória flash como um disco:

1. Numa maquina Windows liga a pen na porta USB

2. Partindo do pressuposto que usas notepad++ não precisas de o sacar, se não usas Google e saca!

3. Copia o ficheiro USB_Localdisk.zip para o teu ambiente de trabalho e descompacta-o

4. Abre com o notepad++ o ficheiro cfadisk.inf que está na pasta onde acabaste de descomprimir o zip

5. Vai até à linha 26 do ficheiro cfadisk.inf . Aqui selecionas o texto Nome_da_instancia_da_pen. E deixa o file aberto

6. Apartir do Windows segue os seguintes paços Iniciar-> Executar e digita devmgmt.msc depois clica Ok

7. Em Unidades de disco, faz duplo click na tua unidade "USB Flash":

8. Na janela de Propriedades clica em Detalhes. Seleciona o texto em ID de Instancia de Dispositivo e faz crtl+c

9. Agora na selecção que fizeste antes, na linha 26 faz ctrl+v Grava e feixa

10. Clicka no Iniciar-> Executar e digita devmgmt.msc clicak Ok voltas ao gestor de dispositivos.

11. Em Unidades de Disco, vai até à pen click-direito e seleciona a opção Actualizar Controlador:

12. Escolhe Não

13. Seguinte e Instalar apartir de uma lista ou localização especifica

14. Seguint, escolhe Não eu escolherei o controlador a instalar

15. Escolhe Disco e vai até onde gravaste a pasta que descomprimiste e o ficheiro que modificas-te (USB_LocalDisk) . Seleciona cfadisk.inf clica Open e OK

16. Vais receber os avisos idiotas do Windows sobre o Driver (Manda pastar)

17. Pronto a bombar (Deves ver a pen como se fosse um disco local! Copia para lá os files .mdf e .ldf e faz o atach no SQL Studio

Notas: Sempre que quizeres utilizar um dispositivo de marca ou modelo diferente para
este efeito basta seguires estes paços (uma vez para cada marca e modelo)

P.S.: Se gostas-te do How-to pensa que alguém teve de tomar muito Cafézinho para o escrever!

YASB

Como ideia surgida durante a passada madruga hoje, inicia-se o YASB (Yet Another Stupid Blog) Apenas Mais um Blog Estupido!

Vamos ver quanto tempo irá durar, e esperar que os how-to's que vão ser disponibilizados sejam uteis!