Como usar o Savepicturedialog

[Pinaffi]

Me jauda pessoal please....to auqi tentando salvar uma imagem no banco de dados,,,junto com os dados da pessoa...não sei se devo usar o esse componente...mas foi o que me indicaram;;;;

ele ta abrindo certinha, fazendo a função, mas no final não salva a imagem...

outra coisa...

como vou fazer pra vincular a image q eu salvar em determinada pasta com os dados no banco de dados no excell....sevcs quiserem eu mando o porgrama q estou fazendo para darem uma olhada...

Falows....se puderem me ajudar, por favor adicionem : erick_pinaffi@yahoo(ponto)com.br - no spam...xD

valeu!!!!

[Jhonas]

Poste a parte do código onde voce está salvando a imagem

abraço

[Pinaffi]

Coloquei um openpicture dialog....ce um botão com o seguinte:

procedure TForm2.Button3Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then Empty.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
savepicturedialog1.Execute;
end;

end

. E no savepicture coloquei um botão com o seguinte:

procedure TForm2.Button5Click(Sender: TObject);
begin
savepicturedialog1.Execute;
end;

end.

Acho q esta faltando bastante coisa...:S

valeu!!!

[Jhonas]

como vou fazer pra vincular a image q eu salvar em determinada pasta com os dados no banco de dados no excell

Para salvar a imagem em determinada pasta do diretório

procedure TForm2.Button5Click(Sender: TObject);
begin

   if SavePictureDialog1.Execute then
      Image1.Picture.SaveToFile(SavePictureDialog1.FileName);

end;

Citação: 
...a foto aparece no dbimage mas pra salvar essa foto a este produto oque devo fazer,... 
Para armazenar a imagem eu anteiormente utilizei um campo BLOB no banco e, para ler e gravar, um TMemoryStrem como intermediários. Após ter carregado a imagem para o DBImage através do OpenPictureDialog, você pode executar um procedimento mais ou menos assim:Código: 
procedure TForm1.GravaImage(Imagem :TDBImage); 
var 
  MemStream: TMemoryStream; 
begin 
  MemStream := TMemoryStream.Create; 
  try 
    Imagem.Picture.Graphic.SaveToStream(MemStream); 
    TableName.Edit; 
    TableNameBlobField.LoadFromStream(MemStream); 
    TableName.Post; 
  finally 
    TheStream.Free; 
  end; 
end; 
Obs: leve em consideração o fato de sua tabela já estar em edição, daí tem um edit e post que não precisará ser utilizado.


Dica do Micheus

outros posts relacionados:

http://scriptbrasil.com.br/forum/index.php...enpicturedialog

abraço