helio1361303486

Alá. Existe algum servidor de FTP gratuíto, simples, leve, somente para transferência de arquivos pequenos entre empresas ? Grato, Hélio xHarbour 0.99.71/WS/PELLESC

Alá. Existe algum servidor de FTP gratuíto, simples, leve, somente para transferência de arquivos pequenos entre empresas ? Grato, Hélio xHarbour 0.99.71/WS/PELLESC

Alguém sabe como ler, ou fazer o download do arquivo que esta em anexo em um e-mail? com o Stmp consegue-se enviar e-mails. mas gostaria de puxa-los via fwh, tem como ? Com a funcão abaixo, dá pra saber quantos e-mails tem na conta. TEM COMO PEGAR ESSES E-MAILS ? function ReadEmails( oInMail ) local n MsgInfo( "Total emails: " + Str( Len(oInMail:aMsgs ) ) ) for n = 1 to Len( oInMail:aMsgs ) MsgInfo( oInMail:aMsgs[ n ] ) next return nil Grato, Hélio xHarbout 0.99.71/WS/PELLESC

Alguém sabe como ler, ou fazer o download do arquivo que esta em anexo em um e-mail? com o Stmp consegue-se enviar e-mails. mas gostaria de puxa-los via fwh, tem como ? Com a funcão abaixo, dá pra saber quantos e-mails tem na conta. TEM COMO PEGAR ESSES E-MAILS ? function ReadEmails( oInMail ) local n MsgInfo( "Total emails: " + Str( Len(oInMail:aMsgs ) ) ) for n = 1 to Len( oInMail:aMsgs ) MsgInfo( oInMail:aMsgs[ n ] ) next return nil Grato, Hélio xHarbout 0.99.71/WS/PELLESC

Alguém já fez algum teste com os exemplos da SQLRDD do xHarbour.com que agora tb. é disponibilizada o RDD para BCC55 ? com os exemplos do demo deles. De preferência criação de banco e tabelas no FireBird 2.0 Hélio xHarbour/WS/PELLESC

Alguém já fez algum teste com os exemplos da SQLRDD do xHarbour.com que agora tb. é disponibilizada o RDD para BCC55 ? com os exemplos do demo deles. De preferência criação de banco e tabelas no FireBird 2.0 Hélio xHarbour/WS/PELLESC

Enviei para seu endereço. Hélio xHarbour 0.99.71/WS/PELLESC

up

Porque, usando a freeimage, as telas da aplicação fica lenta? explico: Tenho uma imagem de papel de fundo de uma Window. Quando chamo qualquer Dialog, e tento arrastar ela pela tela... parece que esta em câmara lenta. Se não usar a freeimage, fica normal a velocidade de arrastar. Hélio xHarbour/WS

Porque, usando a freeimage, as telas da aplicação fica lenta? explico: Tenho uma imagem de papel de fundo de uma Window. Quando chamo qualquer Dialog, e tento arrastar ela pela tela... parece que esta em câmara lenta. Se não usar a freeimage, fica normal a velocidade de arrastar. Hélio xHarbour/WS

Tem algum exemplo de fazermos a oBar ficar mais rica em recursos ? sem usar a vBar Cores, Divisões, Degradee. etc. Hélio xHarbour/WS

Tem algum exemplo de fazermos a oBar ficar mais rica em recursos ? sem usar a vBar Cores, Divisões, Degradee. etc. Hélio xHarbour/WS

Amigos, Compilei e deu certo. Mas como colorir, ou modificar a "oBar" de outra forma? Hélio xHarbour 0.99.71/WS

Alguém sabe se é possível abrir uma pasta específica da caixa de entrada no Outlook para colher os endereços de e-mails, através do xHarbour? Grato. Hélio xHarbour 0.99.71/WS

Alguém sabe se é possível abrir uma pasta específica da caixa de entrada no Outlook para colher os endereços de e-mails, através do xHarbour? Grato. Hélio xHarbour 0.99.71/WS

Nossa ! que bom ! Estava mesmo precisando dessa tabela de cores. Mui Grato Kapiaba ! Hélio xHarbour 0.99.71 / WS

Como colocar uma imagem pequena com transparência em cima de uma imagem grande de fundo de tela ? usando a FreeImage.DLL ? como? MAS.... tem que ser com dialog feita em resource WorkShop. o FreeImage SÓ funciona com dialog feitas com @ say... Hélio xHarbour/WS

Como colocar uma imagem pequena com transparência em cima de uma imagem grande de fundo de tela ? usando a FreeImage.DLL ? como? MAS.... tem que ser com dialog feita em resource WorkShop. o FreeImage SÓ funciona com dialog feitas com @ say... Hélio xHarbour/WS

xiii, tá acontecendo esse erro na compilação: ACTIVEX.PRG was compiled by older version, PCODE version 7 is no longer supported - Please recompile. a versão do xHarbour 0.99.71 de 04/2007 (Não dá o erro) a versão do xHarbour 0.99.71 de 09/2007 (Acontece o erro) com recompilar para o activex ? Abraços Hélio xHarbour/WS

