(Visual FoxPro) AI Modify Existing Image with Text Prompt

See more AI Examples

Note: This example requires Chilkat v11.4.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loBdImageData
LOCAL loAi
LOCAL loAskParams

lnSuccess = 0

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

* Load the data from an existing image.
loBdImageData = CreateObject('Chilkat.BinData')
lnSuccess = loBdImageData.LoadFile("qa_data/jpg/kid_blue_coat.jpg")
IF (lnSuccess = 0) THEN
    ? loBdImageData.LastErrorText
    RELEASE loBdImageData
    CANCEL
ENDIF

loAi = CreateObject('Chilkat.Ai')

loAi.Provider = "openai"

* Use your provider's API key.
loAi.ApiKey = "MY_API_KEY"

* Choose a model.
loAi.Model = "gpt-5"

loAskParams = CreateObject('Chilkat.JsonObject')
loAskParams.UpdateString("image.output_format","jpeg")
loAi.SetAskParams(loAskParams)

loAi.InputAddImageData(loBdImageData,"")
loAi.InputAddText("Modify the image by replacing the blue coat with a Metallica T-shirt.")

* Give the AI some time (2 minutes).
loAi.IdleTimeoutMs = 120000

* Ask the AI for image output.
lnSuccess = loAi.Ask("image")
IF (lnSuccess = 0) THEN
    ? loAi.LastErrorText
    RELEASE loBdImageData
    RELEASE loAi
    RELEASE loAskParams
    CANCEL
ENDIF

* Get the image response data.;
lnSuccess = loAi.GetOutputBd(loBdImageData)
IF (lnSuccess = 0) THEN
    ? loAi.LastErrorText
    RELEASE loBdImageData
    RELEASE loAi
    RELEASE loAskParams
    CANCEL
ENDIF

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

? "Success."

* -------------------------------
* Sample Input:
* -------------------------------
* 

* -------------------------------
* Sample Output:
* -------------------------------
* 

RELEASE loBdImageData
RELEASE loAi
RELEASE loAskParams