Impressora de Codigo de Barras

Delphi

10/03/2005

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


Danilodcf

Danilodcf

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

10/03/2005

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;



GOSTEI 0
Danilodcf

Danilodcf

10/03/2005

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.


GOSTEI 0
Danilodcf

Danilodcf

10/03/2005

Alguem teria algum exemplo usando comandos PPLB?


GOSTEI 0
Dopi

Dopi

10/03/2005

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


GOSTEI 0
POSTAR