Rapaz, estou tão avoado com tanta coisa que nem tive tempo de ver sobre o encontro. vou ver se consigo ver se posso ir e marcar na semana que vem. Adoraria ver todos vocês aqui desse forum que fazem o clipper sobreviver. Amo o clipper/FW/xharbour, é o a melhor ferramenta de programação que conheço. Abraço Hélio

Obrigado Kapiaba ! Hélio xHarbour/WS

Pessoal, Onde esta disponível a versão 0.99.71 do xHarbour ? Hélio xHarbour/WS

Pessoal, Onde esta disponível a versão 0.99.71 do xHarbour ? Hélio xHarbour/WS

Carlson, pode mandar pra mim também? ( helioaraujosantos@hotmail.com ) Grato Hélio xharbour 0.99.71/WS

Segue o Código fonte: #include "fivewin.ch" #include "tsbrowse.ch" #include 'sqllib.ch' #include 'ord.ch' REQUEST SQLLIB REQUEST MySQL ************************************************************FUNCTION Main() host := "mysql01.MeuProvedor.com.br" db := "teste" user := "teste" pwd := "senha" SQL CONNECT ON host; PORT 3306 ; DATABASE db ; USER user ; PASSWORD pwd ; OPTIONS SQL_NO_WARNING ; LIB "MySQL" IF SQL_ErrorNO() > 0 MsgAlert( OEMTOANSI("Não foi possível conectar ao banco de dados, Segue erro de retorno:")+CRLF+CRLF+SQL_ErrorMsg() ) QUIT ENDIF RDDSetDefault('MySQL') USE cli ALIAS cli NEW if !file( "cli.cdx" ) INDEX ON clicod TAG Tag1 TO cli.cdx INDEX ON clinom TAG Tag2 TO cli.cdx endif SET INDEX TO cli.cdx DbSelectArea("cli") ;cli->(DbSetOrder(2)) ;cli->(DbGotop()) DEFINE DIALOG oDlg RESOURCE "Cliente1" REDEFINE BROWSE oBrw ID 1000 OF oDlg ADD COLUMN TO oBrw; HEADER CRLF+OEMTOANSI("Código") SIZE 45; DATA FieldWBlock( "clicod", Select("cli") ); 3DLOOK TRUE EDITABLE MOVE DT_MOVE_LEFT ALIGN DT_LEFT, DT_LEFT; TAG "Tag1" ADD COLUMN TO oBrw; HEADER CRLF+OEMTOANSI("Nome") SIZE 400; DATA FieldWBlock( "clinom", Select("cli") ); 3DLOOK TRUE EDITABLE MOVE DT_MOVE_LEFT ALIGN DT_LEFT, DT_LEFT; TAG "Tag2" oBrw:lSeek:=.T. oBrw:SetIndexCols( 1, 2 ) oBrw:nHeightCell += 6 oBrw:nHeightHead += 7 DbSelectArea("cli") ;cli->(DbGotop()) ** GET PARA PESQUISA, Hà DEMORA TB. PARA LOCALIZAR O REGISTRO DIGITANDO LETRA POR LETRA. REDEFINE Get oChar VAR cChar PICTURE "@!" Id 2101 OF oDlg; ON CHANGE Pesquisa(nKey,"cli",oBrw,oChar) oBrw:Gobottom() ;oBrw:Gotop() ;oBrw:refresh() oDlg:lHelpIcon:=.f. ACTIVATE DIALOG oDlg CENTERED Return Nil ************************************************************FUNCTION Pesquisa(nKey,Alias,oBrw,oGet) LOCAL nOldRecno:=(Alias)->(Recno()) IF nKey==VK_BACK IF LEN(cChav) > 0 cChav:=LEFT(cChav,LEN(cChav)-1) cChar:=cChav ELSE cChar:=SPACE(50) oGet:SetPos(0) RETURN(.F.) ENDIF ENDIF IF (nKey>=32 .AND. nKey<=255) .OR. nKey=VK_BACK IF nKey!=VK_BACK cChav+=CHR(nKey) ENDIF IF !(Alias)->(dbSeek(cChav)) (Alias)->(dbGoto(nOldRecno)) ;tone(400,1) ;tone(400,1) ENDIF oBrw:UpStable() ;oBrw:Refresh() ;oBrw:SetFocus() ;SysWait(.001) oGet:SetPos( LEN(cChav)+1 ) oGet:SetFocus() ENDIF RETURN(.T.) *------------------------ No Browse o PageDown e PageUp e Scroll fica lento, principalmente quando arrasta-se a barra de rolagem para o meio do browse. Testei com ListBox, Browse nativo do five, e agora com a Tsbrowse. Também não acho prático trabalhar com array, já que neste caso não fica on-line em rede. Não gostaria de retirar as browses dos meus sistemas. Será que tem uma solução? Hélio xHarbour 0.99.71/WS