B4X
B4X
WordPress Media Upload
See more WordPress Examples
Demonstrates how to upload a media file to WordPress.Chilkat B4X Downloads
Dim success As Boolean = False
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As ChilkatHttp
http.Initialize("http")
' This example will use WordPress username / Application password authentication using the "Applications Password" plugin.
' See https://wordpress.org/plugins/application-passwords/
' Use your WordPress login, such as "admin", not the application name.
http.Login = "wp_username"
' Use the application password, such as "Nths RwVH eDJ4 weNZ orMN jabq"
http.Password = "app_password"
http.BasicAuth = True
Dim req As ChilkatHttpRequest
req.Initialize
req.HttpVerb = "POST"
' Use the Content-Type that corresponds to the type of file you are uploading.
' WordPress supports uploading the following file types:
' Images
'
' .jpg (image/jpg)
' .jpeg (image/jpeg)
' .png (image/png)
' .gif (image/gif)
' .ico (image/x-icon)
'
' Documents
'
' .pdf (applicatin/pdf)
' .doc, .docx (application/msword)
' .ppt, .pptx, .pps, .ppsx (application/mspowerpoint)
' .odt
' .xls, .xlsx (application/msexcel)
' .psd (??? image/vnd.adobe.photoshop,application/x-photoshop,application/photoshop,application/psd,image/psd)
'
' Audio
'
' .mp3 (audio/mpeg)
' .m4a
' .ogg
' .wav (audio/wav)
'
' Video
'
' .mp4, .m4v (video/mp4)
' .mov (video/quicktime)
' .wmv (video/x-ms-wmv)
' .avi (video/avi)
' .mpg (video/mpeg)
' .ogv
' .3gp
' .3g2
req.ContentType = "image/jpg"
req.Path = "/wp-json/wp/v2/media"
success = req.LoadBodyFromFile("qa_data/jpg/starfish.jpg")
If success = False Then
Log(req.LastErrorText)
Return
End If
req.AddHeader("Content-Disposition", "attachment; filename=starfish.jpg")
req.AddHeader("Expect", "100-continue")
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSReq("www.yourserver.com", 443, True, req, resp)
If success = False Then
Log(http.LastErrorText)
Return
End If
Log("HTTP response status: " & resp.StatusCode)
Dim jsonResponse As ChilkatJsonObject
jsonResponse.Initialize
jsonResponse.Load(resp.BodyStr)
jsonResponse.EmitCompact = False
Log(jsonResponse.Emit)
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "id": 1915,
' "date": "2021-01-19T18:25:01",
' "date_gmt": "2021-01-20T01:25:01",
' "guid": {
' "rendered": "http:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish.jpg",
' "raw": "http:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish.jpg"
' },
' "modified": "2021-01-19T18:25:01",
' "modified_gmt": "2021-01-20T01:25:01",
' "slug": "starfish",
' "status": "inherit",
' "type": "attachment",
' "link": "https:\/\/cknotes.com\/starfish\/",
' "title": {
' "raw": "starfish",
' "rendered": "starfish"
' },
' "author": 1,
' "comment_status": "closed",
' "ping_status": "closed",
' "template": "",
' "meta": [
' ],
' "permalink_template": "https:\/\/cknotes.com\/?attachment_id=1915",
' "generated_slug": "starfish",
' "description": {
' "raw": "",
' "rendered": "<p class=\"attachment\"><a href='https:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish.jpg'><img width=\"120\" height=\"120\" src=\"https:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish.jpg\" class=\"attachment-medium size-medium\" alt=\"\" loading=\"lazy\" srcset=\"http:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish.jpg 120w, http:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish-100x100.jpg 100w\" sizes=\"(max-width: 120px) 100vw, 120px\" \/><\/a><\/p>\n"
' },
' "caption": {
' "raw": "",
' "rendered": ""
' },
' "alt_text": "",
' "media_type": "image",
' "mime_type": "image\/jpeg",
' "media_details": {
' "width": 120,
' "height": 120,
' "file": "2021\/01\/starfish.jpg",
' "sizes": {
' "woocommerce_gallery_thumbnail": {
' "file": "starfish-100x100.jpg",
' "width": 100,
' "height": 100,
' "mime_type": "image\/jpeg",
' "source_url": "https:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish-100x100.jpg"
' },
' "shop_thumbnail": {
' "file": "starfish-100x100.jpg",
' "width": 100,
' "height": 100,
' "mime_type": "image\/jpeg",
' "source_url": "https:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish-100x100.jpg"
' },
' "full": {
' "file": "starfish.jpg",
' "width": 120,
' "height": 120,
' "mime_type": "image\/jpeg",
' "source_url": "https:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish.jpg"
' }
' },
' "image_meta": {
' "aperture": "0",
' "credit": "",
' "camera": "",
' "caption": "",
' "created_timestamp": "0",
' "copyright": "",
' "focal_length": "0",
' "iso": "0",
' "shutter_speed": "0",
' "title": "",
' "orientation": "0",
' "keywords": [
' ]
' }
' },
' "post": null,
' "source_url": "https:\/\/cknotes.com\/wp-content\/uploads\/2021\/01\/starfish.jpg",
' "missing_image_sizes": [
' ],
' "_links": {
' "self": [
' {
' "href": "https:\/\/cknotes.com\/wp-json\/wp\/v2\/media\/1915"
' }
' ],
' "collection": [
' {
' "href": "https:\/\/cknotes.com\/wp-json\/wp\/v2\/media"
' }
' ],
' "about": [
' {
' "href": "https:\/\/cknotes.com\/wp-json\/wp\/v2\/types\/attachment"
' }
' ],
' "author": [
' {
' "embeddable": true,
' "href": "https:\/\/cknotes.com\/wp-json\/wp\/v2\/users\/1"
' }
' ],
' "replies": [
' {
' "embeddable": true,
' "href": "https:\/\/cknotes.com\/wp-json\/wp\/v2\/comments?post=1915"
' }
' ],
' "wp:action-unfiltered-html": [
' {
' "href": "https:\/\/cknotes.com\/wp-json\/wp\/v2\/media\/1915"
' }
' ],
' "wp:action-assign-author": [
' {
' "href": "https:\/\/cknotes.com\/wp-json\/wp\/v2\/media\/1915"
' }
' ],
' "curies": [
' {
' "name": "wp",
' "href": "https:\/\/api.w.org\/{rel}",
' "templated": true
' }
' ]
' }
' }
' Sample code for parsing the JSON response...
' Use the following online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON
Dim date_gmt As ChilkatDtObj
date_gmt.Initialize
Dim href As String
Dim embeddable As Boolean
Dim name As String
Dim templated As Boolean
Dim id As Int = jsonResponse.IntOf("id")
Dim date As String = jsonResponse.StringOf("date")
jsonResponse.DtOf("date_gmt", False, date_gmt)
Dim guidRendered As String = jsonResponse.StringOf("guid.rendered")
Dim guidRaw As String = jsonResponse.StringOf("guid.raw")
Dim modified As String = jsonResponse.StringOf("modified")
Dim modified_gmt As String = jsonResponse.StringOf("modified_gmt")
Dim slug As String = jsonResponse.StringOf("slug")
Dim status As String = jsonResponse.StringOf("status")
Dim v_type As String = jsonResponse.StringOf("type")
Dim link As String = jsonResponse.StringOf("link")
Dim titleRaw As String = jsonResponse.StringOf("title.raw")
Dim titleRendered As String = jsonResponse.StringOf("title.rendered")
Dim author As Int = jsonResponse.IntOf("author")
Dim comment_status As String = jsonResponse.StringOf("comment_status")
Dim ping_status As String = jsonResponse.StringOf("ping_status")
Dim template As String = jsonResponse.StringOf("template")
Dim permalink_template As String = jsonResponse.StringOf("permalink_template")
Dim generated_slug As String = jsonResponse.StringOf("generated_slug")
Dim descriptionRaw As String = jsonResponse.StringOf("description.raw")
Dim descriptionRendered As String = jsonResponse.StringOf("description.rendered")
Dim captionRaw As String = jsonResponse.StringOf("caption.raw")
Dim captionRendered As String = jsonResponse.StringOf("caption.rendered")
Dim alt_text As String = jsonResponse.StringOf("alt_text")
Dim media_type As String = jsonResponse.StringOf("media_type")
Dim mime_type As String = jsonResponse.StringOf("mime_type")
Dim media_detailsWidth As Int = jsonResponse.IntOf("media_details.width")
Dim media_detailsHeight As Int = jsonResponse.IntOf("media_details.height")
Dim media_detailsFile As String = jsonResponse.StringOf("media_details.file")
Dim media_detailsSizesWoocommerce_gallery_thumbnailFile As String = jsonResponse.StringOf("media_details.sizes.woocommerce_gallery_thumbnail.file")
Dim media_detailsSizesWoocommerce_gallery_thumbnailWidth As Int = jsonResponse.IntOf("media_details.sizes.woocommerce_gallery_thumbnail.width")
Dim media_detailsSizesWoocommerce_gallery_thumbnailHeight As Int = jsonResponse.IntOf("media_details.sizes.woocommerce_gallery_thumbnail.height")
Dim media_detailsSizesWoocommerce_gallery_thumbnailMime_type As String = jsonResponse.StringOf("media_details.sizes.woocommerce_gallery_thumbnail.mime_type")
Dim media_detailsSizesWoocommerce_gallery_thumbnailSource_url As String = jsonResponse.StringOf("media_details.sizes.woocommerce_gallery_thumbnail.source_url")
Dim media_detailsSizesShop_thumbnailFile As String = jsonResponse.StringOf("media_details.sizes.shop_thumbnail.file")
Dim media_detailsSizesShop_thumbnailWidth As Int = jsonResponse.IntOf("media_details.sizes.shop_thumbnail.width")
Dim media_detailsSizesShop_thumbnailHeight As Int = jsonResponse.IntOf("media_details.sizes.shop_thumbnail.height")
Dim media_detailsSizesShop_thumbnailMime_type As String = jsonResponse.StringOf("media_details.sizes.shop_thumbnail.mime_type")
Dim media_detailsSizesShop_thumbnailSource_url As String = jsonResponse.StringOf("media_details.sizes.shop_thumbnail.source_url")
Dim media_detailsSizesFullFile As String = jsonResponse.StringOf("media_details.sizes.full.file")
Dim media_detailsSizesFullWidth As Int = jsonResponse.IntOf("media_details.sizes.full.width")
Dim media_detailsSizesFullHeight As Int = jsonResponse.IntOf("media_details.sizes.full.height")
Dim media_detailsSizesFullMime_type As String = jsonResponse.StringOf("media_details.sizes.full.mime_type")
Dim media_detailsSizesFullSource_url As String = jsonResponse.StringOf("media_details.sizes.full.source_url")
Dim media_detailsImage_metaAperture As String = jsonResponse.StringOf("media_details.image_meta.aperture")
Dim media_detailsImage_metaCredit As String = jsonResponse.StringOf("media_details.image_meta.credit")
Dim media_detailsImage_metaCamera As String = jsonResponse.StringOf("media_details.image_meta.camera")
Dim media_detailsImage_metaCaption As String = jsonResponse.StringOf("media_details.image_meta.caption")
Dim media_detailsImage_metaCreated_timestamp As String = jsonResponse.StringOf("media_details.image_meta.created_timestamp")
Dim media_detailsImage_metaCopyright As String = jsonResponse.StringOf("media_details.image_meta.copyright")
Dim media_detailsImage_metaFocal_length As String = jsonResponse.StringOf("media_details.image_meta.focal_length")
Dim media_detailsImage_metaIso As String = jsonResponse.StringOf("media_details.image_meta.iso")
Dim media_detailsImage_metaShutter_speed As String = jsonResponse.StringOf("media_details.image_meta.shutter_speed")
Dim media_detailsImage_metaTitle As String = jsonResponse.StringOf("media_details.image_meta.title")
Dim media_detailsImage_metaOrientation As String = jsonResponse.StringOf("media_details.image_meta.orientation")
Dim post As String = jsonResponse.StringOf("post")
Dim source_url As String = jsonResponse.StringOf("source_url")
Dim i As Int = 0
Dim count_i As Int = jsonResponse.SizeOfArray("meta")
Do While i < count_i
jsonResponse.I = i
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("media_details.image_meta.keywords")
Do While i < count_i
jsonResponse.I = i
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("missing_image_sizes")
Do While i < count_i
jsonResponse.I = i
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("_links.self")
Do While i < count_i
jsonResponse.I = i
href = jsonResponse.StringOf("_links.self[i].href")
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("_links.collection")
Do While i < count_i
jsonResponse.I = i
href = jsonResponse.StringOf("_links.collection[i].href")
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("_links.about")
Do While i < count_i
jsonResponse.I = i
href = jsonResponse.StringOf("_links.about[i].href")
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("_links.author")
Do While i < count_i
jsonResponse.I = i
embeddable = jsonResponse.BoolOf("_links.author[i].embeddable")
href = jsonResponse.StringOf("_links.author[i].href")
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("_links.replies")
Do While i < count_i
jsonResponse.I = i
embeddable = jsonResponse.BoolOf("_links.replies[i].embeddable")
href = jsonResponse.StringOf("_links.replies[i].href")
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("_links.wp:action-unfiltered-html")
Do While i < count_i
jsonResponse.I = i
href = jsonResponse.StringOf("_links.wp:action-unfiltered-html[i].href")
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("_links.wp:action-assign-author")
Do While i < count_i
jsonResponse.I = i
href = jsonResponse.StringOf("_links.wp:action-assign-author[i].href")
i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("_links.curies")
Do While i < count_i
jsonResponse.I = i
name = jsonResponse.StringOf("_links.curies[i].name")
href = jsonResponse.StringOf("_links.curies[i].href")
templated = jsonResponse.BoolOf("_links.curies[i].templated")
i = i + 1
Loop