a chi si dovesse trovare a lavorare con le stampanti zebra, volevo segnalare questi sito
http://labelary.com/ (http://labelary.com/)
quì trovate uno ZPL on line viewer ed anche un web service
nel sito ci sono molti esempi per diversi linguaggi, manca quello per free-pascal
così ne ho preparato uno
program zebratest;
uses sysutils, fphttpclient, httpprotocol;
var uri,zpl: string;
begin
// adjust print density (8dpmm), label width (4 inches), label height (6 inches), and label index (0) as necessary
uri := 'http://api.labelary.com/v1/printers/8dpmm/labels/4x6/0/';
zpl := HTTPEncode('^xa^cfa,50^fo100,100^fdHello World^fs^xz');
with TFPHttpClient.Create(nil) do try
try
AddHeader('Accept','application/pdf'); // omit this line to get PNG images back
Get(uri + zpl, 'label.pdf'); // change file name for PNG images
except
on e: exception do
Writeln('ERROR: ' + e.Message);
end;
finally
Free;
end;
end.
spero sia utile