PowerBuilder

Simple AI Image Generation

See more AI Examples

Create an image by providing a text description. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Ai
oleobject loo_AskParams
oleobject loo_BdImageData

li_Success = 0

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Ai = create oleobject
li_rc = loo_Ai.ConnectToNewObject("Chilkat.Ai")
if li_rc < 0 then
    destroy loo_Ai
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Ai.Provider = "openai"

// Use your provider's API key.
loo_Ai.ApiKey = "MY_API_KEY"

// Choose a model.
loo_Ai.Model = "gpt-5"

loo_AskParams = create oleobject
li_rc = loo_AskParams.ConnectToNewObject("Chilkat.JsonObject")

loo_AskParams.UpdateString("image.output_format","jpeg")
loo_AskParams.UpdateString("image.size","1024x1024")
loo_AskParams.UpdateString("image.quality","low")
loo_Ai.SetAskParams(loo_AskParams)

loo_Ai.InputAddText("Generate a small, cute illustration of a gray tabby cat hugging a happy otter wearing an orange scarf")

// Ask the AI for image output.
li_Success = loo_Ai.Ask("image")
if li_Success = 0 then
    Write-Debug loo_Ai.LastErrorText
    destroy loo_Ai
    destroy loo_AskParams
    return
end if

// Get the image response data.
loo_BdImageData = create oleobject
li_rc = loo_BdImageData.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Ai.GetOutputBd(loo_BdImageData)
if li_Success = 0 then
    Write-Debug loo_Ai.LastErrorText
    destroy loo_Ai
    destroy loo_AskParams
    destroy loo_BdImageData
    return
end if

loo_BdImageData.WriteFile("c:/aaworkarea/out.jpg")

Write-Debug "Success."


destroy loo_Ai
destroy loo_AskParams
destroy loo_BdImageData