Fórum openpicture dialog #611187

09/06/2020

0

preciso que ao clicar no botao meu programa abre o local onde esta minha foto para isso preciso utilizar o openpicturedialog porem quando eu clico no botao para abrir a pasta ele trava meu programa e n faz mais nd
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

Lucas

Responder

Posts

09/06/2020

Emerson Nascimento

porque você precisa de um TFileStream?
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;
Responder

Gostei + 0

09/06/2020

Lucas

porque você precisa de um TFileStream?
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
Responder

Gostei + 0

10/06/2020

Lucas

porque você precisa de um TFileStream?
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 ?
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar