Jump to content
Fivewin Brasil

VLNUNES

Membros
  • Posts

    377
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by VLNUNES

  1. VLNUNES

    para yuri

    Olá mamp; Se você estiver tentando enviar tendo como remetente o e-mail "macedomarcos@hotmail.com" realmente não envia. Veja aqui http://www.google.com.br/search?hl=pt-BR&source=hp&q=configurar+hotmail+no+outlook&meta=&rlz=1R2GZEF_pt-BRBR348&aq=3&oq=configurar+ Vander PS. Você quer é enviar log de erro ? Se for, eu uso também uma solução que o evandro postou em dicas com algumas "adaptações". Se for o caso, posso postar aqui. HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit
  2. VLNUNES

    para yuri

    Olá mamp; Eu uso assim (copiado de dicas) e funciona com Outlook Express (XP) e com o Webmail (Vista) cSubject = "Arquivo de erro" cNoteText = "Arquivo de erro do sistema da empresa "+FIRMA+" em anexo..." cMsgType = nil cConversationID = nil dDate = Date() cTime = Time() lReceipt = .F. lFromUser = .T. aOrigin = {} aRecipients = {"seuemail@provedor.com.br"} // Destinatário aFiles = { erro.log } // Anexo a ser enviado oMail:=TMail():New(cSubject,; cNoteText,; cMsgType ,; cConversationID ,; dDate,; cTime,; lReceipt,; lFromUser,; aOrigin,; aRecipients,; aFiles) activate mail oMail Se for para enviar arquivo TXT e quizer enviar no corpo do e-mail e não em anexo, eu adaptei uma rotina que funciona bem, se for o caso posso postar aqui. Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit
  3. Olá; Veja se ajuda http://www.fivewin.com.br/exibedicas.asp?id=692 Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  4. Aqui; http://www.google.com.br/search?hl=pt-BR&source=hp&q=outlook+com+o+hotmail&btnG=Pesquisa+Google&meta=lr%3Dlang_pt&aq=null&oq= Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  5. Se você quer tirar a “setinha†devido ao espaço que ela acupa, você pode tentar a opção que eu uso. NOTA: 40,20 é a posição onde o menu popup será exibido. ... ... DEFINE BUTTON oBt1 OF oBar1 Group NOBORDER RESOURCE "cadas" ACTION MENUCAD(oWnd) ... ... ... FUNCTION MENUCAD(oWnd) Local oMenu MENU oMenu POPUP SEPARATOR MENUITEM "11111111111" ACTION funcao1() SEPARATOR MENUITEM "22222222222" ACTION funcao2() MENUITEM "33333333333" ACTION funcao3() SEPARATOR ENDMENU ACTIVATE POPUP oMenu At 40, 20 Of oWnd Return Nil FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  6. Eu faço assim e sempre funciona certinho... IF VereficaNet()=.T. msginfo("conecção ok") else msginfo("sem conecção") endif //--------------------- TESTAR CONECÇÃO Function VereficaNet( cAddress ) LOCAL aHosts LOCAL cName InetInit() IF cAddress == NIL cAddress := "www.google.com.br" ENDIF aHosts := InetGetHosts( cAddress ) IF aHosts == NIL .or. len(aHosts)=0 InetCleanup() RETURN .f. endif InetCleanup() RETURN .t. FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  7. Olá ICO; Testei aqui e funcionou normalmente. Fiz Assim: .. .. .. DEFINE FONT oFontAC3 NAME "LUCIDA CONSOLE" SIZE 0,-(12*1.33) cMsg:="ND Sistemas (31)9945 5722" DEFINE DIALOG TELAPRICLI2 RESOURCE "TCLIENTE1" Redefine Say oSayT_0 PROMPT "...:: CADASTRAR CLIENTE ::..." ID 1 Update FONT oFontAC2 COLOR RGB (0,0,0),RGB (216,216,191) REDEFINE GET zNOMEDOCLI VAR xNOMEDOCLI ID 102 PICTURE "@K!" VALID !EMPTY(xNOMEDOCLI) FONT oFontAC3 zNOMEDOCLI:cMsg:="Informar o nome do cliente..." REDEFINE GET zENDERECLI VAR xENDERECLI ID 103 PICTURE "@K!" WHEN !EMPTY(xNOMEDOCLI) FONT oFontAC3 zENDERECLI:cMsg:="Informar o endereço do cliente..." .. .. .. zNOMEDOCLI:bGotFocus:= {|o| o:SelectAll()} zENDERECLI:bGotFocus:= {|o| o:SelectAll()} .. .. .. REDEFINE BUTTON ID 115 CANCEL ACTION SALVACLI("NO",TTP) WHEN !EMPTY(xNOMEDOCLI) REDEFINE BUTTON ID 116 CANCEL ACTION TELAPRICLI2:End() ACTIVATE DIALOG TELAPRICLI2 CENTERED on init statusbar( TELAPRICLI2 , cmsg ) oFontAC3:END() .. .. .. RETURN .T. //---------------------// function statusbar( oDlg, cMsg ) set message of Odlg to cMsg noinset centered FONT oFontAC3 // centraliza normal return nil Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  8. Faço +- assim: cCODI:=0 cNOME:=space(50) cENDE:=space(80) REDEFINE GET zCODI VAR cCODI ID 101 VALID VER_TEM(cCODI) FONT oFont1 REDEFINE GET zNOME VAR cNOME ID 102 WHEN cCODI > 0 FONT oFont1 REDEFINE GET zENDE VAR cENDE ID 122 WHEN !EMPTY(cNOME ) FONT oFont1 REDEFINE BUTTON ID 123 cancel ACTION GRAVACLNO() WHEN !EMPTY(cENDE) a função VER_TEM() é só para testar o código se não esta repetido. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  9. Não sei se é o ideal, mas eu uso o esquema de liberação individual dos gets assim: o 1º get libera o 2º o 2º get libera o 3º e a assim por diante e o último get libera o botão gravar dados. Espero ter ajudado... Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  10. Confirmo minha presença. Até lá... Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  11. Talvez sirva para alguém. http://www.tecdom.com.br/blog/2009/04/17/listando-todos-os-arquivos-abertos-por-um-determinado-programa/ http://www.tecdom.com.br/blog/2009/04/16/capturar-somente-o-ip-sem-lixo/ http://www.tecdom.com.br/blog/2009/05/01/lista-de-variaveis-de-ambiente-do-windows/ http://www.tecdom.com.br/blog/2009/02/28/recovery-console-disco-de-boot-com-prompt-para-windows-xp/ Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit Editado por - vlnunes on 04/05/2009 23:49:51
  12. Talvez sirva para alguém. http://www.tecdom.com.br/blog/2009/04/17/listando-todos-os-arquivos-abertos-por-um-determinado-programa/ http://www.tecdom.com.br/blog/2009/04/16/capturar-somente-o-ip-sem-lixo/ http://www.tecdom.com.br/blog/2009/05/01/lista-de-variaveis-de-ambiente-do-windows/ http://www.tecdom.com.br/blog/2009/02/28/recovery-console-disco-de-boot-com-prompt-para-windows-xp/ Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit Editado por - vlnunes on 04/05/2009 23:49:51
  13. Dia 30/05 perfeito, é só escolher o local. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit Editado por - vlnunes on 04/05/2009 18:56:55
  14. No WinRar Olá; Vá em Opções Configurações na aba Compressão Criar padrão Tamanho do arquivo em bytes Espero que ajude Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  15. Texto em dicas do site pctoledo ( www.pctoledo.com.br/col_dic.htm#ind7 ) O RDD DBFCDX Esse RDD permite a criação e manutenção de arquivos de dados e índices do FoxPro2. Principais características: Os índices .CDX do FoxPro são bem menores do que os .NTX criados pelo Clipper. Cria índices condicionais através das cláusulas FOR, WHILE, REST e NEXT. Cria arquivos de índices compostos que contém até 99 subíndices ou TAGS em um único arquivo reduzindo, assim, o número de arquivos abertos em nível do DOS. Como o Clipper permite apenas 15 arquivos associados e abertos com a área atual, o uso dos arquivos CDX permite a abertura de mais arquivos de índices sem sobrecarregar o número de arquivos que o DOS manipula. Para que o RDD DBFCDX funcione corretamente, devem ser seguidos os seguintes passos: 1 - Acrescente as linhas abaixo no início do seu programa principal: REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") 2 - Para criar os arquivos de índices, você deve usar o seguinte comando: SELECT 1 USE CLIENTES INDEX ON codigo TAG indice1 TO cliente1 INDEX ON nome TAG indice2 TO cliente1 Observe que cada campo chave tem um TAG diferente (indice1 e indice2), mas todos estão sendo direcionados para um mesmo arquivo (cliente1), com isto será criado um arquivo de índice chamado CLIENTE1.CDX, com dois subíndices, um indexado pelo código do cliente e outro pelo nome do cliente. 3 - Para mudar a ordem em um arquivo de índice CDX, você deve proceder da seguinte forma: ORDSETFOCUS("INDICE2") Com este comando você vai selecionar o subíndice "INDICE2", que está indexado pelo campo nome do cliente. ORDSETFOCUS("INDICE1") Retorna ao subíndice principal, que está indexado pelo campo código do cliente. Se o comando ORDSETFOCUS( ) não for especificado, a ordem será sempre a do primeiro subíndice criado, neste caso será o indice1, pelo código. 4 - Para linkar um programa com o RDD DBFCDX, deve ser acrescentada a LIB DBFCDX durante o processo de linkagem: RTLINK FI teste LIB DBFCDX 5 - Os comandos abaixos continuam sendo usados da mesma forma: SET INDEX TO - Abre um arquivo de índice. CLOSE ALL - Fecha todos os arquivos de dados e índices associados. - Nota ----------------------------------------------------- Antes de reindexar, elimine os arquivos antigos. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  16. Acho que não tem como, pois você teria de acessar o Gerenciador de tarefas do Windows de outra máquina. Mas veja com o Maligno (forum pctoedo.com.br) ele tem uma biblioteca do API do windows com muitas funções. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  17. Veja em http://www.fivewin.com.br/exibedicas.asp?id=976 Exemplo: .. .. DEFINE BUTTON oBt1 OF OBAR NOBORDER RESOURCE "cliente","subicon" ACTION CLIENTES() oBt1:cToolTip := "Cadastro de clientes." oBt1:lToolTipBallon := .t. oBt1:nTooltipTexColor := rgb(0,0,0) oBt1:nTooltipBKColor := rgb(255,232,232) oBt1:cTooltipTitle := "CLIENTES" oBt1:nTooltipIcon := 1 .. .. A modificação não foi feita por mim, é de alguém deste forum, só não me lembro de quem pois, no cabeçalho do arquivo não tem os créditos da alteração. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  18. Eu estava com um problema semelhante e resolvi (+-) assim: declarei o elemento (get) uma única vês e alterei o texto oGt01:"Novo Texto" oGt01:Refresh() Vou procurar a forma correta e informar, mas faça o teste Vander Editado por - VLNUNES on 12/02/2009 11:29:25
  19. GeraWin, Tente também a LIB WAPI também do amigo Maligno que não só pode desabilitar o botão X, como também fazer sumir o ítem de menu que encerra a sessão DOS. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  20. Amigo GeraWin, Tente o BUTTONX.EXE do amigo Maligno http://www.buzinello.com/pub/xbase/clipper/sources/button_x.zip O programa BUTTONX.EXE é um programa de linha de comando e serve para desabilitar o botão X das janelas. Execute-o por linha de comando no DOS e veja o resultado. A sintaxe é BUTTONX OFF para desabilitar e BUTTONX ON para reabilitar Pode usar em qualquer versão do Clipper. E também em Pascal, COBOL, DataFlex, etc. Esses recursos utilizam um programa executável à parte para acessar os recursos da API do Windows. Portanto, funcionam com qualquer ferramenta que permita chamar o interpretador de comandos do DOS. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  21. Concerto não sei, mas conserto... http://fivewin.com.br/forum/topic.asp?TOPIC_ID=7923 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=6765 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=6639 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=6063 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=4499 http://fivewin.com.br/forum/topic.asp?TOPIC_ID=202 Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  22. Tente Browse("") Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  23. No site do Maligno www.pctoledo.com.br tem estes arquivos. cadastro_de_municipios_brasileiros.zip ceps_brasil_fev-2007_mdb_maiusculas_sem_acentos.zip ceps_brasil_fev-2007_mdb_original.zip ceps_brasil_jun-2008_mdb_original.zip http://pub.buzinello.com/index.php?d=./data/ Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  24. Amigo Gilmer; Respondido por E-Mail por se tratar em parte de um assunto pessoal. Nota aos demais menbros: A minha resposta não foi ofensiva e nem de discordância, apenas trato de um assunto relativo a vida pessoal, por isso responde por E-Mail. Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
  25. Amigo Kapiaba; Posso estar falando besteira, pois não tenho muito conhecimento, mas já tentou Transform()? Vander FW 2.6 / CLIPPER 5.3 / BLINKER 5 / WS 4.5 / xharbour 0.99.50 (simplex)/hbmake / MEdit
×
×
  • Create New...