ReceiveHTTPFile() will nicht mehr

Für allgemeine Fragen zur Programmierung mit PureBasic.
sibru
Beiträge: 265
Registriert: 15.09.2004 18:11
Wohnort: hamburg

ReceiveHTTPFile() will nicht mehr

Beitrag von sibru »

hat jemand ´ne Ahnung, warum folgender Source bei mir unter Win7 nicht funktioniert ?

Code: Alles auswählen

Url$ = "https://www.purebasic.com/german"
File$ = "C:\Users\xxx.html"
InitNetwork() 
res = ReceiveHTTPFile(Url$, File$)
Debug "res="+Str(res)+", "+Str(FileSize(File$))+" Bytes empfangen"
ich seh nur 0 und -1...
Via Firefox klappt´s, sind da irgendwelche Windows-Einstellungen Vorraussetzung ?
Bild Bild
Benutzeravatar
mk-soft
Beiträge: 3695
Registriert: 24.11.2004 13:12
Wohnort: Germany

Re: ReceiveHTTPFile() will nicht mehr

Beitrag von mk-soft »

Sicherheitsrichtlinien von Window ...

Zielpath "C:\Users" ungültig. LastError "Zugriff verweigert"

Code: Alles auswählen

;-TOP

Procedure.s FormatMessage(ErrorCode) 

  Protected *Buffer, len, result.s 
  
  len = FormatMessage_(#FORMAT_MESSAGE_ALLOCATE_BUFFER|#FORMAT_MESSAGE_FROM_SYSTEM,0,ErrorCode,0,@*Buffer,0,0) 
  If len 
    result = PeekS(*Buffer) 
    LocalFree_(*Buffer) 
    ProcedureReturn result 
  Else 
    ProcedureReturn "Errorcode: " + Hex(ErrorCode) 
  EndIf 
  
EndProcedure 

; ----

Url$ = "https://www.purebasic.com/german"
File$ = "C:\Users\xxx.html"
InitNetwork() 
res = ReceiveHTTPFile(Url$, File$)
Debug FormatMessage(GetLastError_())

Debug "res="+Str(res)+", "+Str(FileSize(File$))+" Bytes empfangen"
So läuft es ...

Code: Alles auswählen

Url$ = "https://www.purebasic.com/german"
File$ = GetUserDirectory(#PB_Directory_Documents) + "pb.html"

InitNetwork() 
res = ReceiveHTTPFile(Url$, File$)
Debug "res="+Str(res)+", "+Str(FileSize(File$))+" Bytes empfangen"
Es darf nicht mehr wie früher jeden beliebigen Ordern von windows etwas gespeichert werden.

Code: Alles auswählen

Company.s = "MyCompany"
Application.s = "MyApp"
ConfigFile.s = "MyConfig.ini"

AllUsersDataFile.s = GetUserDirectory(#PB_Directory_AllUserData) + Company + #PS$ + Application + #PS$ + ConfigFile

Debug AllUsersDataFile

UserDataFile.s = GetUserDirectory(#PB_Directory_ProgramData) + Company + #PS$ + Application + #PS$ + ConfigFile

Debug UserDataFile
Natürlich erst die Unterordner selber anlegen ...
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
sibru
Beiträge: 265
Registriert: 15.09.2004 18:11
Wohnort: hamburg

Re: ReceiveHTTPFile() will nicht mehr

Beitrag von sibru »

Danke für´s die Hilfe die schnelle Antwort, mk-soft !
ja, da habe ich geschlampt... bei mir schreibt er in einen zugängliches SubDir, habe ich für die Anfrage hier geändert und nicht aufgepasst.
Zwischenzeitlich habe ich auch noch ´ne Handvoll anderer Fehler: Sourcen, die monatelang problemlos liefen, spacken nun an verschiedenen Stellen rum...
Ich werd mal PB neu aufziehen.
Bild Bild
Antworten