Imagem em Paradox

Delphi

22/07/2003

Olá amigos, acontece o seguinte problema:
No meu programa, fui botar um GroupBox de Inserir Imagens em Paradox, mas acontece o seguinte, no botão de incluir imagem, só coloquei o código de abrir imagem, mas nao o de inserir a imagem na table e visualizá-la no componente DbImage, aqui embaixo está o atual código do Botão Inserir nova foto, se possivel, gostaria que alguem me deixasse um codigo pra eu inserir a imagem no banco e poder visualiza-la no DbImage
Aqui vai o ATUAL código:


procedure TForm1.BitBtn1NvfotoClick(Sender: TObject);
var Caminho: String;
begin
OpenPictureDialog1.Execute;
Caminho:=OpenPictureDialog1.FileName;
Table1.Insert {<<<<-----Acho que esta linha nao esta correta}
end;


Obrigado


Sergio Luiz

Sergio Luiz

Curtidas 0

Respostas

Ivonei

Ivonei

22/07/2003

Aí estão dois exemplos:

1: Insira um componente OpenDialog no Form e num button coloque:
If ( OpenDialog1.Execute ) Then
Begin
if Table1.State in [dsInsert, dsEdit] then
Begin
Table1Nome.AsString := OpenDialog1.FileName;
Image1.Picture.LoadFromFile( OpenDialog1.FileName );
End;
End;

2:
procedure TForm1.Button1Click(Sender: TObject);
var
BMP: TBitMap;
begin
BMP := TBitMap.Create;
if OpenPictureDialog1.Execute then
begin
if Table1.State in [dsInsert, dsEdit] then
begin
BMP.LoadFromFile(OpenPictureDialog1.FileName);
Table1Graphic.Assign( BMP );
end;
end;
end;

Fui


GOSTEI 0
POSTAR