Fórum Reconheçer Tamanho do Arquivo #211195

02/02/2004

0

Delphi

Como faço para Transformar estas linhas abaixo em comandos delphi.

se o arquivo ´c:\temp\teste.txt´ existir e tiver o tamanho de ´128k´ entao
inicio
Comando
Fim

//--

Pessoal se alguem souber como mandar e-mail com anexo atraves do Delphi usando o componente idSMTP da Paleta Indy Clients, por favor me mandem um e-mail, ou poste aqui. :roll:

e-mail: jeronimodedeus@terra.com.br


Spooner

Spooner

Responder

Posts

03/02/2004

Fabio.hc

Tente assim:
procedure TForm1.Button2Click(Sender: TObject);
begin
   if (fileexists(´c:\temp\teste.txt´ )) and ((TFileStream.Create(´c:\temp\teste.txt´, fmOpenRead or fmShareExclusive).Size)/1000 = 128) then
   Begin
   ...
   End;
end;



Quanto e-mail não uso o Indy, ainda.


Responder

Gostei + 0

03/02/2004

Spooner

Caro Fabio, muito Obrigado pela Resposta, mas Fazendo desta forma o arquivo ´c:\temp\teste.txt´ fica em modo excluisivo, entaum não estou conseguindo gravar dados nele, gostaria der saber como liberar ele do modo excluisivo, e entaum poder gravar os dados..
:wink:


Responder

Gostei + 0

04/02/2004

Fabio.hc

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
var TamArq:integer;
begin
if (FileExists(´c:\temp\teste.txt´ )) then
   begin
   with TFileStream.Create(´c:\temp\teste.txt´, fmOpenRead or fmShareExclusive) do
      begin
      TamArq := Size;
      Free;
      end;

   if (TamArq/1000 = 128) then
      begin 
      ... 
      end; 
  end; 
end;



Responder

Gostei + 0

04/02/2004

Spooner

Oi Fabio blz.
Obrigado pelo Codigo funcionou do jeito que eu estava prescisando..
Valew..
:wink:


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar