oribeiro

Valeu a dica, estou usando o Image2Pdf.Dll no evaluation mode e funciona legal, aliás, a conversão de EMF para PDF é muito rápida. Obrigado pela dica. Vou adquirir a licença desse produto. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Vagner, Nada contra a sua lib, mas eu nunca gostei de ficar amarrado em bibliotecas externas, é uma questão de princípios, até hoje a única que eu usei foi o sButton, ainda assim porque ela acompanha os fontes em .prg e .c. - Não tem nenhuma classe que permita-me converter EMF em PDF ??? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Nunca fiquei sem resposta nesse fórum, será que esse trem é muito difícil. Não tem como transformar EMF em PDF através do xHarbour? Vi nas dicas do fórum que tem uma DLL que faz isso, mas, não existe nenhuma classe do five para isso? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Nem mesmo uma rotininha para ler o arquivo EMF e grava-lo em PDF? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Olá PessoAll, Existe alguma função dentro do Fwh + xHarbour para transformar um arquivo de relatório (.EMF) em uma imagem JPEG ou PDF ou qualquer outro tipo de imagem? Estou montando uma rotina para enviar as imagens do relatório por eMail através do visualizador rpreview.prg Um abraço, Oscar Ribeiro (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Olá PessoAll, Existe alguma função dentro do Fwh + xHarbour para transformar um arquivo de relatório (.EMF) em uma imagem JPEG ou PDF ou qualquer outro tipo de imagem? Estou montando uma rotina para enviar as imagens do relatório por eMail através do visualizador rpreview.prg Um abraço, Oscar Ribeiro (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Estamos chegando lá. Qual é o código do HKEY_CURRENT_USER ?? Só encontrei esse aqui: #define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002 (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Olá PessoAll, Existe alguma forma de eu conseguir pegar o smtp e o email configurado como padrão no computador do usuário? Normalmente essa informação fica nas "contas da internet" acessadas através do outlook. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Olá PessoAll, Existe alguma forma de eu conseguir pegar o smtp e o email configurado como padrão no computador do usuário? Normalmente essa informação fica nas "contas da internet" acessadas através do outlook. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Yuri, If ( cExt == "TXT" .or. cExt == "LOG" .or. cExt == "HTM" ) .and. ! ::lTxtAsAttach Essa linha indica que os arquivos TXT, LOG e HTM são anexados e os outros são embutidos no corpo do email. Quero enviar um arquivo de extenção EMF anexado no email, o que devo fazer? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Yuri, Obrigado, mas, com o TSMTP que eu baixei no endereço que você indicou aparece o seguinte erro indicando que não conseguiu estabelecer a conexão no estágio: ST_INIT. Como resolvo isso? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

O segredo está nessa função da classe TSMTP.PRG: if Upper( cFileExt( ::aFiles[ n ] ) ) != "TXT" oSocket:SendData( CRLF + "--NextPart" + CRLF + ; "application/x-zip-compressed;" + CRLF + ; Chr( 9 ) + 'name="' + ::aFiles[ n ] + '"' + CRLF + ; "Content-Transfer-Encoding: base64" + CRLF + ; "Content-Disposition: attachment;" + CRLF + ; Chr( 9 ) + 'filename="' + cFileNoPath( ::aFiles[ n ] ) + '"' + CRLF + CRLF ) FMimeEnc( ::aFiles[ n ], "__temp" ) oSocket:SendFile( "__temp" ) FErase( "__temp" ) else oSocket:SendData( CRLF + "--NextPart" + CRLF + ; "Content-Type: text/plain;" + CRLF + ; Chr( 9 ) + 'name="' + ::aFiles[ n ] + '"' + CRLF + ; "Content-Transfer-Encoding: quoted-printable" + CRLF + ; "Content-Disposition: attachment;" + CRLF + ; Chr( 9 ) + 'filename="' + cFileNoPath( ::aFiles[ n ] ) + '"' + CRLF + CRLF ) oSocket:SendFile( ::aFiles[ n ] ) endif Alguém consegue alterar esse treco para enviar arquivo anexo? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Notei que se eu enviar arquivos com extensão .TXT ele envia como anexo, caso contrário coloca dentro do corpo da mensagem o conteúdo do arquivo, daí fica terrível. Como faço para ele sempre anexar os arquivos na mensagem? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, Consegui enviar email com anexo usando SMTP com a função abaixo, entretanto, o anexo está indo dentro do email. Não tem como ele ir como anexo mesmo? *------------------------------------------------------ Function EnviaMail(cDe,cPara,cAssunto,cMensagem,aAnexo) // ENVIA EMAIL *------------------------------------------------------ Local oMail Local cIP Local cSmtp := "smtp.uol.com.br" // "smtp.fivetechsoft.com" Default cDe := "oasys.info@uol.com.br" // "alinares@fivetechsoft.com" Default cPara := "oasys.info@uol.com.br" // "alinares@fivetechsoft.com" Default cAssunto := "Email enviado pelo Sistema OASyS" Default cMensagem := "Email enviado pelo Sistema OASyS" Default aAnexo := {"mvend.ico"} WSAStartup() oMail := TSmtp():New( cIP := GetHostByName( cSmtp ) ) oMail:bConnecting = { || oWnd:SetMsg( "Conectando no SMTP = "+cSmtp ) } oMail:bConnected = { || oWnd:SetMsg( "Conectado no IP = "+cIP ) } oMail:bDone = { || oWnd:SetMsg( "Mensagem enviada com sucesso PARA = "+cPara ) } oMail:SendMail(cDe,{cPara},cMensagem,cAssunto,aAnexo) // oMail:End() // Se colocar essa linha, não envia. WSaCleanUp() Return(.T.) O anexo fica dentro do texto do email assim: ------------------------------------------------------------ application/x-zip-compressed; name="C:\WINDOWS\TEMP\tmp0001.emf" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="TMP0001.EMF" AQAAAPQAAAA8AAAAIQAAAKcHAACZCAAAAAAAAAAAAADwbgAA9EwAACBFTUYAAAEAkLYAAFMBAAADAARAAAAGwAAAAAAAAAIA0AABwJAAAcAQAAxQAAAAAAAAAAAAAAAAAAAGBVBACIAQMAUgBlAGwA . . . e continua... (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Gilberto, A rotina parece bem simples. Não entendi porque você coloca duas vezes a linha: oMail:=TSmtp():New( ip_Servidor_eMail ) O que eu devo colocar no lugar do ip_Servidor_email, como deve ser composta essa string? Por favor, me dê um exemplo. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Evandro, Consegui compilar, mas é necessário configurar um servidor de smtp e, entendo que os meus clientes terão dificuldade em utilizar dessa forma. Não tem como acionar o OutLook do Windows e colocar nele os anexos automaticamente? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Evandro, Achei interessante o exemplo mas não consegui rodar, está dando o seguinte erro na compilação: Compiling... xHarbour Compiler build 0.99.60 (SimpLex) Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'tipteste.prg' and generating preprocessed output to 'tipteste.ppo'... Lines 151, Functions/Procedures 2 Generating C source output to 'tipteste.c'...Done. Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland tipteste.c: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_TURL' referenced from C:\FWH\SAMPLES\TIPTESTE.OBJ Error: Unresolved external '_HB_FUN_TIPMAIL' referenced from C:\FWH\SAMPLES\TIPTESTE.OBJ Error: Unresolved external '_HB_FUN_TIPCLIENT' referenced from C:\FWH\SAMPLES\TIPTESTE.OBJ Error: Unresolved external '_HB_FUN_TIP_TIMESTAMP' referenced from C:\FWH\SAMPLES\TIPTESTE.OBJ * There are errors (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Maurílio, Necessito gerar um email com arquivos anexos através do Fwh. Existe outra técnica para fazer isso? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Já descobri os comantos Para: CC: CCO: e Corpo: - Só falta o mais importante: "Anexos" Winexec( "rundll32.exe url.dll,FileProtocolHandler "+; "MailTo:"+; "?Subject=Imagem de relatório gerada no OASyS ("+Left(oDevice:cDocument,AT("(",oDevice:cDocument)-2)+")"+; "&Attach="+cAttach+; "&Body=Abra a(s) imagem(s) anexa(s) com o visualizador de imagens padrão do MS-Windows." ) // "&CC=" (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Olá PessoAll, Como faço para enviar um email com anexo por dentro do fwh? Hoje eu uso a função: Winexec("rundll32.exe url.dll,FileProtocolHandler mailto: ?subject= ") Com essa função eu coloco o destinatário e o remetente, só falta saber como colocar arquivos anexos. Agradeço, (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Olá PessoAll, Como faço para enviar um email com anexo por dentro do fwh? Hoje eu uso a função: Winexec("rundll32.exe url.dll,FileProtocolHandler mailto: ?subject= ") Com essa função eu coloco o destinatário e o remetente, só falta saber como colocar arquivos anexos. Agradeço, (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Gente, A visualização do relatório no FwH ficou realmente muito apagada, se desejar posso lhes enviar uma imagem de como ficou para analisarem. Tem alguma linha no rpreview.prg que eu possa alterar para melhorar isso? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Marcelo, Se possível, mande o seu exemplo compilado para o meu email oasys.info@uol.com.br porque não estou conseguindo rodar esse programa 100% aqui. Mesmo executando as suas linhas de teste ele abre o cupom mas não imprime os itens. Estou usando esse exemplo junto com as chamadas DLL32 que você passou: BmAbreCup ("045.003.559-01") BmVendItem("7890000484862",left("Teste de Impressão"+space(29),29),'01','I','0001',2,' 50,00',"%","0000") BmVendItem("7890000484862",left("Teste de Impressão"+space(29),29),'01','I','0001',2,' 50,00',"%","0000") BmVendItem("7890000484862",left("Teste de Impressão"+space(29),29),'01','I','0001',2,' 50,00',"%","0000") BmFechaCup('Dinheiro','A',"$",' 00,00',' 50,00','Obrigado! Volte sempre.') (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

Valeu Marcelo, Usando o fwh eu consegui usar o seu exemplo, mas na minha aplicação em xHarbour puro, sem fwh, não roda essas chamadas de dll32, tem algum segredo? (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop

PessoAll, No site da bematech tem exemplo para tudo quanto é linguagem da dll deles, menos para xHarbour. Alguém pode me dar uma ajudinha nesse projeto. Preciso imprimir cupom fiscal na Bematech usando essa dll. Obrigado. (OASyS) Oscar Ribeiro Fwh2.7+xHb0.99.60+BCC551+WorkShop