QuickUp (0.7) UPDATE!! Jetzt mit Screenshot-Einfüge Funktion

Digot - Software · 29. Januar 2012, 15:40

Name des Programms:
QuickUp

Beschreibung:

Das Programm kann Bilder in wenigen Sekunden auf einen beliebigen Hoster uploaden. Entweder Bild per Dialog auswählen oder einfach und bequem über Drag&Drop auf das Programm ziehen oder einen gemachten Screenshot einfügen.

Screenshot(s):
Anhang

Verwendete Programmiersprache:

Visual Basic .NET (IDE: VB 2008 Express)

Systemanforderungen:

.NET Framework 3.5

Download:

Anhang

Lizenz/Weitergabe:

Freeware

haiyyu · 29. Januar 2012, 17:54

Bist du dir sicher, dass das Bild von den Pinguinen 759 MB groß ist?

Digot - Software · 29. Januar 2012, 20:02

Ups...Mein Fehler

UPDATE (0.8.0.78)

- Dateigrößeneinheit geändert

- Man kann nur noch Bilder per Drag&Drop einfügen
- Screenshots einfügbar
- Vorschauformat auswählbar
- Bugs gefixt

Technostyles · 30. Januar 2012, 20:25

Wie wärs mit mehr Hostern?

ImageShack ist zwar okay, aber ich würde meine Bilder - egal welche es sind - nicht bei dir hochladen ("Hoster" Nr. 2)
mfg

Pes1899.vb · 30. Januar 2012, 20:58

Und ImageShack ist extrem langsam

haiyyu · 30. Januar 2012, 21:01

Bau imgur.com ein.

Myrax · 30. Januar 2012, 21:06

directupload.

Digot - Software · 30. Januar 2012, 21:35

Und wie soll das funktionieren wenn Directupload keine API hat und imgur keinen sichtbaren Downloadlink hat? O_O

haiyyu · 30. Januar 2012, 21:41

Wenn ich etwas hochlade, sehe ich den Link rechts neben dem Bild.

Digot - Software · 31. Januar 2012, 18:41

Ich meine ich sehe den Downloadlink der API nicht!!

Sebastian.Trzynka · 31. Januar 2012, 18:49

Guck mal hier:
api.imgur.com/examples

Du musst dein Programm da registrieren!

Digot - Software · 31. Januar 2012, 19:19

Habe ich und auch einen Code gekriegt...allerdings nicht zum downloaden

Bady · 16. März 2012, 18:07

Den API Key musste dir halt noch besorgen (registrieren)

VB.NET-Quellcode

Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1
Class Program
Private Shared Sub Main(ByVal args As String())
PostToImgur("C:\Users\ashwin\Desktop\image.jpg", IMGUR_ANONYMOUS_API_KEY)
End Sub
Public Shared Sub PostToImgur(ByVal imagFilePath As String, ByVal apiKey As String)
Dim imageData As Byte()
Dim fileStream As FileStream = File.OpenRead(imagFilePath)
imageData = New Byte(fileStream.Length - 1) {}
fileStream.Read(imageData, 0, imageData.Length)
fileStream.Close()
Const MAX_URI_LENGTH As Integer = 32766
Dim base64img As String = System.Convert.ToBase64String(imageData)
Dim sb As New StringBuilder()
Dim i As Integer = 0
While i < base64img.Length
sb.Append(Uri.EscapeDataString(base64img.Substring(i, Math.Min(MAX_URI_LENGTH, base64img.Length - i))))
i += MAX_URI_LENGTH
End While
Dim uploadRequestString As String = "image=" & sb.ToString() & "&key=" & imgurApiKey
Dim webRequest__1 As HttpWebRequest = DirectCast(WebRequest.Create("http://api.imgur.com/2/upload"), HttpWebRequest)
webRequest__1.Method = "POST"
webRequest__1.ContentType = "application/x-www-form-urlencoded"
webRequest__1.ServicePoint.Expect100Continue = False
Dim streamWriter As New StreamWriter(webRequest__1.GetRequestStream())
streamWriter.Write(uploadRequestString)
streamWriter.Close()
Dim response As WebResponse = webRequest__1.GetResponse()
Dim responseStream As Stream = response.GetResponseStream()
Dim responseReader As New StreamReader(responseStream)
Dim responseString As String = responseReader.ReadToEnd()
End Sub
End Class
End Class

Alex - AK · 30. März 2012, 23:52

clip2net.com/en/

Digot - Software · 1. April 2012, 12:51

Danke für euere Hilfe!

Ich setze mich heute noch dran.

QuickUp (0.7) UPDATE!! Jetzt mit Screenshot-Einfüge Funktion

QuickUp (0.7) UPDATE!! Jetzt mit Screenshot-Einfüge Funktion

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

7 Benutzer haben hier geschrieben