Sim funciona! Eu já utilizei numa impressora paralela Epson Lx 810 , e numa HP 656 USB pela rede...
[s] ===================== Eduardo Jedliczka GeraSoft Informática Apucarana - PR ===================== ----- Original Message ----- From: Rubem Rocha To: [EMAIL PROTECTED] Sent: Thursday, December 09, 2004 5:30 PM Subject: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona... Só um detalhe, resta saber se esse mesmo método serve para impressão em uma impressora compartilhada em rede. Se servir, excelente! []s -----Mensagem original----- De: Rubem Rocha [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 9 de dezembro de 2004 15:29 Para: [EMAIL PROTECTED] Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona... Prioridade: Alta Não necessariamente, companheiro. Ele não usa os métodos de desenho do Canvas, e sim o device context (hDC - handle) da impressora para comunicação direta com a mesma. []s -----Mensagem original----- De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 9 de dezembro de 2004 16:26 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Impressao em Porta USB - Exemplo que funciona... Como disse ainda continua sendo via Canvas (Printer.Canvas) Eduardo Jedliczka wrote: >Achei um exemplo, que funciona com impressoras locais (paralelas, >seriais e USB) e impressoras de rede: > >procedure TForm1.Button1Click(Sender: TObject); >var > Buff : TPrnBuffRec; > testint : Integer; > TmpStr : String; > i : Integer; >begin > printer.BeginDoc; > > testint := PASSTHROUGH; > if not Escape(Printer.Handle, QUERYESCSUPPORT, >sizeof(TestInt),@TestInt, >nil) > 0 then > begin > ShowMessage('Não foi possível configurar a impressora para impressão direta'); > Exit; > end; > TmpStr := 'Estou imprimindo um texto...'#13#10'diretamente para a impressora'#13#10'se você desejar formatar este texto,'#13#13'utilize os comandos como no DOS'#12; > Buff.BuffLength := Length(TmpStr); > for i:=0 to Buff.BuffLength-1 do > Buff.Buffer[i]:=TmpStr[i+1]; > Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil); > Printer.endDoc; >end; > >Estou desenvolvendo um componente de preview para ela mas ando sem >tempo... > >[s] > >===================== >Eduardo Jedliczka >GeraSoft Informática >Apucarana - PR >===================== > ----- Original Message ----- > From: Eduardo Jedliczka > To: [EMAIL PROTECTED] > Sent: Thursday, December 09, 2004 3:51 PM > Subject: Re: [delphi-br] Impressao em Porta USB > > > Devo discordar, é possível fazer a impressão para impressoras USB sem > ser via canvas. > > Mas é necessário utilizar um monte de ESCapes... ou seja, dá muito > trabalho... > > [s] > > ===================== > Eduardo Jedliczka > GeraSoft Informática > Apucarana - PR > ===================== > ----- Original Message ----- > From: Paulo Santana (Terra) > To: [EMAIL PROTECTED] > Sent: Wednesday, December 08, 2004 9:05 PM > Subject: Re: [delphi-br] Impressao em Porta USB > > > Impressão em USB somente via Canvas. > > > > Elcio Domingos Ramos wrote: > > >Como faço para enviar dados para a porta USB001. > > > >Uso assignFile(Imprimi, 'LTP1') > >Tentei fazer a mesma coisa com USB001 mas não deu certo. > > > >Já vi este assunto por aqui mas. Não tenho acesso ao site do yahoo aqui na empresa. > > > >Elcio Domingos Ramos <mailto:[EMAIL PROTECTED]> > >DEMAG Cranes & Components Ltda. > >Planejamento Industrial > >Fone: (11)4615-7823 - Fax : (11)4615-7910 > > > > > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > --- > avast! Antivirus: Outbound message clean. > Virus Database (VPS): 0450-0, 06/12/2004 > Tested on: 8/12/2004 20:05:26 > avast! - copyright (c) 2000-2004 ALWIL Software. > http://www.avast.com > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > Yahoo! Grupos, um serviço oferecido por: > > > > > > > > ------------------------------------------------------------------------------ > Links do Yahoo! Grupos > > a.. Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > b.. Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos > do Serviço do Yahoo!. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > Yahoo! Grupos, um serviço oferecido por: > > > > > > > >----------------------------------------------------------------------- >------- > Links do Yahoo! Grupos > > a.. Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > b.. Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo!. > > > >[As partes desta mensagem que não continham texto foram removidas] > > > > > --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 0450-1, 09/12/2004 Tested on: 9/12/2004 17:26:15 avast! - copyright (c) 2000-2004 ALWIL Software. http://www.avast.com -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
