Danleonhart

Kuroi, Na função ImagemBinario() a parte do script: "Optional ByRef n As Long = 0&" isso quer dizer que "n" retorna o tamanho da foto ?! é isso :huh: é que não costumo usar "ByVal" e "ByRef" :rolleyes: então, a parte "ByVal file as String" é o caminho da foto...isso é necessário para a função realizar sua tarefa... mas o "Optional ByRef n As Long = 0&" é opicional, então, se colocar algum valor nesse parâmetro ele vai influenciar em algo na função ??? porque dentro da função o "n" vai receber valor (no caso o tamanho final do arquivo). só curiosidade...porque não sabia que função retornava mais de um valor...no caso, retornando um vetor de Bytes "b()" e o tamanho do fim do arquivo "n"... Sai um pouco do foco por pura curiosidade :D Estou a fazer testes com as sugestões ^_^ Obrigado pela atenção !

Também não Kuroi... Tentei inserir em uma tabela no SQL Server dessa forma, e o erro começou logo na inserção do campo "Nome"... o erro foi esse: Nesse caso, tentei inserir apenas no campo "Nome"... e a linha que aponta o erro é a : ".Execute". Se coloco para inserir também com a imagem o erro volta a ser o do inicio. Isso no SQL Server... No Access, só o "Nome" vai normalmente...dá pró se tentar inserir a imagem...

Seguinte pessoal... É possível inserir dados do Tipo Binário no BD com parâmetros ? :huh: Assim eu sei que é possível: Sub Gravar_Dados() Abb '<====== Função que abre a conexão com o BD Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseServer Rs.Open "SELECT * FROM InDat", Con, adOpenStatic, adLockOptimistic 'inclui um registro Rs.AddNew Rs("Nome") = txtNome.Text Rs("Foto") = Por_Em_Byte(camFoto) '<= Função que converte uma imagem em Bytes Rs.Update Set Rs = Nothing Con.Close MsgBox "Dados gravados !", vb script: Agora estou tentando assim...que é com parâmetros nos campos: Sub Inserir_Dados() Dim Cmd As ADODB.Command Dim Inserir As String Dim b() As Byte b() = Por_Em_Byte(camFoto) Inserir = "INSERT INTO InDat(Nome,Foto)VALUES(@Nome,@Foto)" Abb Set Cmd = New ADODB.Command With Cmd .ActiveConnection = Con .Prepared = True .CommandText = Inserir .CommandType = adCmdText .Parameters.Append .CreateParameter("@Nome", adChar, adParamInput, , txtNome.Text) .Parameters.Append .CreateParameter("@Foto", adBinary, adParamInput, , b()) .Execute End With MsgBox "Dados Salvo !", vbInformation Set Cmd = Nothing Con.Close End Sub Sempre que tentei apresentou Erro: 3001 Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. e aponta para a linha: .Parameters.Append .CreateParameter("@Foto", adBinary, adParamInput, , b()) Já mudei o tipo de "adBinary" para "AdVarBinary", "adLongVarBinary" e "AdArray" mas continua sempre dando o mesmo erro... <_< O BD é Access 2007 e o tipo do campo está como Objeto OLE. *** EDITADO *** Agora está dando este erro: Erro: 3708 Objeto Parameter definido incorretamente. As informações são inconsistentes ou incompletas. <_<

