Http Get Zugriffsverletzung

[haentschman]

Guten Morgen alle... :-D

ich hab wieder mal :wiejetzt:

- 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 ? :gruebel:

[haentschman]

:oops: ab und zu sollte man die Taste F7 benutzen....

das Problem lag keineswegs beim GET.

ich habe versucht im OnWork der IdHTTP eine Progressbar eines Fensters einzustellen welches nicht mehr vorhanden war. :wall:


...also legt Euch wieder hin :-D