aktualisieren der DL Datei

[CReber]

Delphi-Quellcode:

Function GetFileFromInet(Const fileURL: String) : AnsiString;
Const
  BufferSize = 1024;
Var
  sAppName: String;
  hSession, hURL: hInternet;
  buffer: Array[1..BufferSize] of Byte;
  bufferLen: dword;
  mem: TMemoryStream;
Begin
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  Try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, INTERNET_FLAG_RELOAD, 0); // Der vorletzte Parameter ist entscheident!
    Try
      mem := TMemoryStream.Create;
      Repeat
        InternetReadFile(hURL, @Buffer, SizeOf(buffer), BufferLen);
        mem.Write(buffer, bufferlen);
      Until bufferLen = 0;
      SetLength(Result, mem.Size);
      mem.Seek(0, soFromBeginning);
      mem.Read(Result[1], mem.size);
      mem.Free;
    Finally
      InternetCloseHandle(hURL);
    End;
  Finally
    InternetCloseHandle(hSession);
  End;
End;

Damit hab ich es hinbekommen ! Falls Muetze1 hier auf dem Forum ist DANKESCHÖN ! Hat ne Weile gedauert bis wir/er den Fehler gefunden hat