Consegui... O erro que estava cometendo era de configurar no "SMTPServer" o servidor do e-mail do destinatário, e enviar com usuário e senha de outro servidor ... então corrigi... Optei pelo CDO.sys, mas em todas as outras funcionaram... O script ficou assim: Private Sub EnvioDeEmail() On Error GoTo Ver Dim Msg As CDO.Message Dim Cof As CDO.Configuration Dim Camp Set Msg = New CDO.Message Set Cof = New CDO.Configuration Set Camp = Cof.Fields With Camp .Item(cdoSMTPServerPort) = txtPorta.Text .Item(cdoSendUsingMethod) = cdoSendUsingPort ' ou 2 .Item(cdoSMTPServer) = CbMail.Text .Item(cdoSMTPConnectionTimeout) = 15 ' quick timeout .Item(cdoSMTPAuthenticate) = cdoBasic ' ou 1 .Item(cdoSMTPUseSSL) = True .Item(cdoSendUserName) = vUserName .Item(cdoSendPassword) = vPasswrd .Update End With With Msg Set .Configuration = Cof .From = vUserName .Sender = vUserName .To = CbEnd.Text .Subject = txtAss.Text .HTMLBody = txtMens.Text .Send End With MsgBox "OK !" Exit Sub Ver: MsgBox "Erro Número : " & Err.Number & vbNewLine _ & "Descrição do erro : " & Err.Description End Sub Detalhe : No Hotmail as mensagens chegam no Lixo...só depois do usuário informar que é confiável é que passa a chegar na Caixa de Entrada.

Beleza Kuroi ! Tempão sumido hein ! :D Obrigado pela dica ! vou procurar, baixar e avaliar (se é que posso... iniciante é folgado hein).

Pessoal... De tanto falarem que o VB é um lixo de programação resolvi aprender outra, e vejo falarem que C++ é a mais próxima do que podemos dizer de uma linguagem completa. Mas estou tendo dificuldades em encontrar uma boa IDE, que seja bem intuitiva, e se possível que detecte erros no script :) Encontrei uma com opções visuais: wxFormBuilder e tenho aqui a Visual C++ 6.0 (ainda do Microsoft Visual Studio 6.0), e a que vem no VS 2010. Gostaria de ouvir opiniões :rolleyes:

Pessoal... Alguém já conseguiu enviar e-mails para os servidores do GMail e Hotmail com uma das bibliotecas abaixo citadas? AspMail, CDO.SYS , PY.SendMail, VbSendMail Só consigo enviar para o servidor do Yahoo. Script's que testei até agora: Com a AspMail (AspMail.dll): Sub Enviar_Email() On Error GoTo Final Dim AspMail As New ASPEMAILLib.MailSender With AspMail .Host = CbMail.Text .Port = txtPorta.Text .From = vUserName .FromName = "Adm." .Subject = txtAss.Text .Body = txtMens.Text .MailFrom = vUserName .Username = vUserName .Password = vPasswrd .AddAddress CbEnd.Text .Send End With MsgBox "Envio confirmado !", vbInformation Exit Sub Final: MsgBox "Erro número : " & Err.Number & vbNewLine _ & "Descrição do erro : " & Err.Description, vbCritical End Sub Com CDO.SYS (cdosys.dll) Private Sub EnvioDeEmail() On Error GoTo Ver Dim Msg As CDO.Message Dim Cof As CDO.Configuration Dim Camp Set Msg = New CDO.Message Set Cof = New CDO.Configuration Set Camp = Cof.Fields With Camp .Item(cdoSMTPServerPort) = txtPorta.Text .Item(cdoSendUsingMethod) = cdoSendUsingPort ' ou 2 .Item(cdoSMTPServer) = CbMail.Text .Item(cdoSMTPConnectionTimeout) = 30 ' quick timeout .Item(cdoSMTPAuthenticate) = cdoBasic ' ou 1 .Item(cdoSMTPUseSSL) = True .Item(cdoSendUserName) = vUserName .Item(cdoSendPassword) = vPasswrd .Update End With With Msg Set .Configuration = Cof .From = vUserName .Sender = vUserName .To = CbEnd.Text .Subject = txtAss.Text .HTMLBody = txtMens.Text .Send End With MsgBox "OK !" Exit Sub Ver: MsgBox "Erro Número : " & Err.Number & vbNewLine _ & "Descrição do erro : " & Err.Description End Sub Com PY.SendMail : Sub Enviar_Mail() Set pySM = CreateObject("Py.SendMail") With pySM .SMTPServer = CbMail.Text .Port = txtPorta.Text .Recipient = CbEnd.Text .To = CbEnd.Text .From = vUserName .Sender = vUserName .Subject = txtAss.Text .Body = txtMens.Text .PureText = False ' Se é texto ou HTML (True = Texto, False = HTML) .User = vUserName .Password = vPasswrd retorno = .Send() LbRetorno = "Retorno: " & retorno End With End Sub Com VbSendMail (VbSendMail.dll) : Sub Go_Email() On Error GoTo Final Dim sM As New vbSendMail.clsSendMail With sM .SMTPHost = CbMail.Text .SMTPPort = txtPorta.Text .From = vUserName .Username = vUserName .Password = vPasswrd .FromDisplayName = vUserName .Recipient = CbEnd.Text .RecipientDisplayName = CbEnd.Text .UseAuthentication = True .ConnectTimeout = 30 .PersistentSettings = True .IsValidEmailAddress CbEnd.Text .Subject = txtAss.Text .Message = txtMens.Text .Send End With MsgBox "Envio confirmado !", vbInformation Exit Sub Final: MsgBox "Erro número : " & Err.Number & vbNewLine _ & "Descrição do erro : " & Err.Description, vbCritical End Sub Com todas consigo enviar para o servidor Yahoo...mas com nenhuma consegui para GMail e Hotmail... :mellow:

