(Resolvido) SaveDialog e OpenDialog FIXOS

[Arrais Júnior]

existe alguma forma deu deixar uma pasta definida para quando for salvar e uma pasta definida para abrir arquivos ?

eu gostaria de TRAVAR as pastas, para que não pudesse ir buscar arquivos ou salvar arquivos em outras pastas, apenas nas definidas, EX de Pastas: c:\ArquivosSalvos e uma outra chamada c:\ArquivosModelos

outra coisa....

if Savedialog1.Execute then

begin

richedit1.Lines.SavetoFile(Savedialog1.FileName);

richedit1.SetFocus;

existe como eu colocar a data atual no nome do aquivo que vai ser salvo? como ficaria?

obrigado.

[Douglas Soares]

Para colocar um diretório padrão você precisa colocar o caminho no InitialDir do componente assim:

OpenDialog1.InitialDir := 'c:\ArquivosModelos';
OpenDialog1.Execute;

Para não deixar o usuario alterar a pasta você deve ir na propriedade OPTIONS do componente e deixar a opção ofNoChangeDir como TRUE Para o SaveDialog1 você faz a mesma coisa e adiciona a data no nome

SaveDialog1.InitialDir := 'c:\ArquivosSalvos';
if SaveDialog1.Execute then
richedit1.Lines.SavetoFile(Savedialog1.FileName + DateToStr(Date));
richedit1.SetFocus;

Abraços

[Arrais Júnior]

muito simples e diretas as respostas, obrigado

só três probleminhas......,

01 - mesmo alterando a ofNoChangeDir, ainda dar para mudar o diretório onde vai abrir o arquivo e salvar o arquivo.

02 - outra, richedit1.Lines.SavetoFile(Savedialog1.FileName + DateToStr(Date)); ocorre um erro quando tento salvar o arquivo....eu acho que é pelo formato da DATA, 03/12/2010, não pode conter BARRA....teria como mudar? por ponto...sei lá..?

03 - mesmo setando o diretório que é pra ficar ele set os dois, load e save, se mudar o load, o save muda junto, se mudar o save, o load muda junto....teria como por cada um em uma pasta?

Editado Julho 13, 2010 por Arrais Júnior

[Douglas Soares]

01 - mesmo alterando a ofNoChangeDir, ainda dar para mudar o diretório onde vai abrir o arquivo e salvar o arquivo.

Quanto a questão de não deixar mudar a pasta não descobri a razão disso :( , o que você pode fazer é o seguinte, quando ele clicar em salvar independente de onde estiver você pode salvar o arquivo no diretório que você quer, pra isso basta inserir o caminho ali no richedit1.lines.savetofile(caminho + ........)

02 - outra, richedit1.Lines.SavetoFile(Savedialog1.FileName + DateToStr(Date)); ocorre um erro quando tento salvar o arquivo....eu acho que é pelo formato da DATA, 03/12/2010, não pode conter BARRA....teria como mudar? por ponto...sei lá..?

Putz desculpa, esqueci que era pra nome de arquivo ehehe, faz assim que não vai mais dar erro...

SaveDialog1.InitialDir := 'c:\ArquivosSalvos';
if SaveDialog1.Execute then
richedit1.Lines.SavetoFile(Savedialog1.FileName + StringReplace(DateToStr(Date), '/', '.', [rfReplaceAll]));
richedit1.SetFocus;

03 - mesmo setando o diretório que é pra ficar ele set os dois, load e save, se mudar o load, o save muda junto, se mudar o save, o load muda junto....teria como por cada um em uma pasta?

Você tem que fazer como no exemplo que te passei, antes de executar o dialog você deve setar o initialdir via código....

Abraços

[Arrais Júnior]

vlws douglas....

01 não kerendo enxer muito teu saco...apenas por questao de aparencia, como ficaria esse codigo se eu colocasse um [espaço]"-"[espaço] separando o nome que eu iria dar ao arquivo da data automática pra que fique nesse formato:

NOMEDOARQUIVO - 13.07.2010 (nota-se que existe um espaço antes e depois do "-")

[Douglas Soares]

Assim:

SaveDialog1.InitialDir := 'c:\ArquivosSalvos';
if SaveDialog1.Execute then
richedit1.Lines.SavetoFile(Savedialog1.FileName + ' - ' + StringReplace(DateToStr(Date), '/', '.', [rfReplaceAll]));
richedit1.SetFocus;

Abraços

[Arrais Júnior]

perfeito...não tem como melhorar agora =D

vlws pela ajuda e pela presteza.

[The Sprinter]

Em 13/07/2010 em 09:45, Douglas Soares disse:

Como faço pra poder abrir um arquivo de música independente do caminho ????

 

Editado Novembro 18, 2018 por The Sprinter

[Jhonas]

Voce precisa listar todos os arquivos de musica em seu micro e depois clicar em um arquivo para reproduzir a musica ( pode usar o TMedia Player do delphi )

exemplo de como listar todos os arquivos

https://forum.baboo.com.br/index.php?/topic/404499-localizar-arquivos-usando-delphi/

abraço