(Resolvido) Ler arquivo texto da net e executar determinada função

[wesleyleite]

Opa a todos.

Gostaria de saber como faço para criar um aplicativo (function, procedure) que sempre que iniciado (FormCreate) ele leia um arquivo na internet, por exemplo: www.activedelphi.com.br/arquivo.txt e se nesse arquivo estiver somente a palavra SIM ele executar determinada função, e se estiver a palavra NÃO, ele não executar nada.

valeu aí.

Editado Maio 14, 2010 por wesleyleite

[Douglas Soares]

Declare a Unit UrlMon, insira essa função no código:

Function Download(FSource, FDest: String): Boolean;
begin
  try
        Result := UrlDownloadToFile(nil, PChar(Fsource),PChar(FDest), 0, nil) = 0;
        except
        Result := False;
  end;
end;

Adicione um botão no form e no evento onclick coloque isso:

procedure TForm1.Button1Click(Sender: TObject);
var
caminho, linha : string;
arq : TextFile;
begin
caminho := 'C:\arquivo.txt';
Download('http://www.soareseneves.com.br/downloads/sigi/atualiza/Atualizacoes.sn', caminho);
AssignFile ( arq, caminho);
Reset ( arq );
Read ( arq, linha );
CloseFile ( arq );

if linha = 'SIM' then
ShowMessage('SIM')
else
if linha = 'NÃO' then
ShowMessage('NÃO');

end;

Abraços

[wesleyleite]

Muito obrigado mesmo, 100% certo :) :)

Agradeço muito, valeu aí!!!