2

Consegui armazenar imagens no meu banco, o problema agora é apenas tratar para que as imagens só entrem no banco até certo tamanho, supondo: 800kb. Como proceder?

Segue o código:

Botão Gravar:

procedure TfrmFoto.SpeedButton1Click(Sender: TObject);
var
  Jpeg : TJpegImage;
begin
 if OPPicture.execute then
    Image1.Picture.LoadFromFile(OPPicture.FileName);

  if OPPicture.FileName <> '' then
  begin
    Jpeg := TJpegImage.Create;
    Jpeg.LoadFromFile(OPPicture.FileName);

    dmconn.zqFoto.Close;
    dmconn.zqFoto.SQL.Clear;
    dmconn.zqFoto.SQL.Add('INSERT INTO fotos(nome, fotoAnt) VALUES (:pnome, :pfotoant)');
    dmconn.zqFoto.ParamByName('pnome').AsString := edtNome.Text;
    dmconn.zqFoto.ParamByName('pfotoant').Assign(Jpeg);
    dmconn.zqFoto.ExecSQL;

    Jpeg.Free;
  end;
end;

E aqui o outro botão:

Botão Ler:

procedure TfrmFoto.SpeedButton2Click(Sender: TObject);
var
  sqltexto : string;
  Jpeg : TJpegImage;
  Stream : TStream;
begin
  dmconn.zqFoto.Close;
  dmconn.zqFoto.SQL.Clear;
  dmconn.zqFoto.SQL.Add('SELECT nome, fotoAnt FROM fotos WHERE nome = :pnome');
  dmconn.zqFoto.ParamByName('pnome').AsString := edtNomeLer.Text;
  dmconn.zqFoto.Open;

  Stream := dmconn.zqFoto.CreateBlobStream(dmconn.zqFoto.Fields[1],BMREAD);

  try
    Jpeg := TJpegImage.Create;
    Jpeg.LoadFromStream(Stream);
    Image2.Picture.Assign(Jpeg);
  except
   // Jpg.Free;
  end;
2
  • Idéia: Não seria mais fácil fazer um upload da imagem para algum diretório do site e armazenar no banco somente o caminho deste diretório combinado com o nome do arquivo? Commented 11/07/2014 às 13:53
  • nem rola amigo, teria que ser no banco mesmo, e não é site, é um sistema para desktop, daí preciso mostrar a imagem armazenada, porem ela não pode ser grande, teria que ser até uns 800kb de tamanho, tudo que eu quero é apenas tratar isso.
    – Ramon Ruan
    Commented 11/07/2014 às 13:56

1 Resposta 1

3

Acho que verificar o tamanho do arquivo com um File.Lenght resolve:

procedure TForm1.Button1Click(Sender: TObject);
var
myFile: file of Byte; // Utilizando file of byte, o tratamento do arquivo
// pode ser genérico, sem se preocupar se o mesmo é texto ou exe
myFileSize: Longint; // LongInt para garantir que arquivos muito longos
// também sejam tratados
begin
if OpenDialog1.Execute then
begin
AssignFile(myFile, OpenDialog1.FileName); // Cria um ponteiro
Reset(myFile); // Abre o arquivo como somente leitura
myFileSize := FileSize(myFile); // Obtém o tamanho do arquivo
ShowMessage (IntToStr (FileSize (myFile)); // Exibe o tamanho
end;
end;

end.
4
  • E como ficaria no código amigo?
    – Ramon Ruan
    Commented 11/07/2014 às 13:59
  • Testa este código, espero que seja últi. :)
    – JcSaint
    Commented 11/07/2014 às 14:02
  • Perfeito amigo, muito obrigado! :D
    – Ramon Ruan
    Commented 11/07/2014 às 14:21
  • Disponha, boa sorte com o seu projeto !!!
    – JcSaint
    Commented 11/07/2014 às 15:02

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .