Fórum Imagem em Paradox #170636
22/07/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
22/07/2003
Ivonei
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)