Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.303 Beiträge
 
Delphi 12 Athens
 
#1

Http Get Zugriffsverletzung

  Alt 3. Mär 2008, 09:05
Guten Morgen alle...

ich hab wieder mal

- folgende procedure läuft beim Programmstart anstandslos wie gewünscht durch.
- beim 2. manuellen Aufruf über Button Zugriffsverletzung beim Get.
Delphi-Quellcode:
procedure TDMFTP.UINIDownload;
var
  fStream: TFileStream;
  URLSource: string;
  Ziel: string;

begin
  AUpdate:= False;
  URLSource:= 'http://blablabla/update.ini';
  Ziel:= InstallPfad + '\update.ini';
  try
    fStream:= TFileStream.Create(Ziel,fmCreate or fmShareDenyNone);
  try
    idHTTP1.Get(URLSource, fStream); <--- Zugriffsverletzung und läuft ins finally dann except
  finally
    fStream.Free;
  end;
  except
    AUpdate:= True;
    exit;
  end;
  if not FileExists(InstallPfad + '\update.ini') then
    begin
      AUpdate:= True;
      exit;
    end;
  DMINI.UINILesen;
  if Version > UVersion then
    begin
      AUpdate:= True;
      exit;
    end;
  if StrToDate(VersionDatum) >= StrToDate(UVersionDatum) then
    begin
      AUpdate:= True;
      exit;
    end;
end;
kann von Euch jemand was sehen ?
Miniaturansicht angehängter Grafiken
image7_143.jpg  
  Mit Zitat antworten Zitat