Ajuda Rapida

Delphi

26/08/2009

hi

var
MyFile : Tfilestream;

MyFile := TFileStream.Create(getenvironmentVariable(´PROGRAMFILES´)+´\Software\´+´new.ini´, fmCreate);
try
http.Get(´http://servidor/new.ini´, MyFile);
finally
MyFile.Free;
end;


estou usando esse code pelo http para baixar o arquivo do servidor e está tudo ocorrendo como os conforme, porém...

Se a pasta Software não existir em meus Arquivos de Programas, Gera um erro dizendo que o arquivo nao pode ser criado pq o caminho nao existe,

como posso fazer para que esse erro não apareça! caso o caminho não exista não seria necessario baixar nada, então como posso estar fazendo, except aqui nao seria o caso seria ?

aguardo sua ajuda

até mais


Psycho

Psycho

Curtidas 0

Respostas

Psycho

Psycho

26/08/2009

var
MyFile : Tfilestream;

if DirectoryExists(getenvironmentVariable(´PROGRAMFILES´)+´\Software´)then

MyFile := TFileStream.Create(getenvironmentVariable(´PROGRAMFILES´)+´\Software\´+´new.ini´, fmCreate);
try
except

http.Get(´http://servidor/new.ini´, MyFile);

MyFile.Free;
end;


deixei assim e parou de alertar sobre pasta inexistente, mais acho que esse except antes do http.get nao está certo!

se alguem quiser opinar uma analise...

até mais[/b]


GOSTEI 0
Fabiano Góes

Fabiano Góes

26/08/2009

um exemplo:
var vDir   : string;
    MyFile : TFileStream;
begin

  vDir := GetEnvironmentVariable(´PROGRAMFILES´)+´\Software\´;
  if DirectoryExists(vDir)then
     ForceDirectories(vDir);

  MyFile := TFileStream.Create(vDir+´new.ini´, fmCreate);
  try
    http.Get(´http://servidor/new.ini´, MyFile);
  finally
    MyFile.Free;
  end; 

end;



GOSTEI 0
Psycho

Psycho

26/08/2009

valeu irmão! gostei da frase da sua assinatura

fica com Deus!

[]´s


GOSTEI 0
POSTAR