Platforms to show: All Mac Windows Linux Cross-Platform

/MacBase/NSURLConnection test


Required plugins for this example: MBS MacBase Plugin, MBS Images Plugin, MBS Main Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacBase/NSURLConnection test

This example is the version from Sun, 17th Mar 2012.

Project "NSURLConnection test.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control Listbox1 Inherits Listbox
ControlInstance Listbox1 Inherits Listbox
End Control
Control iURL Inherits TextField
ControlInstance iURL Inherits TextField
End Control
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control StartButton Inherits PushButton
ControlInstance StartButton Inherits PushButton
EventHandler Sub Action() dim request as new NSURLRequestMBS(iURL.Text) dim error as NSErrorMBS dim response as NSURLResponseMBS dim d as MemoryBlock = NSURLConnectionMBS.sendSynchronousRequest(request, response, error) if d<>Nil then dim pic as Picture = JPEGStringToPictureMBS(d, true) canvas1.Backdrop = pic else canvas1.Backdrop = nil end if if error<>Nil then MsgBox "Error: "+error.description end if End EventHandler
End Control
Control Canvas1 Inherits Canvas
ControlInstance Canvas1 Inherits Canvas
End Control
Control StartButton1 Inherits PushButton
ControlInstance StartButton1 Inherits PushButton
EventHandler Sub Action() dim r as new NSURLRequestMBS(iURL.text) dim m as new MyNSURLConnectionMBS(r) m.list = Listbox1 m.start downloaders.Append m End EventHandler
End Control
EventHandler Sub Resized() resize End EventHandler
EventHandler Sub Resizing() resize End EventHandler
Sub resize() dim w as integer = (Width-20-20-14)/2 listbox1.Width = w canvas1.Width =W canvas1.left = w+20+14 End Sub
Property downloaders() As Variant
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
Class MyNSURLConnectionMBS Inherits NSURLConnectionMBS
EventHandler Function canAuthenticateAgainstProtectionSpace(protectionSpace as NSURLProtectionSpaceMBS) As boolean List.AddRow CurrentMethodName End EventHandler
EventHandler Sub didCancelAuthenticationChallenge(challenge as NSURLAuthenticationChallengeMBS) List.AddRow CurrentMethodName End EventHandler
EventHandler Sub didFailWithError(error as NSErrorMBS) List.AddRow CurrentMethodName List.AddRow "Error: "+error.localizedDescription End EventHandler
EventHandler Sub didFinishLoading() List.AddRow CurrentMethodName dim d as MemoryBlock = me.data if d<>Nil then dim pic as Picture = JPEGStringToPictureMBS(d, true) window1.canvas1.Backdrop = pic end if End EventHandler
EventHandler Sub didReceiveAuthenticationChallenge(challenge as NSURLAuthenticationChallengeMBS) List.AddRow CurrentMethodName End EventHandler
EventHandler Sub didReceiveData(newData as Memoryblock) List.AddRow CurrentMethodName List.AddRow "length: "+str(Data.Size) End EventHandler
EventHandler Sub didReceiveResponse(response as NSURLResponseMBS) List.AddRow CurrentMethodName List.AddRow "expectedContentLength: "+str(response.expectedContentLength) List.AddRow "suggestedFilename: "+response.suggestedFilename List.AddRow "MIMEType: "+response.MIMEType List.AddRow "statusCode: "+str(response.statusCode) End EventHandler
EventHandler Sub didSendBodyData(bytesWritten as Int64, totalBytesWritten as Int64, totalBytesExpectedToWrite as Int64) List.AddRow CurrentMethodName End EventHandler
EventHandler Function shouldUseCredentialStorage() As boolean List.AddRow CurrentMethodName End EventHandler
EventHandler Function willSendRequest(request as NSURLRequestMBS, redirectResponse as NSURLResponseMBS) As NSURLRequestMBS List.AddRow CurrentMethodName List.AddRow "URL: "+request.URL // we don't modify it Return request End EventHandler
EventHandler Sub willSendRequestForAuthenticationChallenge(challenge as NSURLAuthenticationChallengeMBS) List.AddRow CurrentMethodName End EventHandler
Property data As MemoryBlock
Property list As listbox
End Class
End Project

The items on this page are in the following plugins: MBS MacBase Plugin.


The biggest plugin in space...