Salvar imagem em uma pasta?

09/06/2008

15

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

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.


Responder

Posts

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:
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
Obrigado [b:8e5c4d4003]emerson.en[/b:8e5c4d4003], funcionou apenas fiz uma modificação nesta linha aqui

dm.cdsCadAssociadoCAMINHODAFOTO.AsString := ExtractFileName(OpenFoto.FileName);


Pois no banco preciso salvar apenas o nome do arquivo.

Valeu amigo.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira