Fórum Impressora de Codigo de Barras #271776

10/03/2005

0

Delphi

Alguem teria um exemplo de como imprimir um imagem(.pcx ou .bmp) numa impressora Argox 214 programando em PPLB?


Danilodcf

Danilodcf

Responder

Posts

10/03/2005

Rômulo Barros

As vezes, quando utilizados os médoto Draw e StretchDraw da propriedade Canvas do objeto TPrinter, a imagem não é impressa, para corrigir isto, utilize esta procedure, que passando como parâmetros a instância Printer.Canvas, Margem Esquerda, Margem Superior.
procedure TForm1.DrawImage( Canvas : TCanvas;
X, Y, Width, Height : Integer; ABitmap : TBitmap);
var
Header, Bits : Pointer;
HeaderSize : Integer;
BitsSize : Longint;
begin
GetDibSizes( ABitmap.Handle, HeaderSize, BitsSize );
Header := AllocMem( HeaderSize );
Bits := AllocMem( BitsSize);
try
GetDib( ABitmap.Handle, ABitmap.Palette, Header^, Bits^);
StretchDIBits( Canvas.Handle, X, Y,
Width, Height, 0, 0,
ABitmap.Width, ABitmap.Height,
Bits, TBitmapInfo(Header^),
DIB_RGB_COLORS,SRCCOPY);
finally
FreeMem( Header, HeaderSize);
FreeMem( Bits, BitsSize );
end;
end;



Responder

Gostei + 0

10/03/2005

Danilodcf

ok amigo, obrigado pela dica mas estou usando a linguagem da propria impressora(PPLB) e imprimindo direto na lpt1.
Na verdade nao estou conseguindo executar um comando(GM) que armazena a figura na memoria da impressora pra ser impressa.


Responder

Gostei + 0

11/03/2005

Danilodcf

Alguem teria algum exemplo usando comandos PPLB?


Responder

Gostei + 0

11/03/2005

Dopi

Nao sei se a linguagem da Argox é semelhante a da Alllegro, mas de uma olhada nesse tópico:

http://www.forumweb.com.br/foruns/index.php?showtopic=24884


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar