Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim flickr As New FlickrNet.Flickr()
flickr.ApiKey = "9855637e1efcb0a7245c2dfb5523774b"
'Replace with your real Flickr Key
flickr.ApiSecret = "6634b31122809bd7"
Dim frob As String = flickr.AuthGetFrob()
Dim url As String = flickr.AuthCalcUrl(frob, FlickrNet.AuthLevel.Write Or FlickrNet.AuthLevel.Read Or FlickrNet.AuthLevel.Delete)
System.Diagnostics.Process.Start(url)
Dim auth As FlickrNet.Auth = flickr.AuthGetToken(frob)
flickr.AuthToken = auth.Token
auth = flickr.AuthCheckToken(flickr.AuthToken)
flickr.AuthToken = auth.Token
If True Then
If FileUpload1.HasFile Then
Dim baseDirectory As String = Server.MapPath("~/picture/")
FileUpload1.SaveAs(baseDirectory & FileUpload1.FileName)
Dim PicturFileName As String = FileUpload1.FileName
Dim PictureTitle As String = FileUpload1.FileName
Dim descrition As String = txtdescription.Text
Dim photoUploaded As String = flickr.UploadPicture(PicturFileName, PictureTitle, descrition, "Tag1,Tag2", True, True, _
True)
Dim photoSets As FlickrNet.Photosets = flickr.PhotosetsGetList()
Dim title As String = "TechnetGuy"
Dim currentSet As FlickrNet.Photoset = Nothing
For Each photoset As FlickrNet.Photoset In photoSets.PhotosetCollection
If photoset.Title.Equals(title) Then
currentSet = photoset
Exit For
End If
Next
If currentSet Is Nothing Then
currentSet = flickr.PhotosetsCreate("Test", photoUploaded)
Else
flickr.PhotosetsEditPhotos(currentSet.PhotosetId, currentSet.PrimaryPhotoId, String.Format("{0},{1}", currentSet.PrimaryPhotoId, photoUploaded))
End If
End If
End If
End Sub
unique
Member
125 Points
100 Posts
flickr
Apr 09, 2012 12:42 PM|LINK
I want to upload image on flickr from my webform. How can i do it.
from the help of bellow link i can accessing the image but for image upload i cant get any answer. please help
http://www.4guysfromrolla.com/articles/091609-1.aspx
ramiramilu
All-Star
95503 Points
14106 Posts
Re: flickr
Apr 09, 2012 12:51 PM|LINK
what about this - http://weblogs.asp.net/robertxue/archive/2008/11/10/upload-your-picture-to-flickr-yourself.aspx
first put a upload control in the your page, then once you have image on server, upload it to flickr using above resource..
Thanks,
JumpStart
unique
Member
125 Points
100 Posts
Re: flickr
Apr 09, 2012 01:00 PM|LINK
Thanks for quick response.
Any other example.
unique
Member
125 Points
100 Posts
Re: flickr
Apr 09, 2012 02:11 PM|LINK
I can make a webform to upload image on flickr
my code is
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim flickr As New FlickrNet.Flickr()
flickr.ApiKey = "9855637e1efcb0a7245c2dfb5523774b"
'Replace with your real Flickr Key
flickr.ApiSecret = "6634b31122809bd7"
Dim frob As String = flickr.AuthGetFrob()
Dim url As String = flickr.AuthCalcUrl(frob, FlickrNet.AuthLevel.Write Or FlickrNet.AuthLevel.Read Or FlickrNet.AuthLevel.Delete)
System.Diagnostics.Process.Start(url)
Dim auth As FlickrNet.Auth = flickr.AuthGetToken(frob)
flickr.AuthToken = auth.Token
auth = flickr.AuthCheckToken(flickr.AuthToken)
flickr.AuthToken = auth.Token
If True Then
If FileUpload1.HasFile Then
Dim baseDirectory As String = Server.MapPath("~/picture/")
FileUpload1.SaveAs(baseDirectory & FileUpload1.FileName)
Dim PicturFileName As String = FileUpload1.FileName
Dim PictureTitle As String = FileUpload1.FileName
Dim descrition As String = txtdescription.Text
Dim photoUploaded As String = flickr.UploadPicture(PicturFileName, PictureTitle, descrition, "Tag1,Tag2", True, True, _
True)
Dim photoSets As FlickrNet.Photosets = flickr.PhotosetsGetList()
Dim title As String = "TechnetGuy"
Dim currentSet As FlickrNet.Photoset = Nothing
For Each photoset As FlickrNet.Photoset In photoSets.PhotosetCollection
If photoset.Title.Equals(title) Then
currentSet = photoset
Exit For
End If
Next
If currentSet Is Nothing Then
currentSet = flickr.PhotosetsCreate("Test", photoUploaded)
Else
flickr.PhotosetsEditPhotos(currentSet.PhotosetId, currentSet.PrimaryPhotoId, String.Format("{0},{1}", currentSet.PrimaryPhotoId, photoUploaded))
End If
End If
End If
End Sub
it give error Invalid frob. Please help
unique
Member
125 Points
100 Posts
Re: flickr
Apr 10, 2012 01:08 PM|LINK
can anybody help on this topic.