AutoIt

OpenAI (ChatGPT) Upload File

See more OpenAI ChatGPT Examples

Demonstrate how to upload a file to a OpenAI user's organization. AutoIt

Local $bSuccess = False

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

$oHttp = ObjCreate("Chilkat.Http")

;  Implements the following CURL command:

;  curl https://api.openai.com/v1/files \
;    -H "Authorization: Bearer $OPENAI_API_KEY" \
;    -F purpose="fine-tune" \
;    -F file="@mydata.jsonl"

;  Use the following online tool to generate HTTP code from a CURL command
;  Convert a cURL Command to HTTP Source Code

$oReq = ObjCreate("Chilkat.HttpRequest")
$oReq.HttpVerb = "POST"
$oReq.Path = "/v1/files"
$oReq.ContentType = "multipart/form-data"
$oReq.AddParam "purpose","fine-tune"

;  myData.json contains the following:
;  { "prompt": "aa", "completion": "bb" }
;  { "prompt": "cc", "completion": "dd" }
$bSuccess = $oReq.AddFileForUpload2("file","qa_data/json/mydata.jsonl","application/octet-stream")

;  This is NOT a real key.  Change the "sk-vi...." to your own key.
$oReq.AddHeader "Authorization","Bearer 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"
$oReq.AddHeader "Expect","100-continue"

$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpSReq("api.openai.com",443,True,$oReq,$oResp)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$oResp.GetBodySb($oSbResponseBody)

$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

;  Sample JSON response:
;  (Sample code for parsing the JSON response is shown below)

;  {
;    "id": "file-XjGxS3KTG0uNmNOK362iJua3",
;    "object": "file",
;    "bytes": 140,
;    "created_at": 1613779121,
;    "filename": "mydata.jsonl",
;    "purpose": "fine-tune"
;  }

;  Sample code for parsing the JSON response...
;  Use the following online tool to generate parsing code from sample JSON:
;  Generate Parsing Code from JSON

Local $sId = $oJResp.StringOf("id")
Local $sV_object = $oJResp.StringOf("object")
Local $iV_bytes = $oJResp.IntOf("bytes")
Local $iCreated_at = $oJResp.IntOf("created_at")
Local $sFilename = $oJResp.StringOf("filename")
Local $sPurpose = $oJResp.StringOf("purpose")