Com definir o caminho de arquivos externo a aplicação???????
14/05/2003
0
Tenho um aplicativo, onde chamo arquivos externos a aplicação:
´ loadfromfile:= (´ E:\ foto.jpg´)...´
´Filename := (´D:\´ musica.mp3´)...´
Base de dados ( C:\dados...)
Esses arquivos estão divididos em três diretórios, na minha máquina...
Só que quando eu instalar esse aplicativo na máquina de um cliente, certamente vai dar erro, a não ser que ele também crie os mesmos caminhos que o meu, e se ele quiser instalar o programa em ´C, D, G ´ ??? Isso não tem lógica alguma !!!
Gostaria de criar um caminho único para:
O Executável, base de dados, arquivos de som, imagem e vídeo...
Dando opção do Usuário instalar em C,D,E,F...
Certamente terei que alterar o código onde faço as referências de:
´ C:\ , D:\, E:\...´ de que maneira ???????????
´ loadfromfile:= (´ E:\ foto.jpg´)...´
´Filename := (´D:\´ musica.mp3´)...´
Base de dados ( C:\dados...)
Esses arquivos estão divididos em três diretórios, na minha máquina...
Só que quando eu instalar esse aplicativo na máquina de um cliente, certamente vai dar erro, a não ser que ele também crie os mesmos caminhos que o meu, e se ele quiser instalar o programa em ´C, D, G ´ ??? Isso não tem lógica alguma !!!
Gostaria de criar um caminho único para:
O Executável, base de dados, arquivos de som, imagem e vídeo...
Dando opção do Usuário instalar em C,D,E,F...
Certamente terei que alterar o código onde faço as referências de:
´ C:\ , D:\, E:\...´ de que maneira ???????????
Lbsystems
Curtir tópico
+ 0
Responder
Posts
14/05/2003
Dedi
function ProgPath(filename:String):string; var st:string; begin st:= application.ExeName; result:= extractfilepath(st)+filename; end;
Utilize esta função que retorta o caminho de seu aplicativo.
exemplo:
image1.Picture.LoadFromFile(copy(ProgPath(´project1.exe´),1,3)+´foto.jpg´);
Dedi
Responder
18/05/2003
Rmfb
Caro amigo, a sua implementação foi ótima, porém, existem um jeito mais fácil: utilize um OpendialogPicture e crie um botão ´Carregar Imagem´
Procedure TForm1.botãoCarregarImagem(Sender:TObject);
Begin
If OpendialogPicture.Execute Then
OpendialogPicture.Picture.LoadFromFile(OpendialogPicture.FileName);
End;
Procedure TForm1.botãoCarregarImagem(Sender:TObject);
Begin
If OpendialogPicture.Execute Then
OpendialogPicture.Picture.LoadFromFile(OpendialogPicture.FileName);
End;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
