vagner

Olá Pessoal, Só pra informar, depois de formatar uma mqna e instalar o xharbour e borland, consegui Obrigado a todos Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Pessoal, Para os inciantes, não desistem , isso com certeza á algum problema na minha mqna , já ví isso ocorrer. O que eu acho estranho é que com o meu five vai que é uma blz, pois compilo todo dia, assim como todos, o problema é que se eu tiro o fw compila, mas não roda, a única função que funciona é o Inkey() hehehe, mas continuo tentando, hoje vou ver se limpo uma mqna e instalo tudo para ver Mais uma vez, obrigado a todos Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Ok, ok... acredito em voce. Queres que eu ZIP o meu XHARBOUR e o meu BORLAND e envie para você? BCC55 XHARBOUR 0.99.61 João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 23/11/2012 11:02:20 id=quote>id=quote>Se puder eu agradeço, vou formatar uma mqna e colocar ele lá pra ver Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Kapi, Não estou fazendo nada de errado , esse seu exemplo funciona perfeitamente, mas qndo eu uso o seu bat para compilar, exatamente igual, o que está, exeto por reclamar a pcrepos.lib, não funciona . Luiz, o seu tb funcionou Então ou meu borland está bixado (Acho difícil pois tentei no bcc55 e no bcc582), ou o xharbour (8.08, 11.06, 11.08), está bixado, apesar de eu ter reinstalado, então acho q pode ser o problema no borland. Mas por desencargo de conciência, quais as versões que estão usando ? Eu tentei compilar em 3 mqnas diferentes e o mesmo problema, deve ser esse tal de MSDOS mesmo hehehehe Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Três engenheiros da Apple e três da Microsoft estavam viajando para uma conferência, de trem. Na estacão, os três da Microsoft compraram as passagens e observaram que os três da Apple compraram apenas uma. -"Como três pessoas podem viajar com apenas uma passagem? - pergunta o empregado da Microsoft. -Observe e verá! - responde o engenheiro da Apple.Todos estão no trem. O pessoal da Microsoft tomam seus respectivos assentos, mas os três da Apple trancam-se no banheiro. Quando o trem parte, o coletor de passagens bate na porta do banheiro e pede a passagem. Apenas uma mão é estendida para fora da porta do banheiro e entrega uma passagem. O coletor apanha e vai embora. Os empregados da Microsoft observam tudo e acreditam que é uma idéia inteligente.Após a conferência, os empregados da Microsoft decidem, como de costume, copiar a idéia da Apple e compram apenas uma passagem. Eles observam, espantados, que os engenheiros da Apple não compram nenhuma. -Como vocês viajarão sem nenhuma passagem? - perguntam. -Vocês verão! - responde um engenheiro da Apple.Quando o trem parte, os empregados da Microsoft trancam-se em um banheiro e os da Apple em outro. Um dos engenheiros da Apple sai do banheiro e bate na porta onde estava o pessoal da Microsoft e diz: "A passagem, por favor". Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Kapi, Não adianta, está tudo certo, pode me fazer um favor ?, compile o hello world puro e me mande para eu ver se vai aqui, pode ser até o meu borland que esteja com problema, já reinstalei o xharbour, só falta o borland mesmo, por favor me mande compilado para eu ver rodando pelo menos Obrigado Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá pessoal, muito obrigado, mas não vai nem a pau, dá erro nos _stddef.h,assert.h que está no borland, ou seja dá pau onde não têm pois compilo normalmente em five, só no puro mesmo que não vai, vou ter q tentar ver aqui, o pior é que ele criar o exe, mas não faz nada, se eu ponho um inkey(0), ele para fica a tela preta mas não aparece nada na tela vou ver se consigo compilar em harbour ou então vou ter q fazer um frank aqui Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Pessoal, Acho que o meu problema é com o DOS mesmo hehehehehe, passei dessa fase kkkkkkkk, não vai de jeito nenhum, não consigo nem gerar um simples "Hello World!" na tela hehehehehe Vejam, já tentei com o xHarbour808 e borland bcc55, com o xHarbour1106 e borland bcc582, já tentei com um bat, e nada com o hbmake. Até compila, mas com o bat, dá, um monte de erro que vou postar mais abaixo, com o hbmake, dá que o programa não têm o procedimento main(), ou seja "No Starting Procedure", porém o program aque estou tentando compilar é o hello.prg , acho q vou ter q compilar o bye hehehehe // // $Id: hello.prg,v 1.1.1.1 2001/12/21 10:45:52 ronpinkas Exp $ // // Typical welcome message Procedure Main() clear screen ? "Hello world!" return nil id=code>id=code>//Erros pelo bat xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6717) Copyright 1999-2010, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'Hello.prg' and generating preprocessed output to 'Hello.ppo'... Lines 13, Functions/Procedures 1 Generating C source output to 'Hello.c'... Done. Compiling 'Hello.C' and generating preprocessed output to 'Hello.ppo'... 100 _stddef.h(54) Error E0030 Syntax error: "syntax error at 'UNSIGNED'" _stddef.h(73) Error E0030 Syntax error: "syntax error at 'INT'" _stddef.h(83) Error E0030 Syntax error: "syntax error at 'UNSIGNED'" _stddef.h(93) Error E0030 Syntax error: "syntax error at 'WCHAR_T'" 100 _stddef.h(102) Error E0030 Syntax error: "syntax error at 'WCHAR_T'" _stddef.h(109) Error E0030 Syntax error: "syntax error at 'LONG'" assert.h(38) Error E0030 Syntax error: "syntax error at '__CDECL'" assert.h(41) Error E0030 Syntax error: "syntax error at '__CDECL'" assert.h(43) Error E0030 Syntax error: "syntax error at '*'" 100 200 300 400 9 errors No code generated id=code>id=code>Olha, se isso não fosse tão urgente que eu pudesse passar tudo para o fw, eu nem esquentaria a cabeça , mas infelizmente preciso disso em dos mesmo Willian http://www.4shared.com/file/RHumnEk3/xBuildW.html Esse link não consigo baixar, o antivirus fala que é malware, porém vou até desativar o antivirus para ver se com ele eu consigo compilar hehehehe Obrigado. Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá pessoal, Então, não tenho no xharbour o xbuildw, só tem o hbmaker, não consegui de jeito nenhum rodar, ele compila, mas não apresenta nada na tela, é como se estivesse fora da janela, já "rolei" e nada de aparecer a mensagem , nem um clear screen não funciona Donizete, vou pegar o exemplo, depois reporto , obrigado a todos, quanto ao e-mail retornando, é vwirts@ig.com.br ou vwirts@terra.com.br Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Então Kapi, Foi justamente o que eu pensei, pena que não funciona Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Pessoal, Nunca compilei puro e agora eu preciso compilar, um programa bem simples, mas não consigo nem compilar o Hello.Prg com o hbmake, gostaria de poder rodar pelo menos ele com um bat e um lnk, alguém poderia me ajudar nisso ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Pessoal, Nunca compilei puro e agora eu preciso compilar, um programa bem simples, mas não consigo nem compilar o Hello.Prg com o hbmake, gostaria de poder rodar pelo menos ele com um bat e um lnk, alguém poderia me ajudar nisso ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Vagner, veja seu email hombre!! João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Blz, vou dar uma olhada Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Olá Vagner, creio que faltou o nWidth... For nX := 1 To Len(oBrw:aColuns) If nX != oBrow:nColAct nTamTot -= oBrw:aColuns[nX]:nWidht Endif Next oBrw:aColuns[oBrow]:nWidht += nTamTot id=code>id=code>Sérgio, outra forma de fazer esse redimensionamento, é você chamar uma função como esta que o Vagner colocou, através do bLDblClick, e verificar o LEN da String, a fonte utilizada, e com isso, há como fazer um cálculo da largura ocupada aí seria só atribuir no nWidth da coluna clicada se eu achar este cálculo da fonte mais LEN, eu dou uma postada Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO id=quote>id=quote>Olá, Como disse, não utilizo a xBrowse, na Browse normal, o tamanho é direto no array aColuns Mas se funcionou blz Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Vi em um sistema alheio, algo interessante. Supondo que para ajuste de tela foi determinado o nWidth para cada coluna do xbrowse, e em algum casos este tamanho foi insuficiente. Na xBrowse, clcar na linha divisória e arrastar. O que vi foi, se der 2 clicks no reader, ajusta automaticamente. Quem usa o MySqlFront, e clicar 2 vezes na linha divisória, faz o mesmo ajuste. Dicas ? "Um diamante é um pedaço de carvão que se saiu bem sob pressão.†id=quote>id=quote>Olá, Não utilizo a XBrowse, mas na Browse, vc poderia pegar o tamanho do browse, subtrair os tamanhos das colunas que não foram clicadas e aumentar o resto na coluna clicada +- assim : nTamTot := oBrw:nWidht For nX := 1 To Len(oBrw:aColuns) If nX != oBrow:nColAct nTamTot -= oBrw:aColuns[nX] Endif Next oBrw:aColuns[oBrow] += nTamTot id=code>id=code>Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Como disse o Motta, parece tudo correto CLOSE DATABASE -> Fecha todos os arquivos, impraticavel para quem usa os arquivos abertos no início do sistema, agora se vc usa abrindo por módulo pode ser feito dessa forma Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá, Pelo que eu saiba, vc precisa "ler" novamente a tabela, não adianta ter um índice , ou então pode enviar para um DBF temporário e criar os índices aí sim Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Fala Kapi, Network name deleted Verifique se o nome existe antes de mandar abrir o arquivo If !File(...) Não Encontrei o arquivo.... Endi Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Pessoal Boas Novas Seguindo um exemplo do Sergio (Personal), o Qual agradeço novamente agora em público, pois isso vai me ajudar e muiito . Vou postar o exemplo que funcionou em uma impressora HP 3055 TCP/IP. Segundo o próprio Sergio, parece que desconfigurou o Gateway dele e a mascara de sub-rede, por causa da wireless dele, a minha como é via cabo diretamente na porta do hub, não me deu problemas. Lá vai o código com autorização do autor Static Func Teste() /* *-----------------------------------------------* * Comunicação com o painel via TCP/IP -> (fixo) * *-----------------------------------------------* Function ComunicaPainel(QualIp,QualPorta) *-----------------------------------------------* */ STATIC oSocket xLinha := "Teste de Impressao" QualIp := "192.168.0.252" QualPorta := "9100" InetInit() InetCreate() oSocket:=InetConnectIP( QualIp, Val(QualPorta) ) if InetErrorCode( oSocket ) # 0 msgInfo("Erro na Conexão !!! "+CRLF+"IP "+AllTrim(QualIp)+CRLF+"Porta : "+AllTrim(QualPorta),"Atenção") else nLenMensEnv:=InetSendAll( oSocket, xLinha ) if nLenMensEnv=0 InetCount(oSocket) msgInfo("Erro na transmissão de dados ","Atenção") else SysWait(2) MsgInfo( Str(InetCount(oSocket),4) + " bytes Transmitidos"+CRLF+xLinha, " Informação " ) endif endif InetClose(oSocket ) Retu(Nil) id=code>id=code>Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Dois amigos conversando. — Acho que o meu cachorro é corintiano! — diz um deles. — Ah, pára com isso! Imagina que cachorro liga pra futebol! — Tô te falando... Você precisa ver, toda vez que o Corinthians perde, ele se esconde na casinha e fica chorando. Quando o Corinthians empata ele vai pra cozinha e não sai mais. Fica todo sem graça... — E quando o Corinthians ganha? — perguntou o amigo, começando a acreditar. — Ainda não sei... Só tenho o cachorro há um ano, pô! Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Vagner Certa vez eu fiz isso para uma Argox ou Zebra com a TPrint. Net Use Lpt1: \\192.168.0.252\impressoracompartilhada Não seria o caso? Claro que depende da impressora, certo? Abs Alberto-SP id=quote>id=quote>Olá Pessoal, Obrigado pelas idéias , vou estar com a impressora amanhã em mãos para poder testar, mas acho q o que vai funcionar melhor para o meu propósito é a solução do Socket, esse do net user, daria se fosse pelo windows, o que eu não quero. hoje eu uso desse jeito : MemoWrit("\\Server\ImpressoraCompartilhada",MeuTexto) Porém ela fica no spoll do windows, pois preciso dela compartilhada, a idéia é (já que ela possui um IP fixo, e por isso é tratada na rede como uma mqna independente(Pelo menos deveria )), mandar diretamente para ela, sem precisar estar compartilhada em uma mqna qualquer Eu Realmente espero que funcione , ví até um teste na net de uma lexmark onde fala para testar enviando um arquivo via ftp para a impressora com TCP/IP, eu até tentei com uma HP que tenho aqui, mas não foi heheheheh Agora quero ver nessa Olivetti térmica , mas se funcionar, vai me tirar de um outro sufoco que vou passar daqui umas 3 semanas onde vou pegar uma outra impressora térmica TPC/IP, mas de outra marca Então amanhã ou segunda eu reporto se funcionou como eu gostaria Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

