Hy Frank,
it dosent´t work ...
query.Query is not the solution for my problem.
Your code dont´t work.
What can i do to fix my problem ...
On the Desktop PC it works with query.Uri = New uri(url). This don´t
work on pocketpc.
Thanks for spending time!
Greatz
mccoffein
On 12 Nov., 23:14, "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
wrote:
> Hy Frank,
>
> i habe fixed the problem ...
>
> It works with the following changes on my code:
>
> ...
> Dim service As New Service("youtube", "sample")
> query.Query = "url"
> ...
>
> Thanks for spending time!
>
> Greatz
>
> Torsten
>
> On 12 Nov., 22:28, "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
> wrote:
>
>
>
> > Ok ... If you habe a solution please tell me ...
>
> > Thanks a lot Frank
>
> > On 12 Nov., 21:44, "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
> > wrote:
>
> > > Hy Frank,
>
> > > it dosent work. I dont receive data ... :-(
>
> > > On 12 Nov., 21:04, Frank Mantek <[EMAIL PROTECTED]> wrote:
>
> > > > From the top of my head:
>
> > > > Dim searchTerm As String = TextBox1.Text
> > > > Dim uriSearchTerm As String = URLDecode(searchTerm)
> > > > Dim url As String = "http://gdata.youtube.com/feeds/videos?q=";
> > > > & uriSearchTerm
> > > > Dim query As New FeedQuery(url)
> > > > Dim service As New Service("youtube", "sample")
> > > > query.StartIndex = 0
> > > > query.NumberToRetrieve = 25
> > > > Dim resultFeed As AtomFeed = service.Query(query)
> > > > For Each entry As AtomEntry In resultFeed.Entries
> > > > TextBox1.Text = ("Link: " & entry.AlternateUri.Content)
>
> > > > Frank Mantek
> > > > Google
> > > > On Nov 12, 2008, at 8:54 PM, [EMAIL PROTECTED] wrote:
>
> > > > > Hy Frank,
>
> > > > > Thanks for your answer!
>
> > > > > What must i do to fix my problem?
>
> > > > > Here is my complete code:
>
> > > > > Dim searchTerm As String = TextBox1.Text
> > > > > Dim uriSearchTerm As String = URLDecode(searchTerm)
> > > > > Dim url As String = "http://gdata.youtube.com/feeds/videos?q=";
> > > > > & uriSearchTerm
> > > > > Dim query As New FeedQuery("")
> > > > > Dim service As New Service("youtube", "sample")
> > > > > query.Uri = New Uri(url)
> > > > > query.StartIndex = 0
> > > > > query.NumberToRetrieve = 25
> > > > > Dim resultFeed As AtomFeed = service.Query(query)
> > > > > For Each entry As AtomEntry In resultFeed.Entries
> > > > > TextBox1.Text = ("Link: " & entry.AlternateUri.Content)
>
> > > > > Thanks a lot!
>
> > > > > On 12 Nov., 20:44, Frank Mantek <[EMAIL PROTECTED]> wrote:
> > > > >> the uri setter requires parsing subclasses (uri builder) that are not
> > > > >> available on the CF..
>
> > > > >> you can use the query constructor and pass in a URI there.
>
> > > > >> Frank Mantek
> > > > >> Google
> > > > >> On Nov 12, 2008, at 8:40 PM, [EMAIL PROTECTED] wrote:
>
> > > > >>> Hy,
>
> > > > >>> i'am developing mobile applications for windows mobile devices in
> > > > >>> visual studio 2005.
>
> > > > >>> When i code:
>
> > > > >>> query.uri = New Uri(url) i got the error "Uri is read only".
>
> > > > >>> What can i do?
>
> > > > >>> Thanks.
>
> > > > >>> Torsten- Zitierten Text ausblenden -
>
> > > > >> - Zitierten Text anzeigen -- Zitierten Text ausblenden -
>
> > > > - Zitierten Text anzeigen -- Zitierten Text ausblenden -
>
> > > - Zitierten Text anzeigen -- Zitierten Text ausblenden -
>
> > - Zitierten Text anzeigen -- Zitierten Text ausblenden -
>
> - Zitierten Text anzeigen -
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Google Apps APIs" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/google-apps-apis?hl=en
-~----------~----~----~----~------~----~------~--~---
