1001 Freelance Projects
Latest Projects from Freelance Marketplaces
Today is: 08-Jun-2026 23:08 GMT
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
Social Media Ad Design for Father's Day
Category: Adobe Creative Cloud, Advertisement Design, Graphic Design, Photoshop, Photoshop Design, Social Media Management, Social Media Marketing, Web Design
Budget: $250 - $750 USD
08-Jun-2026
22:04 GMT
Illustrate Adventure Kids Book
Category: Animation, Art Consulting, Art Installation, Caricature & Cartoons, Character Illustration, Creative Design, Graphic Design, Illustration, Visual Arts
Budget: $250 - $750 USD
08-Jun-2026
22:03 GMT
Native / Near-Native American English Speaker Needed for 10–20 Minute Conversation Recording
Category: Audio Services, Public Speaking, Voice Acting, Voice Over, Voice Talent
Budget: min $50 USD
08-Jun-2026
22:02 GMT
Casual Bikini & Lingerie Model
Category: 3D Modelling, Fashion Design, Fashion Modeling, Photography, Photoshop, Social Media Marketing, Visual Arts
Budget: $30 - $250 AUD
08-Jun-2026
21:59 GMT
Modern High-End Apartment Design
Category: 3D Rendering, Architectural Engineering, Architectural Visualization, Architecture, Building Architecture, Building Design, Building Engineering, Building Information Modeling, Home Design, Interior Design
Budget: $250 - $750 USD
08-Jun-2026
21:58 GMT
Football Finance Animation Videos
Category: 2D Animation, After Effects, Animation, Content Creation, Graphic Design, Motion Graphics, Video Editing, Video Services
Budget: ₹37500 - ₹75000 INR
08-Jun-2026
21:55 GMT
UGC Video Editor for DTC Brand
Category: Adobe Premiere Pro, AI (Artificial Intelligence) HW / SW, AI Video, CapCut, Content Creation, Final Cut Pro, Social Media Marketing, Video Editing, Video Production, Video Services
Budget: $1500 - $3000 USD
08-Jun-2026
21:52 GMT
Youth Video Editor & Setter
Category: Adobe Premiere Pro, After Effects, Appointment Setting, Color Grading, DaVinci Resolve, Motion Graphics, Video Editing, Video Processing, Video Production, Video Services
Budget: $250 - $750 USD
08-Jun-2026
21:51 GMT
Help Desk Setup Strategy
Category: Analytics, Automation, Cloud Computing, Customer Support, Documentation, Helpdesk, Project Management, Technical Support
Budget: $10 - $30 USD
08-Jun-2026
21:51 GMT
Long-Term SEO Website Assistant Wanted
Category: Content Writing, Elementor, Internet Marketing, Link Building, SEO, Web Development, Wix, WordPress
Budget: $30 - $250 USD
08-Jun-2026
21:51 GMT
Android Business App Development
Category: Android, Android App Development, Android SDK, Android Studio, Java, Mobile App Development, Software Architecture, Software Development
Budget: ₹100 - ₹500 INR
08-Jun-2026
21:49 GMT
Gemma 4 LoRa Fine-Tuning
Category: Data Analysis, Deep Learning, Hugging Face, LoRa, Machine Learning Algorithms, Natural Language Processing, Prompt Engineering, Python
Budget: $250 - $750 AUD
08-Jun-2026
21:47 GMT
Expert Slack Consultant for Setup and Structuring
Category: Automation, Business Consulting, PHP, Project Management, Salesforce App Development, Salesforce.com, Slack, Software Architecture
Budget: $10 - $30 USD
08-Jun-2026
21:46 GMT
Investment Referral Web Platform
Category: Full Stack Development, HTML, JavaScript, Laravel, MySQL, PHP, Vue.js, Web Development
Budget: $100 - $150 USD
08-Jun-2026
21:43 GMT
Looking for an Industrial Designer / Packaging Designer.
Category: Graphic Design, Industrial Design
Budget: $10 - $30 USD
08-Jun-2026
21:42 GMT
Browse All Projects
Projects by Skills ...
Projects for 'android'
Projects for 'ajax'
Projects for 'asp'
Projects for 'aspnet'
Projects for 'cms'
Projects for 'cpp'
Projects for 'csharp'
Projects for 'css'
Projects for 'delphi'
Projects for 'design'
Projects for 'drupal'
Projects for 'excel'
Projects for 'facebook'
Projects for 'flash'
Projects for 'html'
Projects for 'java'
Projects for 'javascript'
Projects for 'joomla'
Projects for 'iphone'
Projects for 'mysql'
Projects for 'photoshop'
Projects for 'php'
Projects for 'python'
Projects for 'ruby'
Projects for 'seo'
Projects for 'sql'
Projects for 'sysadm'
Projects for 'translate'
Projects for 'typing'
Projects for 'twitter'
Projects for 'vbnet'
Projects for 'xml'
Projects for 'wordpress'
Projects for 'writing'
Read RSS feeds ... New!
RSS feed for 'android'
RSS feed for 'ajax'
RSS feed for 'asp'
RSS feed for 'aspnet'
RSS feed for 'cms'
RSS feed for 'cpp'
RSS feed for 'csharp'
RSS feed for 'css'
RSS feed for 'delphi'
RSS feed for 'design'
RSS feed for 'drupal'
RSS feed for 'excel'
RSS feed for 'facebook'
RSS feed for 'flash'
RSS feed for 'html'
RSS feed for 'java'
RSS feed for 'javascript'
RSS feed for 'joomla'
RSS feed for 'iphone'
RSS feed for 'mysql'
RSS feed for 'photoshop'
RSS feed for 'php'
RSS feed for 'python'
RSS feed for 'ruby'
RSS feed for 'seo'
RSS feed for 'sql'
RSS feed for 'sysadm'
RSS feed for 'translate'
RSS feed for 'typing'
RSS feed for 'twitter'
RSS feed for 'vbnet'
RSS feed for 'xml'
RSS feed for 'wordpress'
RSS feed for 'writing'
New!
Проекты на русском
(Projects in Russian)

Short URL:
1001fp.com
Mobile version:
m.1001freelanceprojects.com
Copyright © 2005-2025 1001 Freelance Projects