1001 Freelance Projects
Latest Projects from
Freelance Marketplaces
View Project
View this project in detail
(Note: you will be redirected to external marketplace)
Project title:
Debug code to upload an image file to ChatGPT
Posted by:
External project from PeoplePerHour
Started:
03-Mar-2025 04:33 GMT
Description:
I have the following code written in an attempt to upload an image file to ChatGPT that can be read and understood along with accompanying text. It isn't working and need to get it to work.

' Function to extract an image path from a string
Function ExtractImagePath(ByVal text As String) As String
Dim regEx As Object
Dim matches As Object
Dim match As Object

' Create regex object
Set regEx = CreateObject("VBScript.RegExp")

' Set regex pattern to look for image paths
' This pattern looks for paths ending with .png, .jpg, .jpeg, or .bmp
regEx.Pattern = "(([a-zA-Z]:\\|\\\\)[^\s\\/:*?""|]+(\\[^\s\\/:*?"" 0 Then
ExtractImagePath = matches(0).Value
Else
ExtractImagePath = ""
End If

' Clean up
Set regEx = Nothing
Set matches = Nothing
End Function

' Function to read an image file and convert it to base64
Function GetBase64FromImage(ByVal filePath As String) As String
On Error GoTo ErrorHandler

Dim streamObj As Object
Dim bytes() As Byte

' Create ADODB.Stream object
Set streamObj = CreateObject("ADODB.Stream")

' Open the stream and read the file
With streamObj
.Type = 1 ' Binary
.Open
.LoadFromFile filePath
bytes = .Read
.Close
End With

' Convert binary data to base64
GetBase64FromImage = Base64Encode(bytes)

' Clean up
Set streamObj = Nothing
Exit Function

ErrorHandler:
GetBase64FromImage = ""
Debug.Print "Error reading image: " & Err.Description
End Function

' Function to encode binary data as base64
Function Base64Encode(ByRef arrData() As Byte) As String
Dim objXML As Object
Dim objNode As Object

' Create MSXML DOMDocument
Set objXML = CreateObject("MSXML2.DOMDocument")

' Create a base64 node
Set objNode = objXML.createElement("b64")

' Set the datatype to bin.base64
objNode.DataType = "bin.base64"

' Set the node value to the binary data
objNode.nodeTypedValue = arrData

' Get the base64 string
Base64Encode = objNode.text

' Clean up
Set objNode = Nothing
Set objXML = Nothing
End Function

' Debug function to test API connection and image handling
Sub DebugGPTResponse()
Dim testPrompt As String
Dim result As String
Dim errorMsg As String

On Error GoTo ErrorHandler

' Test prompt with an image path
testPrompt = "What can you see in this image? C:\Users\Images\test_image.png Please describe it in detail."

' Call the function
result = GetGPTResponse(testPrompt)

' Output success message with the response
MsgBox "Connection successful. Response: " & result
Exit Sub

ErrorHandler:
errorMsg = "Error " & Err.Number & ": " & Err.Description
MsgBox "Connection failed. " & errorMsg
End Sub
Project ID:
3424382
Project category:
Project budget:
View this project in detail
(Note: you will be redirected to external marketplace)
Last Projects / Browse Projects
  Project Started
