Pular para o conteúdo principal

Postagens

Mostrando postagens com o rótulo arquivo

Compactando arquivos (Android)

Dica rápida! Segue uma dica rápida para realizar a compactação de arquivos no Android, não deixem de visitar o artigo original 1 Classe import android.util.Log; import java.io.BufferedInputStream; import java.io.BufferedOutputStream; import java.io.FileInputStream; import java.io.FileOutputStream; import java.util.zip.ZipEntry; import java.util.zip.ZipOutputStream; public class Compress { private static final int BUFFER = 2048 ; private String[] _files; private String _zipFile; public Compress (String[] files, String zipFile) { _files = files; _zipFile = zipFile; } public void zip () { try { BufferedInputStream origin = null ; FileOutputStream dest = new FileOutputStream(_zipFile); ZipOutputStream out = new ZipOutputStream( new BufferedOutputStream(dest)); byte data[] = new byte [BUFFER]; for ( int i= 0 ; i < _files.length; i++) { Log.v( "Compress"

Verificar tamanho de arquivo (Delphi)

Para essa pequena dica construiremos um formulário contendo dois Edits e um botão, o primeiro Edit recebe o caminho e nome do arquivo, o segundo receberá o tamanho em bytes. Segue a cadificação do evento click do botão: procedure TForm1.Button1Click(Sender: TObject); var   SR: TSearchRec;   I: integer; begin   I := FindFirst(Edit1.Text, faArchive, SR);   try     if I = 0 then       Edit2.Text := IntToStr( SR.Size )     else       Edit2.Text := '-1';   finally     FindClose(SR);   end; end; Baixe o exemplo completo aqui .

Arquivo de configuração ASP .NET

Para quem não quer gravar certas informações no web.config pode muito bem estruturar um arquivo xml para guardar informações, segue um exemplo em C# de como fazer isso:      //     //gravando informação no CONFIG.xml     public void gravaConf(String tipo, String val)     {         String par = "";         //         //Carrega em DOC o arquivo XML, o caminho pode ser uma url ou diretorio local                XmlDocument doc = new XmlDocument();         doc.Load(HttpContext.Current.Server.MapPath("~/CONF/CONFIG.XML"));         XmlNode no;         no = doc.SelectSingleNode("//CONF/" + tipo);         no.InnerText = val;                 doc.Save(HttpContext.Current.Server.MapPath("~/CONF/CONFIG.XML"));                doc = null;     } // //recupera informação do CONFIG.xml public String recuperaConf(String tipo) {     String par = "

Ler de um arquivo de configuração (.INI no Delphi)

Em muitos casos precisamos tornar nossas aplicações customizáveis, disponibilizando parâmetros que possam ser alterados, sejam eles informações a respeito de uma conexão com o banco de dados, uma senha, ou mesmo possibilitar a alteração do layout do sistema, tudo depende da necessidade e de como o programador pensa em termos de mobilidade para o usuário final. Exemplo de arquivo INI [PARAMETRO] SENHA=12345 Lendo um arquivo INI var // variável que irá conter o arquivo config : TIniFile; // variável que irá armazenar parâmetro a ser lido do arquivo param : string; begin // associa o arquivo de configuração a variável config := TIniFile.Create('C:\Aplicacao\config.ini'); //variável param recebe 12345 param := config.readstring('PARAMETRO','SENHA',''); end;

Remover pontos de nome de arquivo (Delphi)

O exemplo a seguir nos mostra como remover pontos de um nome de arquivo, deixando é claro o da extensão: procedure TForm1.Button1Click(Sender: TObject); var vl_a: integer; vl_i: integer; begin //verifica indice do ultimo ponto FOR vl_i:= Length(LabeledEdit1.Text) DOWNTO 1 DO BEGIN IF Copy(LabeledEdit1.Text, vl_i, 1) = '.' THEN BEGIN vl_a := vl_i; Break; END; END; //copia texto ignorando os pontos, exceto quando o ponto estiver no inidice encontrado //anteriormente FOR vl_i:= 1 TO Length(LabeledEdit1.Text) DO BEGIN IF ( Copy(LabeledEdit1.Text, vl_i, 1) <> '.' ) THEN LabeledEdit2.Text := LabeledEdit2.Text + Copy(LabeledEdit1.Text, vl_i, 1) ELSE IF ( vl_i = vl_a ) THEN LabeledEdit2.Text := LabeledEdit2.Text + Copy(LabeledEdit1.Text, vl_i, 1) END; end; Baixe o exemplo aqui .

Descobrir tipo do Arquivo (Delphi)

Segue um exemplo de como verificar o tipo de um determinado arquivo, digita-se o nome do arquivo juntamente com o caminho no Edit1, e ao clicar no botão o Edit2 recebe o tipo do arquivo: Function TipoArquivo(const p_File: String): String; var v_Inf: TSHFileInfo; begin IF SHGetFileInfo(PChar(p_File),0,v_Inf,Sizeof(v_Inf),SHGFI_TYPENAME) <> 0 THEN Result := StrPas(v_Inf.szTypeName) ELSE BEGIN Result := ExtractFileExt(p_File); Delete(Result,1,1); Result := Result +' File'; END; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit2.Text := TipoArquivo(Edit1.Text); end; Baixe o exemplo aqui .

Armazenando BMP's em arquivo de recurso ".RES"

1. Crie um arquivo texto, com um nome qualquer e a extensão ".RC", para o exemplo usaremos "RECURSO.RC". Nesse arquivo digite o seguinte: GRAFICO BITMAP "C:\Imagens\Grafico.bmp" Lembrando que para cada imagem teremos uma linha. 2. Após salvar o arquivos devemos Compilar o mesmo usando o programa BRCC32.EXE localizdo no diretorio BIN do Delphi, feito isso, sera gerado o arquivo RECURSO.RES. 3. Na Unit que usará o recuro devemos colocar o seguinte: {$R RECURSOS.RES} Para usar a imagem contida no arquivo de recurso precisamos apenas criar uma variavel do tipo bitmap e depois executar o seguinte comando: VarTipoTBitmap:= LoadBitmap(HInstance,'BITMAP_1');