Preciso verificar se um determinado arquivo online é existente, se for retornar True, se não, False. Alguém pode ajudar?
1 Resposta
Isso pode ser feito através de uma requisição HTTP com o método HEAD
para solicitar informações de um determinado recurso, sem que o mesmo seja retornado.
Segundo a Wikipedia:
Variação do GET em que o recurso não é retornado. É usado para obter metainformações por meio do cabeçalho da resposta, sem ter que recuperar todo o conteúdo.
Relacionado: Quais são os métodos de requisição HTTP, e qual é a diferença entre eles?
Veja um exemplo:
// Uses: IdHTTP, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;
function CheckFileOnlineExists(const OnlineFile: string; var Size: Int64): Boolean;
var
IdHttp: TIdHTTP;
begin
try
IdHttp := TIdHTTP.Create(nil);
try
IdHttp.Head(OnlineFile);
Size := IdHttp.Response.ContentLength;
if Size > 0 then
Result := True
else
Result := False;
except on E: EIdHTTPProtocolException do begin
// Fazer algo aqui caso você queira tratar alguma exceção do IdHttp
end;
end;
finally
IdHttp.Free;
end;
end;
O primeiro parâmetro da função CheckFileOnlineExists
é o link do arquivo a ser verificado, e o segundo parâmetro é uma variável do tipo inteiro que vai receber o content-length da requisição (embora não tenha sido pedido na questão).
Exemplo de uso:
Const
LINK = 'http://cdn.sstatic.net/br/img/apple-touch-icon.png?v=3958fdf06794';
Var
FileStatus: Boolean;
FileSize: Int64;
begin
FileStatus := CheckFileOnlineExists(LINK, FileSize);
if FileStatus then
ShowMessage(Format('Arquivo existente! Tamanho em bytes %d.', [FileSize]))
else
ShowMessage('Esse arquivo não existe!');
IP*Workws!
no seu Tool Palette, talvez você já até tem ele e não sabe. Qual sua versão de Delphi?