In-Person Verification Task in Kaohsiung
Category: Admin Support, Customer Service, Data Entry, Documentation, Local Job, Public Relations, Report Writing, Research, Time Management, Translation
Budget: $10 - $30 USD
12 Mar 2026 11:03 GMT
Cab CAD Modeler – carpentry detailing
Category: 3D CAD, 3D Design, 3D Modelling, CAD / CAM, Engineering Drawing, Manufacturing Design, Mechanical Design, Rhino 3D, Solidworks, Structural Engineering
Budget: €6 - €12 EUR
12 Mar 2026 11:03 GMT
Telefonista Soporte al Cliente
Category: Call Center, CRM, Customer Experience, Customer Retention, Customer Service, Customer Support, Telephone Handling, Zendesk
Budget: $25 - $50 USD
12 Mar 2026 11:02 GMT
Garage Conversion Drawings
Category: 2D Drafting, Building Design, Building Information Modeling, Building Regulations, Home Design
Budget: £250 - £750 GBP
12 Mar 2026 11:02 GMT
Translate Mobile App Store Content into 5 Languages (Thai, Spanish, French, Arabic, Japanese)
Category: App Store Optimization, Arabic Translator, Content Writing, Copywriting, French Translator, Japanese Translator, Marketing, Spanish Translator, Thai Translator, Translation
Budget: ₹600 - ₹1500 INR
12 Mar 2026 10:59 GMT
Video editing
Category: Adobe Illustrator, Adobe InDesign, Banner Design, Brochure Design, Graphic Design, Illustration, Print Design, Visual Design
Budget: ₹600 - ₹1500 INR
12 Mar 2026 10:55 GMT
Vibrant Dropshipping Store Redesign
Category: ECommerce, Graphic Design, HTML, UI / User Interface, Web Design, Web Development, Website Optimization
Budget: ₹600 - ₹1500 INR
12 Mar 2026 10:55 GMT
3D Mechanical Part Modeling
Category: 3D CAD, 3D Design, 3D Drafting, 3D Modelling, 3D Printing, 3D Rendering, AutoCAD, CAD / CAM, Mechanical Engineering, Solidworks
Budget: ₹600 - ₹650 INR
12 Mar 2026 10:54 GMT
Earthy Nature T-Shirt Illustration
Category: Adobe Illustrator, Creative Design, Fashion Design, Graphic Design, Illustration, Photoshop, Print Design, T Shirts, Typography
Budget: ₹12500 - ₹37500 INR
12 Mar 2026 10:54 GMT
Design of Internal Helical Guide Ribs for Cylindrical Vortex Flow Chamber
Category: 3D CAD, 3D Design, CAD / CAM, Computational Fluid Dynamics, Engineering, Mechanical Design, Mechanical Engineering
Budget: ₹600 - ₹1500 INR
12 Mar 2026 10:52 GMT
Scientific Literature Review Expert Needed
Category: Data Analysis, Report Writing, Research, Research Writing, Scientific Research, Scientific Writing, Writing
Budget: $30 - $250 AUD
12 Mar 2026 10:51 GMT
Backend & CMS for single page website
Category: Backend Development, CMS, Database Management, HTML, MySQL, PHP, Web Development, WordPress
Budget: €250 - €750 EUR
12 Mar 2026 10:48 GMT
Google Ads Setup & Coaching
Category: Advertising, Digital Marketing, Google Ads, Google Adwords, Google Analytics, Internet Marketing, PPC Marketing, Sales, SEO, Social Media Marketing
Budget: £60 - £250 GBP
12 Mar 2026 10:48 GMT
Modern Web & Mobile UI/UX Design
Category: Figma, Graphic Design, UI / User Interface, Web Design
Budget: ₹1500 - ₹12500 INR
12 Mar 2026 10:48 GMT
Sleek Catalogue Design for Coffee Brand
Category: Adobe Illustrator, Adobe InDesign, Photoshop, Brochure Design, Catalog Design, Corporate Identity, Covers & Packaging, Graphic Design, Print Design, Visual Design
Budget: $250 - $400 USD
12 Mar 2026 10:47 GMT
Browse All Projects
Projects by Skills ...
android
ajax
asp
aspnet
cms
cpp
csharp
css
delphi
design
drupal
excel
facebook
flash
html
java
javascript
joomla
iphone
mysql
photoshop
php
python
ruby
seo
sql
sysadm
translate
typing
twitter
vbnet
xml
wordpress
writing
New!
Проекты на русском
(Projects in Russian)

Copyright © 2005-2025
1001 Freelance Projects