[Tutorial] Imagem do Cliente no Form de Cadastro [DELPHI]

[~ Heatlex. 11]

Bom, você trabalhando com Banco de dados e tal, quer salvar a foto do cliente no banco de dados, e quer que apareça no formulário de cadastro do seu sistema a fotinha dele lá.

 

Eu fiz com tabelas Paradox tipo OLE.

 

 

 

Crie um campo FOTO - tipo OLE.

 

Vá no delphi, adicione um DBImage, OpenPicture e um OpenDialog.

 

Faça a ligação do DBImagem com a sua datasource e com seu devido campo "FOTO".

 

Nas uses add :

 

Uses JPEG, ClipBrd;

 

Adicione um botão, caption : Abrir Foto ou Inserir foto, ai vai do seu gosto, no onclick dele adicione :

 

var jpg : TJPegImage;

begin

if OpenPictureDialog1.Execute then

begin

jpg := TJpegImage.Create;

jpg.LoadFromFile( OpenPictureDialog1.FileName);

ClipBoard.Assign ( jpg );

DBIMAGEM.PasteFromClipboard;

jpg.Free;

 

Créditos/Code : "MM"

 

Ideia do metodo : Miranda - Professional Code.