Login
Estamos no Facebook
Buscar
Quem está conectado
Há 19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de buscaNenhum
[ Ver toda a lista ]
O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Brasília
| |
Estamos no Twitter

Nossa Comunidade

Nosso Grupo

Últimos assuntos
Top dos mais postadores
| Marcos Guedes | ||||
| hugo | ||||
| alceu11 | ||||
| Julio | ||||
| m@r<3|o | ||||
| mfelis | ||||
| Tales Ruan | ||||
| Nelson Arcas | ||||
| _batmanvfp_ | ||||
| marcio |
Karaoke feito em FoxPro 2.6
23/5/2012, 11:45 por fabiomacarrao
Bom dia a todos. Desenvolvi um programa em FoxPro for windows 2.6 para karaoke. tenho mais de 2700 …
Comentários: 3
Estatísticas
Temos 4048 usuários registradosO último usuário registrado atende pelo nome de fabiomacarrao
Os nossos membros postaram um total de 14428 mensagens em 2047 assuntos
[Tópico Único] - Funções úteis
Página 1 de 2 • Compartilhe •
Página 1 de 2 • 1, 2 
[Tópico Único] - Funções úteis
Enviando Email:
- Código:
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.HtmlControls;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Net;
using System.Net.Mail;
/// <summary>
/// Summary description for EnviaEmail
/// </summary>
namespace EnvioEmail
{
public class EnviaEmail
{
#region valores padrões
private string host = "smtp.gmail.com";
private int porta = 587;
private bool SSL = true;
//
private string nomeRemetente = "Nome do Remetente";
private string emailRemetente = "email@remetente.com";
private string nomeDestinatario = "Nome do Destinatário";
private string emailDestinatario = "email@destinatario.com.br";
//
private bool isHTML = false;
private string conteudo = "";
private string assunto = "";
//
private string emailCredenciado = "teste@dominio.com";
private string senhaCredenciada = "senha";
#endregion
#region métodos set para alteração dos valores padrões
public void setHost(string host) { this.host = host; }
public void setPorta(int porta) { this.porta = porta; }
public void setSSL(bool SSL) { this.SSL = SSL; }
public void setNomeRemetente(string nome) { this.nomeRemetente = nome; }
public void setEmailRemetente(string email) { this.emailRemetente = email; }
public void setNomeDestinatario(string nome) { this.nomeDestinatario = nome; }
public void setEmailDestinatario(string email) { this.emailDestinatario = email; }
public void setIsHTML(bool HTML) { this.isHTML = HTML; }
public void setConteudo(string conteudo) { this.conteudo = conteudo; }
public void setAssunto(string assunto) { this.assunto = assunto; }
public void setEmailCrendeciado(string email) { this.emailCredenciado = email; }
public void setSenhaCredenciada(string senha) { this.senhaCredenciada = senha; }
#endregion
public EnviaEmail()
{
//
// TODO: Add constructor logic here
//
}
public bool enviar()
{
// Enviar o email
bool enviado = false;
try
{
SmtpClient cliente = new SmtpClient(this.host, this.porta);
cliente.EnableSsl = this.SSL; ;
MailAddress remetente = new MailAddress(this.emailRemetente, this.nomeRemetente);
MailAddress destinatario = new MailAddress(this.emailDestinatario, this.nomeDestinatario);
MailMessage mensagem = new MailMessage(remetente, destinatario);
mensagem.IsBodyHtml = this.isHTML; // define se será em formato html, ou não
mensagem.Body = this.conteudo;
mensagem.Subject = this.assunto;
NetworkCredential credenciais = new NetworkCredential(this.emailCredenciado, this.senhaCredenciada, "");
cliente.Credentials = credenciais;
//
cliente.Send(mensagem);
enviado = true;
}
catch { }
return enviado;
}
public bool enviar2()
{
// Use esta, se a função acima não funcionar
bool enviado = false;
try
{
SmtpClient cliente = new SmtpClient(this.host);
NetworkCredential credenciais = new NetworkCredential(this.emailCredenciado, this.senhaCredenciada);
//
cliente.EnableSsl = this.SSL; ;
cliente.UseDefaultCredentials = false;
cliente.Credentials = credenciais;
//
MailAddress remetente = new MailAddress(this.emailRemetente);
MailAddress destinatario = new MailAddress(this.emailDestinatario);
MailMessage mensagem = new MailMessage(remetente, destinatario);
//
mensagem.IsBodyHtml = this.isHTML; // define se será em formato html, ou não
mensagem.Body = this.conteudo;
mensagem.BodyEncoding = System.Text.Encoding.UTF8;
mensagem.Subject = this.assunto;
mensagem.SubjectEncoding = System.Text.Encoding.UTF8;
//
cliente.Send(mensagem);
enviado = true;
}
catch { }
return enviado;
}
}
}
Última edição por Marcos Guedes em 8/1/2010, 12:01, editado 8 vez(es) (Razão : Alguns erros corridos!)
Marcos Guedes- Webmaster

