kmkg

Elas imprimem mais lento porque os comandos enviados pelos geradores de relatórios não são compatíveis com o que elas entendem, além de imprimir errado. Por ex: se você tiver que imprimir na col 10 e depois na col 51, pelo gerador ela fica imprimindo brancos até a col 51, ao passo que se você utilizr seus comandos ESC, você pode posicionar o carro da impressora diretamente na col 51. Veja neste link a partir da página 9 os comandos da Epson.

Adicione WinSpool no uses. OpenPrinter p/ pegar o Handle da impressora: var HPrinter:THandle; begin OpenPrinter(PChar('Nome_da_Impressora'), HPrinter, nil); end; StartDocPrinter p/ iniciar um job no spool de impressão:var Doc:Doc_Info_1; begin Doc.pDocName := 'Nome do Relatório'; Doc.pOutputFile := ''; Doc.pDatatype := 'RAW'; StartDocPrinter(HPrinter, 1, @Doc); end; Alguns comandos ESC: var iRet:Longword; s:String; s := #27#120#0; // coloca em modo Draft WritePrinter(HPrinter, @s[1], 3, iRet); s := #27#50; // define espacejamento vertical em 1/6 polegadas WritePrinter(HPrinter, @s[1], 2, iRet); s := #27#74 + Chr(10); // Avança 10 linhas WritePrinter(HPrinter, @s[1], 3, iRet); s := #27#69; // coloca fonte em estilo bold WritePrinter(HPrinter, @s[1], 2, iRet); s := #27#15#27#80; // imprime com 17 caracteres por polegada WritePrinter(HPrinter, @s[1], 4, iRet); s := 'Teste de Impressão'; // imprime uma linha WritePrinter(HPrinter, @s[1], Length(s), iRet); s := #13#10; // Carriage return e Line feed WritePrinter(HPrinter, @s[1], 2, iRet); EndDocPrinter p/ finalizar o job de impressão: begin EndDocPrinter(HPrinter); end; ClosePrinter p/ fechar o objeto HPrinter begin ClosePrinter(HPrinter); end; Verifique outros comando ESC no manual da impressora(existem muitos outros)

Colegas, não sei quanto ao Rave mas com o Quick tive vários problemas de impressão em matriciais e a melhor solução que achei foi imprimir na mão pelo OpenPrinter, StartDocPrinter, WritePrinter, EndDocPrinter e ClosePrinter; utilizando os comandos ESC/P da impressora. As matriciais são muito frescas para imprimir, mas se você utilizar seus comandos ESC(veja no manual), elas imprimem com exatidão.

O Windows chama pela informação do Callback. Agora tenho que testar se funciona em dll.

Sem Handle dá para criar utilizando o último parâmetro de SetTimer que é o ponteiro para a procedure de Callback. Comigo também essa procedure é executada 2 vezes, mas somente uma vez com a msg WM_Timer.

Parece que é no TWinControl.Destroy que o Parent elimina seus filhos chamando Instance.Destroy; aí ele volta a executar TWinControl.Destroy rescursivamente.

Assim acho que deverá funcionar, testei SetTimer sem Handle e funcionou pelo Callback, agora quero ver se funciona numa dll sem ter que criar um objeto para isso, assim ficará uma única rotina.

Realmente você tem razão. Vinha com essa idéia desde o D5 quando criava componentes em execução sem Owner. Na hora de liberar, se destruísse o pai antes, quando fosse destruir o filho dava erro de Control has no parent.

Pois é Churc acho que é ± como disse; cada um segue seu critério dependendo do software que está se escrevendo.

Acho que isso não é seguido muito, pois se você notar os .exe da system32 do Windows XP, a maioria possui Build 2180, as dlls possuem Build=2180 e Build=0.

Olá Micheus, obrigado por responder. O problema não é bem este e me desculpe por esquecer de mencionar no tópico original. O problema é que não existe Form e ele tem que ser criado numa função de um objeto e seu evento onTimer nunca é disparado.

Colega, acho que você se enganou. O Parent não destroi nada, quem destroi é o Owner e se não tiver Owner, você tem que destruir na mão com Free.

Olá Luciana :rolleyes: Qual e como seria a remuneração para quem participar ?

Olha, já ví muitos programas rodando em empresas sem nenhuma versão. quanto a estrutura da numeração, acho que vai de cada empresa desenvolvedora adotar seu critério.

Pessoal, alguém já conseguiu criar um TTimer em tempo de execução e fazer seu evento onTimer funcionar ? Essa tá difícil :angry: