Problem mit URLDownloadToFile
Hallo... ich habe ein Problem mit URLDownloadToFIle...
und zwar lade ich mir von einem Server ein Bild runter, um es dann in einem TImage anzuzeigen. Das Kömische ist, dass es bei mir (auf meinem Rechner) super funktioniert, aber bei meinen beiden Kollegen leider nicht. Das Bild lade ich folgendermaßen:
Delphi-Quellcode:
Jetzt dachte ich, es könnte daran liegen, dass meine beiden Kollegen in einer Netzwerk Domäne sind und ich nicht, und der Server sowas vielleicht blockt. Aber das weiß ich leider nicht und unser Admin weiß dass leider auch nicht.
image:=loginForm.siteUrl+'/userimages/'+Label_userid.Caption+'.jpg';
tmpImage:=loginform.AppDir+'tmpImage.jpg'; URLDownloadToFIle(nil,Pchar(image),Pchar(tmpImage),0,nil); if fileexists(tmpImage) then begin image1.Picture.LoadFromFile(tmpImage); DeleteFile(tmpImage); end; Weiß von euch zufällig jemand woran das liegen könnte? oder weiß jemand wie ich es anders machen könnte? |
Re: Problem mit URLDownloadToFile
Moin Florian,
kann es sein, dass der Pfad zu der Zieldatei auf den anderen Rechnern nicht vollständig vorhanden ist? |
Re: Problem mit URLDownloadToFile
doch ist er... aber ich habe das problem gefunden... es lag an den Sicherheitseinstellungen des Internet Explorers... weil die seite kein gültiges SSL zertifikat bestitzt.
danke trotzdem.. aber ich denke der post kann dann hier zu... |
Re: Problem mit URLDownloadToFile
Moin Florian,
da die Funktion auch erst einmal alles in den Cache herunterlädt, und dann erst an das gewünschte Ziel kopiert, bin ich dazu übergegangen hierfür TidHTTP.Get der Indys zu verwenden. |
Re: Problem mit URLDownloadToFile
Hm... Es gäbe da auch noch die Variante über InternetReadFile:
Delphi-Quellcode:
Quelle: http://www.cryer.co.uk/brian/delphi/..._file_http.htm
function DownloadFile(
const url: string; const destinationFileName: string): boolean; var hInet: HINTERNET; hFile: HINTERNET; localFile: File; buffer: array[1..1024] of byte; bytesRead: DWORD; begin result := False; hInet := InternetOpen(PChar(application.title), INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); hFile := InternetOpenURL(hInet,PChar(url),nil,0,0,0); if Assigned(hFile) then begin AssignFile(localFile,destinationFileName); Rewrite(localFile,1); repeat InternetReadFile(hFile,@buffer,SizeOf(buffer),bytesRead); BlockWrite(localFile,buffer,bytesRead); until bytesRead = 0; CloseFile(localFile); result := true; InternetCloseHandle(hFile); end; InternetCloseHandle(hInet); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz