26. März 2020 19:52
27. März 2020 08:40
30. März 2020 19:35
URL := 'http://api.labelary.com/v1/printers/12dpmm/labels/4x6/0/';
HttpWebRequestMgt.Initialize(URL);
HttpWebRequestMgt.DisableUI;
HttpWebRequestMgt.SetMethod('POST');
HttpWebRequestMgt.SetReturnType('image/png');
HttpWebRequestMgt.SetContentType('application/x-www-form-urlencoded');
HttpWebRequestMgt.SetExpect(FALSE);
HttpWebRequestMgt.AddBodyAsText(ZPL);
TempBlob.INIT;
TempBlob.Blob.CREATEINSTREAM(InStr);
IF HttpWebRequestMgt.GetResponse(InStr,HttpStatusCode,ResponseHeaders) THEN BEGIN
IF LabelHeader.GET(LabelCode) THEN BEGIN
LabelHeader.Label := TempBlob.Blob;
LabelHeader.MODIFY;
END;
END ELSE
MESSAGE(ErrorMsg);