Inserir foto em formul�rio de funcion�rios

Question

Ol� Pessoal,Estou bolando um formul�rio de cadastro de funcion�rio e neste formul�rio eu gostaria de acrescentar a foto do funcion�rio, mas n�o estou sabendo como, j� coloquei um dbimagem ,mas n�o sei...

Mariocanel · Answer

coloque as units jpeg e Clipbrd na clausula usis
adiciona um OpenPictureDialog1(dialogs)
e este c�digono onclique de um botao qualquer, ah o dtsrc � um dataset que est� ligado a uma tabela valewu..............

var jpg : TJPegImage;
begin
if (DtSrc.State = dsInsert) or (DtSrc.State = dsEdit) then
begin
if OpenPictureDialog1.Execute then
begin
jpg := TJpegImage.Create;
jpg.LoadFromFile(OpenPictureDialog1.FileName);
clipboard.Assign(jpg);
DBImage1.PasteFromClipboard;
jpg.Free;
end;
end
else
ShowMessage(�Tabela n�o est� no modo de inclus�o/edi��o�);
end;

Ferreirafabiano · Answer

Valeu pela dica, mas eu s� n�o entendi a parte do dataset, pois eu estou trabalhando com o bde, e o dataset � um Clientdatset; datasetprovider??Fabiano Ferreira...

Misael · Answer

Fabiano qual � o banco de dados que vc esta utilizando e quais componentes para acessar-los???...

Bon Jovi · Answer

O exemplo funciona, mas usar clipboard nao vai matar algo que o usu�rio por acaso tenha colocado na �rea de transfer�ncia?

Costumo usar desse jeito:

procedure TForm1.EscolheImagem(Imagem: TDBImage);
var
  oJPEG: TJPEGImage;
  oDialogo: TOpenPictureDialog;
begin
  if not Assigned(Imagem) then
    Exit;

  if (not Assigned(Imagem.DataSource)) or (Imagem.DataField = ��) then
    Exit;

  if not Assigned(Imagem.DataSource.DataSet) then
    Exit;

  if not (Imagem.DataSource.DataSet.Active) then
    Exit;
      
  oDialogo := TOpenPictureDialog.Create(nil);
  try
    oDialogo.Options := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing];
    oJPEG := TJPEGImage.Create;
    try
      if oDialogo.Execute then
      begin
        oJPEG.LoadFromFile(oDialogo.FileName);
        if not (Imagem.DataSource.DataSet.State in dsEditModes) then
          Imagem.DataSource.DataSet.Edit;
        Imagem.Picture.Graphic.Assign(oJPEG);
      end;
    finally
      FreeAndNil(oJPEG);
    end;
  finally
    FreeAndNil(oDialogo);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EscolheImagem(DBImage1);
end;

Bon Jovi · Answer

Melhorando pra aceitar ler BMP convertendo pra JPEG:

procedure TForm1.EscolheImagem(Imagem: TDBImage);
var
  oJPEG: TJPEGImage;
  oDialogo: TOpenPictureDialog;
  oPicture: TPicture;
begin
  if not Assigned(Imagem) then
    Exit;

  if (not Assigned(Imagem.DataSource)) or (Imagem.DataField = ��) then
    Exit;

  if not Assigned(Imagem.DataSource.DataSet) then
    Exit;

  if not (Imagem.DataSource.DataSet.Active) then
    Exit;
      
  oDialogo := TOpenPictureDialog.Create(nil);
  try
    oDialogo.Options := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing];
    oDialogo.Filter := �Imagens (*.jpg;*.jpeg;*.bmp)|*.jpg;*.jpeg;*.bmp�;
    oPicture := TPicture.Create;
    try
      oJPEG := TJPEGImage.Create;
      try
        if oDialogo.Execute then
        begin
          oPicture.LoadFromFile(oDialogo.FileName);
          oJPEG.Assign(oPicture.Graphic);
          if not (Imagem.DataSource.DataSet.State in dsEditModes) then
            Imagem.DataSource.DataSet.Edit;
          Imagem.Picture.Graphic.Assign(oJPEG);
        end;
      finally
        FreeAndNil(oJPEG);
      end;
    finally
      FreeAndNil(oPicture);
    end;
  finally
    FreeAndNil(oDialogo);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EscolheImagem(DBImage1);
end;

F�rum Inserir foto em formul�rio de funcion�rios #239995