RE: [EXTERNAL] Re: RPGLE API : How can I download images or PDF's from a website to my AS400

For me - this is eye opening
I did not know that this was available

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Bryan Dietz
Sent: Friday, November 6, 2020 10:07 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] Re: RPGLE API : How can I download images or PDF's from a website to my AS400

SQl* can do it as well.

SELECT systools.HTTPGETBLOB(
'https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/db2/rbafzpdf.pdf','')
FROM SYSIBM.SYSDUMMY1

and an SQLRPG i had laying around

D PDF S SQLTYPE(BLOB_FILE)
D URL S 255 Varying
/Free
WURL='https://www.ibm.com/support/' +
'knowledgecenter/ssw_ibm_i_74/db2/rbafzpdf.pdf';
PDF_Name='/tmp/IBMSQL.pdf';
PDF_NL=%Len(%TrimR(PDF_Name));
PDF_FO=SQFOVR; // Overwrite

Exec SQL
SELECT SYSTOOLS.HTTPGETBLOB(:WebURL,'') PDF_DATA
INTO :PDF
FROM SYSIBM.SYSDUMMY1;

*InLR=*On;
/End-Free



Bryan

*current releases


Brad Stone wrote on 11/6/2020 7:15 AM:

My GETURI software will do this quite easily.

www.bvstools.com/geturi.html

It's as easy as this command (APIs and ILE functions also available):

GETURI URI('www.site.com/path/to/file.pdf') OUTPUT(*STMF)
STMF('/myfiles/file.pdf') SPRHEAD(*YES)

The SPRHEAD option says to suppress headers from the output that is
created so your PDF doesn't get corrupted.

Brad
www.bvstools.com



On Fri, Nov 6, 2020 at 3:29 AM Kris Chantry <kris.chantry@xxxxxxxxx> wrote:

Hello,



A client of us puts new product images on a website and then sents
the URL where we can find this image so that we can retrieve the
image and print it on the boxes.



Is there an API or an easy way that we can DOWNLOAD or RETRIEVE those
images from his website on to our IFS ?



Someting like:

downloadWebImage('www.google.com/image01.jpg', 'myas400/directory');





--
This is the RPG programming on IBM i (RPG400-L) mailing list To post
a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com