SaveDialog, não quer dar certo...

Tente ai
TbClientesFoto.Assign(SaveDialog1.Filename)

Gravar o nome do arquivo digitado no campo da tabela está dando certo, o que não dá certo é que não grava (não gera) nenhum arquivo naquele local discrininado.

Gravar o nome do arquivo digitado no campo da tabela está dando certo, o que não dá certo é que não grava (não gera) nenhum arquivo naquele local discrininado.[/quote:d76c470eca]
sobe

O SaveDialog apenas pergunta o nome do arquivo, você é que tem que providenciar o código para salvar a imagem. Como você está mandando salvar a imagem?

O SaveDialog apenas pergunta o nome do arquivo, você é que tem que providenciar o código para salvar a imagem. Como você está mandando salvar a imagem?[/quote:c00de7912a]

Então é isso, eu não estou fazendo mais nada só o SaveDialog1.Execute, qual comando devo colocar então para salvar o arquivo?

O SaveDialog apenas pergunta o nome do arquivo, você é que tem que providenciar o código para salvar a imagem. Como você está mandando salvar a imagem?[/quote:690dd9259e]

Então é isso, eu não estou fazendo mais nada só o SaveDialog1.Execute, qual comando devo colocar então para salvar o arquivo?[/quote:690dd9259e]

Tentei colocar da seguinte forma:
SaveDialog1.Files.SaveToFile(SaveDialog1.Filename);
ele até salva, mas aparece imagem não disponível qdo clico no arquivo salvo para abrir, e não visualiza a imagem, estou fazendo algo errado?

Você tem que salvar a imagem, não a lista de arquivos mostrada no SaveDialog (é isso que faz o código que você mostrou). Seria algo assim...

O SaveDialog apenas pergunta o nome do arquivo, você é que tem que providenciar o código para salvar a imagem. Como você está mandando salvar a imagem?[/quote:3db1de4ae7]

Então é isso, eu não estou fazendo mais nada só o SaveDialog1.Execute, qual comando devo colocar então para salvar o arquivo?[/quote:3db1de4ae7]

Tentei colocar da seguinte forma:
SaveDialog1.Files.SaveToFile(SaveDialog1.Filename);
ele até salva, mas aparece imagem não disponível qdo clico no arquivo salvo para abrir, e não visualiza a imagem, estou fazendo algo errado?[/quote:3db1de4ae7]

Fiz dessa forma e conseguiu gravar:
Image1.Picture.SaveToFile(SaveDialog1.FileName);

Mas qdo vou carregar a imagem depois q gravei o nome do arquivo na minha tabela dá um erro e não mostra a imagem:

procedure TFrmCadClientes.CarregaFoto(Foto: TImage; codigo: String);
var SearchRec : TSearchRec;
begin
if FindFirst(TbClientesFoto.Value,faAnyFile,SearchRec) = 0 then
begin
foto.Picture.LoadFromFile(TbClientesFoto.Value);
end
else
begin
foto.Picture := NIL;
end;
end;

//erro
JPEG ERROR #53

É muito estranho, se eu tento buscar a imagem até pelo Object Inspector da propriedade Picture do componente Image tb dá esse erro, estou fazendo algo errado na hora de salvar o arquivo?

//erro
JPEG ERROR #53

Estou colocando jpg no campo DefaultExt do componente SaveDialog, já tentei colocar jpeg, tb dá o mesmo erro depois na hora de buscar a imagem.

Consegui, fiz da seguinte forma:

procedure TForm.BtSalvar(Sender: TObject);
var
jp: TJPEGImage; //acrescentar ´jpeg´ na uses do form
begin
jp := TJPEGImage.Create;
try
with jp do
begin
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
if MessageDlg(´Arquivo já existe. Deseja sobrescrever?´,
mtConfirmation, [mbYes, mbNo], 0) = mrNo then
begin
showmessage(´Operação Cancelada´);
exit;
end;
try

Assign(Foto.Picture.Bitmap);
SaveToFile(SaveDialog1.FileName);
TbClientesFoto.Value:=WideString(SaveDialog1.Filename);
Foto.Picture:=Foto.Picture;
except
showmessage(´ERRO ARQUIVO NÃO PODE SER SALVO´);
exit;
end;
end
else
begin
ShowMessage(´Erro : Arquivo não existe´);
exit;
end;
end;
finally
jp.Free;
end;
Close;
end;