citação:Vagner, se voce ja faz assim então faz uma conexao socket nas portas que mencionei... Conectando voce ja envia e veja o que acontece... citação:Olá Motta, Quanto a impressão, eu já faço desse jeito, é uma impressora térmica, mas eu mando no compartilhamento o que me deu uma grande dor de cabeça hoje, pois o RWindows, deu um erro em uma listagem, e ficou "replicando" a mesma, e tive que retirar manualmente do spoll o que fez com que eu perdesse outras listagens Kapi, vou dar uma olhada nos links agora mesmo Obrigado aos dois Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez" id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD id=quote>id=quote>Blz, vou testar Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Kapi, Realmente não é isso o que eu quero De qq forma obrigado Depois vou fazer um teste com o FOpen("192.168.0.252") e tentar enviar algo para ela Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Motta, Quanto a impressão, eu já faço desse jeito, é uma impressora térmica, mas eu mando no compartilhamento o que me deu uma grande dor de cabeça hoje, pois o RWindows, deu um erro em uma listagem, e ficou "replicando" a mesma, e tive que retirar manualmente do spoll o que fez com que eu perdesse outras listagens Kapi, vou dar uma olhada nos links agora mesmo Obrigado aos dois Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"

Olá Pessoal, Alguém sabe se é possível mandar impressão para uma impressora TCP/IP, sem necessariamente ela estar instalada no windows ? Ou seja ela está na rede, mas eu gostaria de mandar sem ir para o spoller do windows Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez"