Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

» Total Code Generator
9/9/2016, 17:43 por robsonpassos

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

TRANSPOR TABELA

9/11/2016, 10:34 por hidroluz

Bom dia a todos, gostaria de saber como consigo fazer a transposição de uma tabela no VFP.



Comentários: 0

Estatísticas
Temos 6959 usuários registrados
O último usuário registrado atende pelo nome de EDBERTO

Os nossos membros postaram um total de 17117 mensagens em 2575 assuntos

Arquivo INI

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo Arquivo INI

Mensagem por Marcos Guedes em 28/8/2009, 13:43

Encontrei uma ótima rotina para leitura de arquivo .ini no seguinte link:
mentalis.org/soft/class.qpx?id=6

Espero que seja útil aos colegas:
Código:
using System;
using System.Text;
using System.Collections;
using System.Runtime.InteropServices;

namespace Org.Mentalis.Files
{
    public class IniReader
    {
        // API declarations
        [DllImport("KERNEL32.DLL", EntryPoint = "GetPrivateProfileIntA", CharSet = CharSet.Ansi)]
        private static extern int GetPrivateProfileInt(string lpApplicationName, string lpKeyName, int nDefault, string lpFileName);
        [DllImport("KERNEL32.DLL", EntryPoint = "WritePrivateProfileStringA", CharSet = CharSet.Ansi)]
        private static extern int WritePrivateProfileString(string lpApplicationName, string lpKeyName, string lpString, string lpFileName);
        [DllImport("KERNEL32.DLL", EntryPoint = "GetPrivateProfileStringA", CharSet = CharSet.Ansi)]
        private static extern int GetPrivateProfileString(string lpApplicationName, string lpKeyName, string lpDefault, StringBuilder lpReturnedString, int nSize, string lpFileName);
        [DllImport("KERNEL32.DLL", EntryPoint = "GetPrivateProfileSectionNamesA", CharSet = CharSet.Ansi)]
        private static extern int GetPrivateProfileSectionNames(byte[] lpszReturnBuffer, int nSize, string lpFileName);
        [DllImport("KERNEL32.DLL", EntryPoint = "WritePrivateProfileSectionA", CharSet = CharSet.Ansi)]
        private static extern int WritePrivateProfileSection(string lpAppName, string lpString, string lpFileName);
        public IniReader(string file)
        {
            Filename = file;
        }       
        public string Filename
        {
            get
            {
                return m_Filename;
            }
            set
            {
                m_Filename = value;
            }
        }       
        public string Section
        {
            get
            {
                return m_Section;
            }
            set
            {
                m_Section = value;
            }
        }       
        public int ReadInteger(string section, string key, int defVal)
        {
            return GetPrivateProfileInt(section, key, defVal, Filename);
        }       
        public int ReadInteger(string section, string key)
        {
            return ReadInteger(section, key, 0);
        }       
        public int ReadInteger(string key, int defVal)
        {
            return ReadInteger(Section, key, defVal);
        }       
        public int ReadInteger(string key)
        {
            return ReadInteger(key, 0);
        }       
        public string ReadString(string section, string key, string defVal)
        {
            StringBuilder sb = new StringBuilder(MAX_ENTRY);
            int Ret = GetPrivateProfileString(section, key, defVal, sb, MAX_ENTRY, Filename);
            return sb.ToString();
        }       
        public string ReadString(string section, string key)
        {
            return ReadString(section, key, "");
        }       
        public string ReadString(string key)
        {
            return ReadString(Section, key);
        }       
        public long ReadLong(string section, string key, long defVal)
        {
            return long.Parse(ReadString(section, key, defVal.ToString()));
        }       
        public long ReadLong(string section, string key)
        {
            return ReadLong(section, key, 0);
        }       
        public long ReadLong(string key, long defVal)
        {
            return ReadLong(Section, key, defVal);
        }       
        public long ReadLong(string key)
        {
            return ReadLong(key, 0);
        }       
        public byte[] ReadByteArray(string section, string key)
        {
            try
            {
                return Convert.FromBase64String(ReadString(section, key));
            }
            catch { }
            return null;
        }       
        public byte[] ReadByteArray(string key)
        {
            return ReadByteArray(Section, key);
        }       
        public bool ReadBoolean(string section, string key, bool defVal)
        {
            return Boolean.Parse(ReadString(section, key, defVal.ToString()));
        }       
        public bool ReadBoolean(string section, string key)
        {
            return ReadBoolean(section, key, false);
        }       
        public bool ReadBoolean(string key, bool defVal)
        {
            return ReadBoolean(Section, key, defVal);
        }       
        public bool ReadBoolean(string key)
        {
            return ReadBoolean(Section, key);
        }       
        public bool Write(string section, string key, int value)
        {
            return Write(section, key, value.ToString());
        }       
        public bool Write(string key, int value)
        {
            return Write(Section, key, value);
        }       
        public bool Write(string section, string key, string value)
        {
            return (WritePrivateProfileString(section, key, value, Filename) != 0);
        }       
        public bool Write(string key, string value)
        {
            return Write(Section, key, value);
        }       
        public bool Write(string section, string key, long value)
        {
            return Write(section, key, value.ToString());
        }       
        public bool Write(string key, long value)
        {
            return Write(Section, key, value);
        }       
        public bool Write(string section, string key, byte[] value)
        {
            if (value == null)
                return Write(section, key, (string)null);
            else
                return Write(section, key, value, 0, value.Length);
        }       
        public bool Write(string key, byte[] value)
        {
            return Write(Section, key, value);
        }       
        public bool Write(string section, string key, byte[] value, int offset, int length)
        {
            if (value == null)
                return Write(section, key, (string)null);
            else
                return Write(section, key, Convert.ToBase64String(value, offset, length));
        }       
        public bool Write(string section, string key, bool value)
        {
            return Write(section, key, value.ToString());
        }       
        public bool Write(string key, bool value)
        {
            return Write(Section, key, value);
        }       
        public bool DeleteKey(string section, string key)
        {
            return (WritePrivateProfileString(section, key, null, Filename) != 0);
        }       
        public bool DeleteKey(string key)
        {
            return (WritePrivateProfileString(Section, key, null, Filename) != 0);
        }       
        public bool DeleteSection(string section)
        {
            return WritePrivateProfileSection(section, null, Filename) != 0;
        }       
        public ArrayList GetSectionNames()
        {
            try
            {
                byte[] buffer = new byte[MAX_ENTRY];
                GetPrivateProfileSectionNames(buffer, MAX_ENTRY, Filename);
                string[] parts = Encoding.ASCII.GetString(buffer).Trim('\0').Split('\0');
                return new ArrayList(parts);
            }
            catch { }
            return null;
        }