Só um detalhe... é bom saber se no PC já não existe a biblioteca instalada... pois se no PC já contiver, um novo registro poderá causar mal funcionamento das aplicações que a utilizam..

Sempre que tentei instalar sem privilégios de ADM não consegui nem passar da 1ª parte do instalador :D então deixei minha aplicação assim mesmo, pois só quem tem privilégios vai poder instalar mesmo... Uma outra alternativa foi instalar a aplicação em um diretório que não seja do sistema (C:Windows, C:\Arquivos de Programas) :)

Valeu pessoal ! O Matheus-VB6 me enviou via e-mail ;) Estou disponibilizando um link ativo...espero que o Graymalkin não se aborreça Link=> Servidor 4Shared : http://www.4shared.com/zip/f9DmXDZm/PySendMail_128.html?

Pessoal... Alguém tem o PY.SendMail que possa disponibilizar ?! No site do Graymalkin não dá...tá fora do ar... :mellow:

Valeu Jonas ! :) Acredite...é coisa do Windows 7 mesmo cara... até o técnico do provedor veio aqui em casa e não soube compartilhar...chegou dizendo que o roteador não tinha a função AP, coisa que eu entrei nas configurações e descobri que tem sim...depois mostrei a ele...foi quando ele cedeu. Agora o Win7 trouxe muitas coisas boas e funcionais que o XP não tinha, em compensação a configuração de rede ficou baita complicado...antes para se fazer uma Ponte de Rede bastava selecionar os adaptadores e BINGO ! agora chove dinheiro e ele não faz... uso o Ultimate, antes que pense ser por causa da versão. Um outro detalhe é que no Ultimate minha placa USB não apresenta a aba "Compartilhamento" onde se marca a opção "Permitir que outros usuários da rede se conectem pela conexão deste computador à internet"... Já no NetBook (que é Win7 - Home Basic) apresentou...então conectei a placa USB no NET e através de um cabo CrossOver compartilhei para o Desktop. Vá entender isso <_<

Pessoal... Em quantos PC's posso usar o mesmo serial do Win7 ??? Trabalho com instalações/manutenções de sistemas e tenho cerca de 40/50 clientes e não estou querendo usar cracks para rodar o sistema. Quero trabalhar legalizado e fornecer aos meus clientes um produto original (na verdade este é meu 2º trabalho :rolleyes: ). Quero Professional ou Ultimate, a que for mais viável em termos de custo... Vi em sites de venda que custam entre R$ 250,00 e R$ 300,00 a versão Professional e entre R$ 380,00 e R$ 450,00 a versão Ultimate...mas em nenhum site explica se o serial é ilimitado...ou seja, se posso usar em todos micros que quiser, se tem limite ou apenas em um PC. Detalhe: não é para Redes não...cada cliente terá em sua residência o sistema instalado.

Densyy Terminei de publicar minha Dica...vê se te ajuda :rolleyes: Link: https://sites.google.com/site/dicasvb/home/vb6_res_edt VALEU!!!

