MAMP2

bom dia marcio o botao é este @ linha,coluna BTNBMP oBut_001 file &te_bmp11 left pixel font memvar->rec_ped ; of memvar->dl_recep size te_horiz*2.2,te_verti*3.5 action gru_001() e o texto que quero em cima do botao é este @ sal_lin*01,sal_col*02 stsay memvar->te_tp_01 of memvar->dl_recep pixel size 850,150 font memvar->rec_vai3 color CLR_BLACK a tela é a mesma (dl-recep) o texto aparece mas na tela, quando passo mouse em cima do botao o texto some, quero o texto em cima do botao pra quando eu pasasar o mouse em cima do botao o texto nao sumir

oi Kapiaba nao encontrei o POP3 e o SMTP do hotmail la, voce os tem pra me passar?

ok, entendido, agora tem como colocar um texto sobre o bitmap, cada bitmat é um tipo de coisa e cada tipo de coisa tem um nome como coloco o nome no topo do bmp, existe como fazer isto?

onde consigo po DSAY.PRG e o DSAY.CH?

Bom dia poessoal estou tentando passar email pelo HB_SENDMAIL e nao estou encontrando o POP3 e o SMTP e a porta do hotmail alguem ja passa pra me informar quel o POP3,SMPT e porta por favor Obrigado

mas ai eu troco a dor da dialog toda, eu quero de apenas um campo que esta em uma situacao que eu quero que so aqueloe campo pisque, é possivel?

se voce tem este jeito, como faço isto?, tem um exemplo pra me mandar?

boa Noite Kapiaba. Eu olhei o que voce mandou, porem nao é bem o que eu preciso, deixa eu explicar o problema pra ver se voce pode me ajudar eu tenho varios clientes e quero atualiza-los de forma automatica nos locais entao minha ideia é compactar os arquivos executaveis (sao 5 arquivos) e mando o arquivo zipado junto com um arquivo texto com a data e a hora e tamanho dos arquivos executaveis entao a rotina de descompactação la na ponta vai descompactar e se as datas, hora e tamanho estiverem corretos ele atualiza, pra evitar o arquivo chegar corrompido (pela metade) este que voce me mandou consegue gravar a data e hora que eu quiser no arquivo, isto nao soluciona o problema entende? eu preciso de algum parametro que garanta que a data e hora do arquivo que mandei no meu servidor seja a mesma quando descompactar la na unidade

obrigado sr. theo, deu certo, agora estou querendo fazer em determinada situacao es letras "piscarem" existe algum meio de fazer isto tambem?

Dando uma olhada no pessoal que teve este mesmo problema eu fiz esta alteracao: @ t_lin+(sal_lin*4.0),t_col+(sal_col*0.0) say osay_t5[ind_rec] VAR &te_mostra of dl_recep pixel size sal_col*9,sal_lin*1.5 font memvar->rec_for10 color CLR_BLACK osay_t5[ind_rec]:ltransparent:=.t. Nao deu erro na compilacao, porem nao ficou transparente, alguem pode me ajudar? (onde estou errando?)

bom dia edu, eu estoun tentando usar o transparent adjust no meu say e nao compila @ t_lin+(sal_lin*4.0),t_col+(sal_col*0.0) say osay_t5[ind_rec] VAR &te_mostra of dl_recep pixel size sal_col*9,sal_lin*1.5 font memvar->rec_for10 color CLR_BLACK transparent adjust da erro na compilacao, sabe me dizer o que estou fazendo errado?

bom dia wellington, no primeiro exemplo onde fica o BMP que esta mostrando?

Bom dia senhores como faco pra colocar um desenho dentro do botao do button nunca precisei e estou precisando agora alguem pode me ajudar

alguem sabe com resolver pra que a data nativa do arquivo nao se modifique?

boa noite Kapiaba, deu certo, porem quando descompacta a data e a hora do arquivo nao traz o nativo ele coloca a data e hora que fez a descompactacao, tem como manter a data original do arquivo? isto é muito importante. sabe como resolver isto?, ja teve este problema?

