Arquivo RTF com imagem

[Pablo César]

Existem algumas soluções para criação de RTF como:

http://pub.buzinello.com/xbase/clipper/ ... chtext.zip e http://pub.buzinello.com/xbase/clipper/ ... extlib.zip do Tom Marchione ora disponibilizado pelos colegas Gilberto (GVC) e o Maligno cedendo o espaço para downloads. Se bem estes dois exemplos ultimos podem ser exclusos as funções gráficas do FIVEWIN e deixar para criação do arquivo RTF em puro Clipper, segundo o colega GVC. Mas eu ainda não me tomei o trabalho de adaptação. Se algum nobre colega se habilitar

viewtopic.php?t=3221 do Rochinha, ao que podemos afirmar que este exemplo pode criar arquivo RTF em Clipper puro e segundo o Rochinha seria um pouco mais trabalhoso mas daria para inserir imagens no RTFs também (só não disse como). E a impressão de arquivos RTFs ja dá para imprimir na linha de comando com outro aplicativo que o Rochinha também disponibilizou para nós em http://www.5volution.com/forum/prnrich.zip

A opção apresentada há anos atrás pelo colega Alexandre (MANAGERCORP) e que eu adaptei (ou digamos: exemplifiquei) para que os colegas entendessem o espirito dessa boa engenioca do Alexandre e que aqui disponibilizo como exemplo (com dados também) para execução imediata. Basta compilar:

Antes de mais nada crie um arquivo no próprio WORD com os cabeçalhos/Rodapés e imagem/logotipo que constarão nos cabeçalhos do seu relatório e salve o como RTF. Outra coisa que deve ser tido em conta, que a fonte que deve ser escolhida no WORD é "Courier New" para que o espaçamento entre cada caracter ora exbido ou impresso sejam do mesmo tamanho (na largura de cada caracter, me refiro), desta forma manterá alinhada da mesma forma que é feito em puro ASCII

Get_rtf.prg

(5.3 KiB) Baixado 459 vezes

[Pablo César]

Até agora ninguém se manifestou dizendo se funcionava o exemplo postado... snif snif aguardo então...

