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 ?