achei um exemplo e estou usando assim:? cArq = '"'+"C:\MOT\MOTVAI1.ZIP"+'"' lRet := hb_UnzipFile(&cArq,,.f.,,"c:\mot\zip\") mas nao esta funcionando, alguem sabe porque, o que estou fazendo de errado?

alguem tem uma rotina pra descompactar pelo UNZIP pelo fivewin? Obrigado

Boa Noite a todos, vou comecar a integrar meus sistemas pra o Celular, ou seja, tenho sistema de restaurante, motel, hotel e bares, e quero programar pra pelo celular o cliente fazer o pedido, alguem ja faz isto?, qual a linguagem que voce me indicam, a que mais se coencta com nosso five win

desculpa infomax errei na hora de copiar e colar, segue a certa ******************************** FUNCTION DownloadFTP( cArquivo ) ******************************** **\ LOCAL cINIFILE := GetWinDir() + "\FTP.INI" LOCAL aFiles LOCAL n LOCAL cUrl LOCAL cStr LOCAL lRetorno := .T. LOCAL oUrl LOCAL oFTP LOCAL cFile := "" LOCAL lElim * memvar->te_ftp_loc := memvar->te_end_ftp memvar->te_ftp_log := memvar->te_log_ftp memvar->te_ftp_sen := memvar->te_sen_ftp cSERVER := alltrim(memvar->te_ftp_loc) // nome do endereco FTP cUSER := alltrim(memvar->te_ftp_log) // usuario FTP cPASSWORD := alltrim(memvar->te_ftp_sen) // senha FTP memvar->te_certo = "N" * * DEFAULT lElim TO .F. * cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer * oUrl := tUrl():New( cUrl ) oFTP := tIPClientFtp():New( oUrl, .F. ) oFTP:nConnTimeout := 20000 oFTP:bUsePasv := .T. cCaminhoFTP := "/" * // Comprobamos si el usuario contiene una @ para forzar el userid msg_sen = "Senha nao Validada" IF At( "@", cUser ) > 0 oFTP:oUrl:cServer := cServer oFTP:oUrl:cUserID := cUser oFTP:oUrl:cPassword := cPassword msg_sen = "Senha Validada" ENDIF * memvar->te_conta = 0 do while .t. memvar->te_conta += 1 IF oFTP:Open( cUrl ) oFtp:cwd( cCaminho ) IF !oFtp:DownloadFile( cArquivo , cArquivo ) lRetorno := .F. return lRetorno := .f. oFTP:Close() ELSE memvar->te_certo = "S" Return lRetorno := .t. oFTP:Close() exit ENDIF ELSE if memvar->programa = "MOT_ENVIA" ** ignore else if memvar->val_mat = 98 cStr := msg_sen+" "+cUser+" - "+cPassword+" Nao foi possivel se conectar ao servidor de FTP" + " " + oURL:cServer IF oFTP:SocketCon == NIL cStr += Chr( 13 ) + Chr( 10 ) + " Conexao nao inicializada-1" ELSEIF InetErrorCode( oFTP:SocketCon ) == 0 cStr += Chr( 13 ) + Chr( 10 ) + " Resposta do servidor:" + " " + oFTP:cReply ELSE cStr += Chr( 13 ) + Chr( 10 ) + " Erro na conexao-1:" + " " + InetErrorDesc( oFTP:SocketCon ) ENDIF msgwait(cStr,"Tela de Informacao",2.00) lRetorno := .F. else cStr := msg_sen+" Nao foi possivel se conectar ao servidor de FTP" + " " + oURL:cServer IF oFTP:SocketCon == NIL cStr += Chr( 13 ) + Chr( 10 ) + " Conexao nao inicializada" ELSEIF InetErrorCode( oFTP:SocketCon ) == 0 cStr += Chr( 13 ) + Chr( 10 ) + " Resposta do servidor:" + " " + oFTP:cReply ELSE cStr += Chr( 13 ) + Chr( 10 ) + " Erro na conexao-2:" + " " + InetErrorDesc( oFTP:SocketCon ) ENDIF msgwait(cStr,"Problema encontrado") lRetorno := .F. endif endif ENDIF if memvar->te_conta >= 50 exit endif enddo * xRun('delete *.log') RETURN lRetorno

bom dia infomax, segue a rotina. ******************** Function ZIPA_DBF2() ******************** LOCAL cArq LOCAL lRet := .F. LOCAL aFiles := {} if file("c:\mot\motvai1.zip") delete file c:\mot\motvai1.zip endif aFiles := { "C:\MOT\QU_01.DBF","C:\MOT\CO_99.DBF","C:\MOT\CX_99.DBF","C:\MOT\MD_99.DBF" } msgwait(OemToAnsi("Iniciando Compactacao de Arquivos ","",2)) cArq = "C:\MOT\MOTVAI1.ZIP" lRet := hb_ZipFile( cArq, aFiles ) if .not. lRet msgwait(OemToAnsi("Compactacao de Arquivos nao executada","",2)) else msgwait(OemToAnsi("Compactacao de Arquivos Terminada","",2)) endif Return(Nil)

Bom dia a todos, estou usando a trasnferencia via FTP e a data/hora do arquivo que estou trasnferindo nao esta sendo levado para o local onde a copia esta sendo feita ele colocar a data e hora da trasnfenrencia, como tenho 10 usuarios e ele faz copia uma a um o arquivo fica com a data X no meu computador e nos outros 10 com datas e horas diferentes, alguem sabe como contornar este problema?

Bom dia a todos como faço pra exibir aqruivos de video no fivewin?, qual o formato que ele aceita?

Bom dia a todos alguem ja usa a leitura de impressao digital pelo FiveWin? podem me dar uma ajuda? Obrigado

ê onde eu pego a resposta se sim ou nao?

bom dia JMSILVA, nao tenho voce tem ai pra me mandar?