Caro Rochinha, seu aplicativo de impressão de RTFs ( http://www.5volution.com/forum/prnrich.zip ) ele funciona bem se no PRG colocar:

Código: Selecionar todos

RUN START /restored PRNRICH "TESTE.RTF"

Tenho observado que ao executá-lo sempre abre uma nova janela. Será que haveria forma de não abrir essa segunda janela preta ?. Daí ficaria melhor seu aplicativo, se não for pedir muito ?

[rochinha]

Amiguinho

Eu posicionei esta janela em 2000,2000 e deixei a de tamanho infimo e como foi um aplicativo feito as 3 da manhã e de forma rápida não fiz dei muita importancia para o fato, mas sabia que alguém poderia me alertar.

Na verdade quando fiz este aplicativo estava modelando minha rotina de ataque de marketing onde digito o conteudo do email em um controle RichText(usando a Rich32.dll) em puro .RTF e depois converto para .HTML, e envio os emails para os registros de clientes selecionados.

Portanto eu estava com a mão na massa e então parti para criar algo stand-alone.

Mas fique calmo, vou dar uma melhorada e quem sabe possa deixa-la concorrente da WAPI, hehehe.

[rochinha]

Amiguinho,

Pegando carona neste tópico acrescentei mais um utilitário na sessão codigo fonte e que deverá ser bem util para todos.

MERGE - Colagem de dados via Command Line

[Pablo César]

Mas fique calmo, vou dar uma melhorada

Ahhh que bom Rochinha ! Eu ficarei muito animado. Aliás o seu aplicativo ja irá fazer parte dos meus relatórios gráficos.

quem sabe possa deixa-la concorrente da WAPI, hehehe.

ahh sim, vai tentar deixar o Prnrich.exe tão útil quanto o WAPI é para os CONSOLE-APPS ou é para o Clipper digamos. Pois é, colega: se eu tivesse conhecimento e possibilidades de fazer esse utilitários tão úteis em outra linguagem, eu o faria. Só espero que nessa minha solicitação de melhoras você não se sinta comprometido, porque eu acho que nas minhas sugestões/solicitações que eu tenho feito para o outro colega o Maligno, acho que eu devo té-lo cansado. Porque ultimamente fico aguardando o TODO LIST da WAPI de uma forma tão anciosa... que até parece que eu encarnei no coitado...

Pegando carona neste tópico acrescentei mais um utilitário...

Legal ! Sinta-se a vontade, colega. Você é uns dos colegas que mais enriquece a linguagem XBase e é sempre bem vindo !

[rochinha]

Amiguinho

Obrigado, e acho que eu, o Maligno e todos os outros forenses, são programadores e ante de tudo usuários, pois acabamos por usar as ferramentas que estão a mão e muitas vezes não temos tempo nem cabeça pra desenvolver a rotina ou seja la o que.

E eu sempre fui adepto de criar pequenos utilitarios utilizando o que esta a mão como arquivos de lote, etc.

Se voce entra em uma guerra com uma metralhadora faltando balas, atire pedras, estão a mão, ou no chão, hehehe.

Em relação a WAPI, não é pretensão, pois a mesma é chou-de-bola ao quadrado e faz parte de minhas rotinas.

Mas no caso especifico fiz a ponte com outros aplicativos pois para criar algo que fizesse acesso OLE para compilar com Clipper, não seria dificil, mas sim demorado.

E se pesquisarmos um pouco na NET é bem capaz de encontrarmos algo ja pronto.

[Pablo César]

E eu sempre fui adepto de criar pequenos utilitarios utilizando o que esta a mão como arquivos de lote, etc.

Eu também sou muito adepto aos BATCHS FILES (aliás aprecio muito) e utilizar aplicativos que extras sempre que eficientes, eu acho muito válido, não vai des-honrar ninguém.

Se voce entra em uma guerra com uma metralhadora faltando balas, atire pedras, estão a mão, ou no chão, hehehe.

Você é um velho guerreiro !

Em relação a WAPI, não é pretensão, pois a mesma é chou-de-bola ao quadrado e faz parte de minhas rotinas.

Taí, outro reconhecimento que dito seja de passagem, é muito bom o aplicativo que o colega disponibilizou para nós e fazer elogios também não tira pedaços. Pois como ele e muitos aqui fazemos contribuições que só nos enriquece a todos nós.

pois para criar algo que fizesse acesso OLE para compilar com Clipper, não seria dificil, mas sim demorado.

Opa... não tenho dúvida, mas se tivermos em modo de aplicativo já é algo...

[lugab]

Pablo,

Estou precisando imprimir em WORD, então, eu estava analisando o programa q vc postou
neste tópico e me parece q, se o Parâmetro VDES se refere ao arquivo que ainda vai ser criado
pelo programa, ele não pode ser aberto já na linha 30..

Código: Selecionar todos

/*
  Parametros: VCAB = Nome do arquivo criado no Word com extens„o RTF
              VDES = Nome do arquivo destino que ser  criado
              VLIN = Quantidade m xima de linhas por cada p gina
*/

PARAMETERS VCAB,VDES,VLIN

SET CONSOLE OFF
SET SCOREBOARD OFF

IF VCAB=NIL
   SEMPARAM("1")
   QUIT
ELSE
   IF !FILE(VCAB)
      CLS
      @ 12,00 SAY PADC("Arquivo modelo "+VCAB+" feito no Word, n„o foi encontrado !.",80)
      QUIT
   ENDIF
ENDIF
IF VDES=NIL
   SEMPARAM("2")
   QUIT
ENDIF
IF VDES=NIL
   SEMPARAM("2")
   QUIT
ELSE
   nHandle := FOpen(VDES,16)
   IF nHandle = -1
      CLS
      @ 12,00 SAY PADC("N„o foi poss¡vel abrir o arquivo "+VDES,80)
      QUIT
   ELSE
      FClose(nHandle)
   ENDIF
ENDIF