Bom, fiz uma função, mas não está funcionando.
O objetivo dessa função é baixar um arquivo e quando terminar, retornar true
.
Esta é a função:
function TForm1.BaixarArquivo(Sender: TObject; Url:String; Name:Integer):Boolean;
var
fileTD : TFileStream;
begin
fileTD := TFileStream.Create(IntToStr(Name) + ExtractFileExt(Url), fmCreate);
try
Sender.Get(Url, FileTD);
finally
FreeAndNil(fileTD);
end;
end;
Declarei assim no public:
function BaixarArquivo(Sender: TObject; Url:string; Name:Integer): Boolean;
E chamei assim:
BaixarArquivo(IdHTTP1, 'http://pokestage.ddns.net/patch/5.rar', 5);
Mas retorna esse erro:
[Error] LauncherUnit.pas(66): Undeclared identifier: 'Get'
Segunda função:
function TForm1.RetornaPorcentagem(ValorMaximo, ValorAtual: Real):string;
var
resultado: Real;
begin
resultado := ((ValorAtual * 100) / ValorMaximo); Result := FormatFloat('0%', resultado);
end;
O erro é do Floating division by Zero.