1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
procedure TForm1.FormCreate(Sender: TObject);
var
Str: string;
ZPL: TStringStream;
IMG: TMemoryStream;
PNG: TPNGImage;
begin
Str := '^xa^cfa,50^fo100,100^fdHello World^fs^xz';
ZPL := TStringStream.Create(Str);
IMG := TMemoryStream.Create;
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Post('http://api.labelary.com/v1/printers/8dpmm/labels/4x6/0/', ZPL, IMG);
ZPL.Free;
PNG := TPNGImage.create;
IMG.Position := 0;
PNG.LoadFromStream(IMG);
IMG.Free;
Image1.Picture.Assign(PNG);
PNG.Free;
end; |
Partager