Funções úteis
Retornando o conteúdo de uma página web:
- Código:
public string GetContent(string url)
{
string result = "Error communicating with server";
System.Net.HttpWebRequest wreq = (System.Net.HttpWebRequest)System.Net.WebRequest.Create(url);
wreq.Method = "GET";
wreq.Timeout = 3000;
System.Net.HttpWebResponse wr = (System.Net.HttpWebResponse)wreq.GetResponse();
if (wr.StatusCode == System.Net.HttpStatusCode.OK)
{
System.IO.Stream s = wr.GetResponseStream();
System.Text.Encoding enc = System.Text.Encoding.GetEncoding("utf-8");
System.IO.StreamReader readStream = new System.IO.StreamReader(s, enc);
result = readStream.ReadToEnd();
}
return result;
}
Última edição por Marcos Guedes em 21/6/2009, 00:52, editado 1 vez(es)
Marcos Guedes- Webmaster

Funções úteis
Retira acentos de um texto:
Retirado do link abaixo:
[Você precisa estar registrado e conectado para ver este link.]
- Código:
public string TirarAcentos(string texto)
{
string textor = "";
for (int i = 0; i < texto.Length; i++)
{
if (texto[i].ToString() == "ã") textor += "a";
else if (texto[i].ToString() == "á") textor += "a";
else if (texto[i].ToString() == "à") textor += "a";
else if (texto[i].ToString() == "â") textor += "a";
else if (texto[i].ToString() == "ä") textor += "a";
else if (texto[i].ToString() == "é") textor += "e";
else if (texto[i].ToString() == "è") textor += "e";
else if (texto[i].ToString() == "ê") textor += "e";
else if (texto[i].ToString() == "ë") textor += "e";
else if (texto[i].ToString() == "í") textor += "i";
else if (texto[i].ToString() == "ì") textor += "i";
else if (texto[i].ToString() == "ï") textor += "i";
else if (texto[i].ToString() == "õ") textor += "o";
else if (texto[i].ToString() == "ó") textor += "o";
else if (texto[i].ToString() == "ò") textor += "o";
else if (texto[i].ToString() == "ö") textor += "o";
else if (texto[i].ToString() == "ú") textor += "u";
else if (texto[i].ToString() == "ù") textor += "u";
else if (texto[i].ToString() == "ü") textor += "u";
else if (texto[i].ToString() == "ç") textor += "c";
else if (texto[i].ToString() == "Ã") textor += "A";
else if (texto[i].ToString() == "Á") textor += "A";
else if (texto[i].ToString() == "À") textor += "A";
else if (texto[i].ToString() == "Â") textor += "A";
else if (texto[i].ToString() == "Ä") textor += "A";
else if (texto[i].ToString() == "É") textor += "E";
else if (texto[i].ToString() == "È") textor += "E";
else if (texto[i].ToString() == "Ê") textor += "E";
else if (texto[i].ToString() == "Ë") textor += "E";
else if (texto[i].ToString() == "Í") textor += "I";
else if (texto[i].ToString() == "Ì") textor += "I";
else if (texto[i].ToString() == "Ï") textor += "I";
else if (texto[i].ToString() == "Õ") textor += "O";
else if (texto[i].ToString() == "Ó") textor += "O";
else if (texto[i].ToString() == "Ò") textor += "O";
else if (texto[i].ToString() == "Ö") textor += "O";
else if (texto[i].ToString() == "Ú") textor += "U";
else if (texto[i].ToString() == "Ù") textor += "U";
else if (texto[i].ToString() == "Ü") textor += "U";
else if (texto[i].ToString() == "Ç") textor += "C";
else textor += texto[i];
}
return textor;
}
Retirado do link abaixo:
[Você precisa estar registrado e conectado para ver este link.]
Marcos Guedes- Webmaster