Olha aê amigo ! :) http://www2.mat.ua.pt/lap/Praticas/Apontam.../TiposDados.htm

Serve para chamar as variáveis de ambientes... tipo, se você quer dizer para sua aplicação salvar determinado arquivo no diretório onde o sistema está instalado, e você coloca : "C:\xxxxxxxx" se no PC de um dos usuários o sistema estiver instalado no disco "D:\", com certeza sua aplicação vai dá erro... então nesse caso utiliza-se: Environ$("SYSTEMDRIVE") Que corresponde ao "C:\", ou "D:\" ou "E:\"...seja lá onde o sistema estiver instalado... Outros exemplos... Environ$("TEMP") ' Pasta de arquivos temporários... pode ser ("TMP") também... Environ$("HOMEPATH") ' Pasta do Usuário que está logado no PC Environ$("COMPUTERNAME") ' Retorna o Nome do Computador Environ$("CommonProgramFiles") ' Pasta de Arquivos Comuns Environ$("SYSTEMROOT") ' Pasta C:\Windows Environ$("USERNAME") ' Retorna o nome do usuário que está logado. E por aí vai... Se quiser saber mais comandos, abre o Prompt de Comando e digita: SET será listado diversas variáveis do sistema Windows.

Vixi... então se tratava de variaveis de ambiente... eu uso a função Environ$()... :huh:

Pessoal... Tentei a horas fazer meu Netbook receber internet do PC através de conexão AD-Hoc Wireless... no PC Descktop é o Win7 Ultimate, e no Net o Home-Basic... Li diversos tutoriais que ensinam...fiz da maneira que descreveram...mas sem sucesso... Alguém tem alguma dica de como fazer isso ??? Meu provedor é via Rádio, recebo em uma Placa de Rede USB... e segundo os tutoriais, era possível compartilhar a conexão através de configuração Ad-Hoc...sem precisar de mais uma placa de rede Wireless ou Access Point.

Densyy Não dê atenção para este usuário...ele até agora só fez críticas, mas mostrar algo de sua autoria, ou colaborar com o Fórum nem nem... <_<

Como assim diretório no PATH ??? :blink: PATH de quê ??? você quer criar um diretório ??? é isso ??? :unsure:

Link expirado... Tem como reupar ?! :rolleyes:

Você tem de usar a Sub onde a mensagem está chegando... EX: Private Sub Wsk_DataArrival(ByVal bytesTotal As Long) Dim StrDados As String Wsk.GetData StrDados Parametros_RTB StrDados, vbRed, Rtb1 End Sub No exemplo coloquei para a mensagem que chegar ficar na cor vermelha

Densyy Cara, foi o melhor que pude fazer... :mellow: Estou corrigindo um projeto e passei uns três dias (mas não direto, claro :) ) bolando uma maneira...e com uma ajudinha de um amigo, fiz este exemplo... Projeto: http://www.4shared.com/zip/CxjHchEH/RichTextBox-Testes.html Espero que ajude em algo ! FUI !

Vixi ! Tem TextBoxes da versão Microsoft Forms 2.0 configurados como TextBoxes... esse foi um dos problemas que achei de primeira... *** EDITADO *** Olha, não mexi em nada no código, apenas alterei para as configurações necessárias quando se usa os Objetos do Componente Microsoft Forms 2.0 Objects Projeto : http://www.4shared.com/zip/aepiKz4j/Chat.html PS: Estou terminando um exemplo de como inserir texto colorido no RichTextBox... creio que hoje (já é mais de meia noite...) pela manhã devo terminar...postarei no outro tópico... ahhh ! e quando colocar script nos topicos, use a ferramenta "Inserir Code"...ela evita poluição visual, pois destaca o script em meio ao texto da pergunta ...

Parabéns CeSaR340 Eu estava pensando nisso também :rolleyes: só um favorzinho...quando for postar código utiliza a opção "Inserir Code" (é a ultima opção dos ícones de ferramentas)... assim facilita para entender-se o código, e evita poluição visual VALEU CARA !!!