Sinds vele jaren gebruik ik onderstaande routine, om een bestand op te halen,
Nu met Https komt daar SSLIOHandler bij met 2 dll's, op een desktop werkt dat inmiddels
maar hoe ga in nu te werk (in fmx ) op een mobiel?
Moet ik daar ook dll's gaan bijleveren of is er een elegantere oplossing?
Peter
Code:Function GetWebFile(Const PartUrl, CompleteFileName: String): Boolean; //{ --------------------------------------------------------------------- //Date: 06-januari-2011 //Usage: GetWebFile('iets/nieuwbestand.zip', opslagbestand) //Result: boolean //Purpose: Haalt een webbestand op. //Remark: -> http://www.<eigenwebsite>l/iets/nieuwbestand.zip //modified 21-april-2014 Const -> DefaultWebadress //------------------------------------------------------------------- } // Var Browser: TIdHTTP; TempUrl: String; Streamer: TMemoryStream; Begin TempUrl := LowerCase(DefaultWebAdress + PartUrl); Browser := TIdHTTP.Create(Nil); Try Result := False; If Browser.Get(TempUrl) <> '' Then Begin Streamer := TMemoryStream.Create; Try Try Browser.Get(TempUrl, Streamer); Streamer.Position := 0; Streamer.SaveToFile(CompleteFileName); Result := True; Except Begin ShowMessage('A non-related exception has been raised!'); //Showmessage(Browser.Responsetext); Result := False; End; End; Finally FreeAndNil(Streamer); End; End; Finally FreeandNil(Browser); End; End;
Bookmarks