Problem mit URLDownloadToFile

[kingflo]

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:

 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;

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.

Weiß von euch zufällig jemand woran das liegen könnte? oder weiß jemand wie ich es anders machen könnte?

[Christian Seehase]

Moin Florian,

kann es sein, dass der Pfad zu der Zieldatei auf den anderen Rechnern nicht vollständig vorhanden ist?

[kingflo]

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...

[Christian Seehase]

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.

[Daniel G]

Hm... Es gäbe da auch noch die Variante über InternetReadFile:

Delphi-Quellcode:

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;

Quelle: http://www.cryer.co.uk/brian/delphi/..._file_http.htm