        private string m_Filename;       
        private string m_Section;       
        private const int MAX_ENTRY = 32768;
    }
}

Obs: Precisei retirar a documentação pois o conteúdo estava grande para postar.
Não deixe de baixar o arquivo original:
[Você precisa estar registrado e conectado para ver este link.]


Última edição por Marcos Guedes em 20/7/2010, 14:20, editado 1 vez(es)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Arquivo INI

Mensagem por Marcos Guedes em 28/8/2009, 13:45

Segue um exemplo de como utilizar a rotina:
Código:
using System;
using System.Collections;
using Org.Mentalis.Files;

public class TestApp {
   public static void Main() {
      IniReader ini = new IniReader("c:\\test.ini");
      ini.Write("Section1", "KeyString", "MyString");
      ini.Write("Section1", "KeyInt", 5);
      ini.Write("Section2", "KeyBool", true);
      ini.Write("Section2", "KeyBytes", new byte[] {0, 123, 255});
      ini.Write("Section3", "KeyLong", (long)123456789101112);
      ini.Section = "Section1";
      Console.WriteLine("String: " + ini.ReadString("KeyString"));
      Console.WriteLine("Int: " + ini.ReadInteger("KeyInt", 0).ToString());
      Console.WriteLine("Bool: " + ini.ReadBoolean("Section2", "KeyBool", false).ToString());
      Console.WriteLine("Long: " + ini.ReadLong("Section3", "KeyLong", 0).ToString());
      Console.WriteLine("Byte 1 in byte array: " + ini.ReadByteArray("Section2", "KeyBytes")[1].ToString());
      ini.DeleteKey("Section2", "KeyBytes");
      ini.DeleteSection("Section3");
      IEnumerator e = ini.GetSectionNames().GetEnumerator();
      while(e.MoveNext()) {
         Console.WriteLine(e.Current);
      }
      Console.WriteLine("Press enter to continue...");
      Console.ReadLine();
   }
}

Obs: Este exemplo foi retirado do próprio arquivo contido no seguinte link:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum