Salvar imagem em uma pasta?
09/06/2008
0
Pessoal não estou conseguindo pegar uma imagem usando o opendialog esalvedialog e salvar dentro de um diretório aonde preciso deixar todas imagens dentro.
Olhem
Tentei assim
Além de ficar abrindo a caixa do ´Salvar Como´ do windows que no meu caso não ha necessidade tambem não esta salvando nesta pasta [b:d894ea53cd]C:\MDI Sindicato - Projetos\ImagensAssociados[/b:d894ea53cd]
Ou seja eu quero pegar a imagem não importa o local aonde esteja e gravar ela tambem dentro desta pasta, tipo um copiar e colar pra dentro da pasta.
Obrigado pela ajuda.
Olhem
Tentei assim
var
Diretorio : String; {caminho aonde vai ficar salvo as imagens}
begin
Código: Selecionar tudo
if DSPadrao.DataSet.State in [dsInsert, dsEdit] then
if OpenFoto.Execute then
begin
Imagem.Picture.LoadFromFile(OpenFoto.FileName);
if SaveImagem.Execute then
Diretorio := ´C:\MDI Sindicato - Projetos\ImagensAssociados´;
Imagem.Picture.SaveToFile(Diretorio+SaveImagem.FileName+´.jpg´ );
dm.cdsCadAssociadoCAMINHODAFOTO.AsString := ExtractFileName(OpenFoto.FileName);
end
else
Imagem.Picture.LoadFromFile(dm.cdsCadAssociadoCAMINHODAFOTO.AsString);
Além de ficar abrindo a caixa do ´Salvar Como´ do windows que no meu caso não ha necessidade tambem não esta salvando nesta pasta [b:d894ea53cd]C:\MDI Sindicato - Projetos\ImagensAssociados[/b:d894ea53cd]
Ou seja eu quero pegar a imagem não importa o local aonde esteja e gravar ela tambem dentro desta pasta, tipo um copiar e colar pra dentro da pasta.
Obrigado pela ajuda.
Adriano_servitec
Curtir tópico
+ 0
Responder
Posts
09/06/2008
Emerson Nascimento
pelo que eu pude perceber, só está abrindo a tela ´Salvar como...´ porque você está mandando (na linha ´if SaveImagem.Execute then´).
tente algo assim:
tente algo assim:
if DSPadrao.DataSet.State in [dsInsert, dsEdit] then
if OpenFoto.Execute then
begin
Imagem.Picture.LoadFromFile(OpenFoto.FileName);
Diretorio :=
´C:\MDI Sindicato - Projetos\ImagensAssociados\´+
ExtractFileName(OpenFoto.FileName);
Imagem.Picture.SaveToFile(Diretorio);
dm.cdsCadAssociadoCAMINHODAFOTO.AsString := Diretorio;
end
else
Imagem.Picture.LoadFromFile( dm.cdsCadAssociadoCAMINHODAFOTO.AsString );
Responder
09/06/2008
Adriano_servitec
Obrigado [b:8e5c4d4003]emerson.en[/b:8e5c4d4003], funcionou apenas fiz uma modificação nesta linha aqui
Pois no banco preciso salvar apenas o nome do arquivo.
Valeu amigo.
dm.cdsCadAssociadoCAMINHODAFOTO.AsString := ExtractFileName(OpenFoto.FileName);
Pois no banco preciso salvar apenas o nome do arquivo.
Valeu amigo.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
