Fórum openpicture dialog #611187
09/06/2020
0
utilizo delphi 7
windows 10
if Abrir.Execute then
begin
try
// Carrega a imagem para arquivo binário de memória.
bfoto := True;
fs := TFileStream.Create(Abrir.FileName, fmOpenRead or fmShareDenyWrite);
// Mostra a imagem no Image.
DBImage1.Picture.LoadFromFile(Abrir.FileName);
finally
// libera arquivo de memória.
// fs.Free;
end;
end;
Lucas
Curtir tópico
+ 0Posts
09/06/2020
Emerson Nascimento
tente somente:
if Abrir.Execute then
begin
try
bfoto := True;
// Mostra a imagem no Image.
DBImage1.Picture.LoadFromFile(Abrir.FileName);
finally
// libera arquivo de memória.
end;
end;Gostei + 0
09/06/2020
Lucas
tente somente:
if Abrir.Execute then
begin
try
bfoto := True;
// Mostra a imagem no Image.
DBImage1.Picture.LoadFromFile(Abrir.FileName);
finally
// libera arquivo de memória.
end;
end;estou passando o f5 nele e ele n passa dessa linha
if Abrir.Execute then
Gostei + 0
10/06/2020
Lucas
tente somente:
if Abrir.Execute then
begin
try
bfoto := True;
// Mostra a imagem no Image.
DBImage1.Picture.LoadFromFile(Abrir.FileName);
finally
// libera arquivo de memória.
end;
end;estou passando o f5 nele e ele n passa dessa linha
if Abrir.Execute then
sera que tem algum outro componente que faça isto que eu preciso ?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)