Fórum SaveDialog, não quer dar certo... #339864
03/04/2007
0
if SaveDialog1.Execute then
Begin
TbClientesFoto.Value:=WideString(SaveDialog1.Filename);
end;
Era pra dar certo não é... o falta, já pesquisei no forum está assim tb, algumém pode me dar uma ajudinha.
Janete
Curtir tópico
+ 0Posts
04/04/2007
Edilcimar
TbClientesFoto.Assign(SaveDialog1.Filename)
Gostei + 0
04/04/2007
Janete
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.
Gostei + 0
07/04/2007
Janete
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
Gostei + 0
07/04/2007
Massuda
Gostei + 0
07/04/2007
Janete
Então é isso, eu não estou fazendo mais nada só o SaveDialog1.Execute, qual comando devo colocar então para salvar o arquivo?
Gostei + 0
07/04/2007
Janete
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?
Gostei + 0
07/04/2007
Massuda
// SuaImagem é um TImage SuaImagem.Picture.SaveToFile(SeuSaveDialog.FileName)
Gostei + 0
07/04/2007
Janete
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
Gostei + 0
09/04/2007
Janete
//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.
Gostei + 0
09/04/2007
Janete
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;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)