Nein, kannte ich noch nicht... klingt intereessant, aber ich finde meinen Workaround gelungen (hatte nen Aufruf von TGeistesBlitz.Create(poHirn)
):
Delphi-Quellcode:
function TUpdateForm.Download(Source, Target: string):boolean;
var
fs:TFileStream;
const
UpdateURL='http://jmmworks.bplaced.net/*zensiert*';
begin
Result:=true;
fs:=TFileStream.Create(ExtractFileDir(Application.ExeName)+'\'+Target+'.tmp', fmCreate or fmShareDenyNone);
try
IdDown.Get(UpdateURL+Source, fs);
except
Result:=false;
end;
fs.Free;
if(Result)then
begin
DeleteFile(ExtractFileDir(Application.ExeName)+'\'+Target);
RenameFile(ExtractFileDir(Application.ExeName)+'\'+Target+'.tmp', ExtractFileDir(Application.ExeName)+'\'+Target);
end else DeleteFile(ExtractFileDir(Application.ExeName)+'\'+Target+'.tmp');
end;
So. Hat sich erledigt!
Gruß vom LDer
P.S.: Bei nächster Gelegenheit komm ich auf URLCheck zurück!