Dateigröße auf einem Webserver ermitteln( über WinAPI)
Verfasst: 21.02.2009 21:46
Ist nichts besonderes und einige werden sich jetzt wahrscheinlich auch fragen, warum ausgerechnet API, geht doch auch locker mit den PB-Netzwerk-Funktionen. Nun, dieser Weg hat den Vorteil, dass er auch funktioniert, wenn man einen Proxy-Server nutzt.
Code: Alles auswählen
#HTTP_QUERY_CONTENT_LENGTH=5
Procedure.q GetContentLength(Url$)
Protected hINET, hURL, FileSizet.s=Space(20), Size=StringByteLength(FileSizet), FileSize.q
hINET=InternetOpen_("blub",0,0,0,0)
If hINET
hURL =InternetOpenUrl_(hINET,Url$,0,0,$80000000,0)
If hURL
HttpQueryInfo_(hURL,#HTTP_QUERY_CONTENT_LENGTH,@FileSizet,@Size,#Null)
FileSize=Val(FileSizet)
InternetCloseHandle_(hURL)
InternetCloseHandle_(hINET)
Else
InternetCloseHandle_(hINET)
EndIf
EndIf
ProcedureReturn FileSize
EndProcedure
