vagner

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"

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"