Jag har försökt tanka ner en bild med winsock och sen öppna i en "image" men jag lyckas bara ladda ner halva bilden.. vad kan vara fel? Såhär ser min kod ut: 1. Huvudet skall avslutas med två vbcrlf Har testat med Close, Och Det är faktiskt två vbcrlf..:)Tanka bild med winsock, sen öppna.
Tacksam för svar!Sv: Tanka bild med winsock, sen öppna.
<code>
Private Sub wsDownloadBanner_Connect()
Dim strHttpRequest2 As String
strHttpRequest2 = "GET http://<url>/testpic.jpg HTTP/1.0" & vbCrLf
strHttpRequest2 = strHttpRequest2 & "Accept: */*" & vbCrLf
strHttpRequest2 = strHttpRequest2 & vbCrLf
wsDownloadBanner.SendData strHttpRequest2
End Sub
Private Sub wsDownloadBanner_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
wsDownloadBanner.GetData strData, vbString
m_strHttpResponse = m_strHttpResponse & strData
End Sub
Private Sub wsDownloadBanner_Close()
Dim strTempFile As String
strTempFile="temp"
m_strHttpResponse = Mid(m_strHttpResponse, InStr(1, m_strHttpResponse, vbCrLf & vbCrLf) + 4)
intFile = FreeFile
Open strTempFile For Binary As #intFile
Put #intFile, , m_strHttpResponse
Close #intFile
End Sub
</code>Sv: Tanka bild med winsock, sen öppna.
2. Stoppa in "Connection: Close" i huvudet så kanske det går...
Mer vet jag inte...
Du kan testa att ha en timer som stänger 10 sekunder efter att den senast tog emot någotSv: Tanka bild med winsock, sen öppna.