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