Funções úteis
Ler aquivos texto:
- Código:
public string lerArquivo(string caminhoArquivo)
{
int counter = 0;
string line;
string conteudo = "";
System.IO.StreamReader file = new System.IO.StreamReader(caminhoArquivo);
while ((line = file.ReadLine()) != null)
{
conteudo += line + (char)13 + (char)10 ;
counter++;
}
file.Close();
return conteudo;
}
Última edição por Marcos Guedes em 21/6/2009, 00:53, editado 1 vez(es)
Marcos Guedes- Webmaster

Funções úteis
Pegar IP na internet:
- Código:
public string GetIpRemoto(string url)
{
//Cria uma requisição para a URL
WebRequest rq = WebRequest.Create(url);
//obtém o response a partir do request
HttpWebResponse rp = (HttpWebResponse)rq.GetResponse();
//obtém um stream contendo a resposta retornada pelo servidor
Stream ds = rp.GetResponseStream();
//Cria um StreamReader para leitura
StreamReader rd = new StreamReader(ds);
//Lê os dados
string responseFromServer = rd.ReadToEnd();
//fecha os objetos
rd.Close();
ds.Close();
rp.Close();
//procura por indexafor fixo no resultado
string URL = "IP";
int i = responseFromServer.IndexOf(URL) + URL.Length + 2;
//captura o IP descoberto
URL = string.Empty;
while (!(responseFromServer[i].ToString() == "<"))
{
URL += responseFromServer[i];
i += 1;
}
return URL.Trim();
}
Última edição por Marcos Guedes em 21/6/2009, 00:53, editado 1 vez(es)
Marcos Guedes- Webmaster

Funções úteis
Criptografia MD5:
- Código:
public string MD5(string Valor)
{
return FormsAuthentication.HashPasswordForStoringInConfigFile(Valor, "MD5");
}
Última edição por Marcos Guedes em 21/6/2009, 00:54, editado 1 vez(es)
Marcos Guedes- Webmaster

Funções úteis
A função de leitura de arquivo texto poderia se resumir a isto:
Ou então a isto:
Sds.,
Rubem Rocha
Manaus, AM
- Código:
public string LerArquivoTexto(string nomeArquivo)
{
if (File.Exists(nomeArquivo))
return File.ReadAllText(nomeArquivo);
else
return String.Empty;
}
Ou então a isto:
- Código:
public static string[] LerArquivoTexto(string nomeArquivo)
{
if (!File.Exists(nomeArquivo)) return (new string[] {});
string buffer = File.ReadAllText(nomeArquivo, Encoding.Default);
return (buffer.Split(new string[] { "\r\n" }, StringSplitOptions.None));
}
Sds.,
Rubem Rocha
Manaus, AM
Última edição por Marcos Guedes em 12/7/2009, 15:06, editado 4 vez(es) (Razão : Correção na segunda versão de LerArquivoTexto(). Estava retornando um array com tamanho 1 quando o arquivo não exista. Agora, retorna um array com tamanho zero. Tópico movido para a parte de funções úteis.)
khundalini- Participa Pouco

