Delphi dicas

Inserindo foto no banco de dados

E ai galera eu achei uma dica muito simples e legal num forum que resolveu meu pronblema então vamos compartilhar né



procedure TFrm_CadFun.SpeedButton1Click(Sender: TObject);

Var

Imagem:TPicture;

begin

        If DS_Funcionarios.State in [DsInsert,DsEdit] then

        begin

                If OPD_Foto.Execute then

                begin

                        Imagem:= TPicture.Create();

                        Imagem.LoadFromFile(OPD_Foto.FileName);

                        ClipBoard.Assign(Imagem);

                        DbImage1.PasteFromClipBoard;

                        Imagem.Free;

                end;

        end;

end;



Para o codigo funcionar vc tem que adicionar clipbrde Jpg na clausula use da seção interface



Com esse código você insere uma foto no banco desculpe se não fui muito didático é que sou iniciante e entendo pouca coisa ainda