Funções úteis
Escreve valores em Reais por extenso:
[Você precisa estar registrado e conectado para ver este link.]
[Você precisa estar registrado e conectado para ver este link.]
Marcos Guedes- Webmaster

Re: [Tópico Único] - Funções úteis
Utilizando a função ShellExecute:
Como utilizar:
A função:
Como utilizar:
- Código:
abrirURL("http://forum.programacaobrasil.com");
abrirURL("C:\\arquivo.doc");
A função:
- Código:
using System.Runtime.InteropServices;
[DllImport("shell32.dll")]
private extern static int ShellExecute(int HWND, string lpOperation, string lpFile, string lpParameters, string lpDirectory, int nShowCmd);
public int abrirURL(string url)
{
/// <sumary>
/// Autor: Marcos Guedes
/// Email: [Você precisa estar registrado e conectado para ver este link.]
/// </sumary>
return ShellExecute(0, "open", url, "", "", 1);
}
Marcos Guedes- Webmaster

Re: [Tópico Único] - Funções úteis
Verifica se existe uma url está acessível (pode ser usado para verificar conexão com a internet):
Como usar:
A função:
Como usar:
- Código:
if (isConnectadURL())
{
// URL acessível!
}
else
{
// URL não acessível!
}
A função:
- Código:
using System.Net;
public bool isConnectadURL()
{
/// <sumary>
/// Fonte: http://[Você precisa estar registrado e conectado para ver este link.]
/// </sumary>
bool fail;
System.Uri Url = new System.Uri("http://[Você precisa estar registrado e conectado para ver este link.] //é sempre bom por um site que costuma estar sempre on, para n haver problemas
WebRequest WebReq;
WebResponse Resp;
WebReq = WebRequest.Create(Url);
try
{
Resp = WebReq.GetResponse();
Resp.Close();
WebReq = null;
fail = true; //consegue conexão à internet
}
catch
{
WebReq = null;
fail = false; //falhou a conexão à internet
}
return fail;
}
Marcos Guedes- Webmaster

Re: [Tópico Único] - Funções úteis
Verificando conexão com a internet por meio de uma DLL:
Como chamar:
A função:
Como chamar:
- Código:
if (isConnectedDLL())
{
// Com internet!
}
else
{
// SEM internet!
}
A função:
- Código:
using System.Runtime.InteropServices;
[DllImport("wininet.dll")]
private extern static bool InternetGetConnectedState(out int Description, int ReservedValue);
public bool isConnectedDLL()
{
/// <sumary>
/// Fonte: http://social.msdn.microsoft.com/Forums/pt-BR/vscsharppt/thread/837efe78-19c3-4cd1-a4f9-93df16d16acb
/// </sumary>
int desc;
return InternetGetConnectedState(out desc, 0);
}
Marcos Guedes- Webmaster

Re: [Tópico Único] - Funções úteis
ProperCase:
Fonte: (Copie e cole em seu navegador)
java2s.com/Code/CSharp/Data-Types/Showstringinpropercase.htm
- Código:
public string properCase(string entrada)
{
entrada = entrada.ToLower();
string sProper = "";
char[] seps = new char[] { ' ' };
foreach (string ss in entrada.Split(seps))
{
sProper += char.ToUpper(ss[0]);
sProper +=
(ss.Substring(1, ss.Length - 1) + ' ');
}
return sProper;
}
Fonte: (Copie e cole em seu navegador)
java2s.com/Code/CSharp/Data-Types/Showstringinpropercase.htm
Última edição por Marcos Guedes em 21/7/2010, 12:38, editado 1 vez(es)
_________________
Marcos Guedes - Programador e desenvolvedor Web.
Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras
Marcos Guedes- Webmaster

Re: [Tópico Único] - Funções úteis
Excluindo um diretório e todo o seu conteúdo:
- Código:
string caminho = @"C:\seuDiretorio";
DirectoryInfo diretorio = new DirectoryInfo(caminho);
diretorio.Delete(true);
_________________
Marcos Guedes - Programador e desenvolvedor Web.
Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras
Marcos Guedes- Webmaster

Re: [Tópico Único] - Funções úteis
Reduzindo o tamanho de uma imagem:
Encontrei esta solução no site MSDN e adaptei para tornar mais prática sua utilização.
Como utilizar:
Código da Classe:
Fonte original:
[Você precisa estar registrado e conectado para ver este link.]
Encontrei esta solução no site MSDN e adaptei para tornar mais prática sua utilização.
Como utilizar:
- Código:
TrataImagem objImg = new TrataImagem();
// Reduz o tamanho da imagem com 25% de qualidade
objImg.reduzir("c:\\caminhoImagemOrigem.png", "c:\\caminhoImagemDestino25.jpg", 25);
// Reduz o tamanho da imagem com 50% de qualidade
objImg.reduzir("c:\\caminhoImagemOrigem.png", "c:\\caminhoImagemDestino50.jpg", 50);
// Reduz o tamanho da imagem com 100% de qualidade
objImg.reduzir("c:\\caminhoImagemOrigem.png", "c:\\caminhoImagemDestino100.jpg", 100);
Código da Classe:
- Código:
using System;
using System.Drawing;
using System.Drawing.Imaging;
class TrataImagem
{
public void reduzir(string caminhoArquivoOriginal, string caminhoArquivoDestino, long qualidade)
{
Bitmap myBitmap;
ImageCodecInfo myImageCodecInfo;
Encoder myEncoder;
EncoderParameter myEncoderParameter;
EncoderParameters myEncoderParameters;
// Create a Bitmap object based on a BMP file.
myBitmap = new Bitmap(caminhoArquivoOriginal);
// Get an ImageCodecInfo object that represents the JPEG codec.
myImageCodecInfo = GetEncoderInfo("image/jpeg");
// Create an Encoder object based on the GUID
// for the Quality parameter category.
myEncoder = Encoder.Quality;
// EncoderParameter object in the array.
myEncoderParameters = new EncoderParameters(1);
// Save the bitmap as a JPEG file with quality level 25.
myEncoderParameter = new EncoderParameter(myEncoder, qualidade);
myEncoderParameters.Param[0] = myEncoderParameter;
myBitmap.Save(caminhoArquivoDestino, myImageCodecInfo, myEncoderParameters);
}
private static ImageCodecInfo GetEncoderInfo(String mimeType)
{
int j;
ImageCodecInfo[] encoders;
encoders = ImageCodecInfo.GetImageEncoders();
for (j = 0; j < encoders.Length; ++j)
{
if (encoders[j].MimeType == mimeType)
return encoders[j];
}
return null;
}
}
Fonte original:
[Você precisa estar registrado e conectado para ver este link.]
_________________
Marcos Guedes - Programador e desenvolvedor Web.
Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras
Marcos Guedes- Webmaster

Re: [Tópico Único] - Funções úteis
Listando drivers disponíveis:
- Código:
string[] drives = Directory.GetLogicalDrives();
foreach (string drive in drives)
Console.Write(drive);
_________________
Marcos Guedes - Programador e desenvolvedor Web.
Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras
Marcos Guedes- Webmaster

Página 1 de 2 • 1, 2 
Página 1 de 2
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum
» Criar atalho, SYS(2020) e Desktop
» Karaoke feito em FoxPro 2.6
» Como separar caminho do diretório?
» Erro no Projeto Chat
» Utilizando PHPMailer
» Programador em Visual Foxpro
» Link PHP (Dúvida)
» Fundo do PROJETO Transparente??
» Minimizar , Maximizar e Restaurar
» Pivot Table no sql server
» Scroll EditBox Automatico
» Select Nexval do FoxPro no OracleXE
» Colocar gif na caixa do MESSAGEBOX ()
» Comparar Versões do programa.exe
» Menu lateral
» Fazer com que a tela do sistema assume a janela principal
» Trocar Palavra no Sistema
» invocar Dll em Xbase
» Fechar Porta Aberta